macro per aprire file

[zuzzumaja]

Salve avrei necessità di una macro che mi copi il contenuto a:1 m:100 del file excel conteggio.xls\foglio1 già aperto, ma non salvato su hard disk e successivamente chiuda lo stesso file, in maniera tale che mi rimanga aperto solo il file pricipale su cui incollare i dati copiati

spero di essere stato chiaro, grazie dell'aiuto

[ricky53]

Ciao,
il file "conteggio.xls" dove è stato salvato?
Comunque non ha rilevanza alcuna dove il file sia stato salvato perchè è aperto.
Visto che anche l'altro file è aperto prova con il "Registratore di Macro" a fare i passi che hai descritto.
Una volta fermato il registratore avrai il codice che converrà adattare per togliere qualche istruzione non necessaria ...

Inviaci il codice che otterrai e lo sistemeremo insieme.

[zuzzumaja]

ok, sembra andare, ora ho necessita di una macro che apra con Excel un file txt e lo salva, non ho bisogno di visualizzarlo, quindi tutto in automatico.

PRID = Shell("excel.exe m:\pres.txt", 1)
questo il comando con cui lo apro, ma non riesco a farlo chiudere salvandolo in automatico
tnk

[Zer0Kelvin]

Ciao.
Premetto che, essendo il secondo quesito molto diverso dal primo, sarebbe stato meglio aprire un nuovo post.
Non mi è ben chiaro cosa intendi con "farlo chiudere salvandolo in automatico".
Vuoi chiudere il file da VBA? perchè in tal caso devi ricorrere alle API di windows, oppure ricorrere ad un metodo diverso per aprire il file.
Dovresti spiegare più in dettaglio quello che devi fare.
Attendo chiarimenti.

[zuzzumaja]

si scusa, ho un file pres.txt salvato su m: devo aprirlo con Excel e subito dopo salvarlo ma in formato xls, una volta salvato, posso chiederlo (il file pres.xls, non Excel), spero di essere stato un po' più preciso

[Zer0Kelvin]

Prova se va bene questo:

Codice: Seleziona tutto

Sub ApriEsalva()
Dim Wtxt As Workbook
    Set Wtxt = Workbooks.Open("m:\pres.txt")
    Wtxt.SaveAs Filename:=Wtxt.Name & ".xls", FileFormat:=xlExcel8
    Wtxt.Close
    Set Wtxt = Nothing
End Sub

Per semplicità ho lasciato .txt nel nome del file, ma volendo si può eliminare.

[zuzzumaja]

non va, in pratica apre il file con Excel, ma poi non salva e si blocca

free image upload

[Zer0Kelvin]

ACC.!! il 400, maledetto. Dovrebbe essere uno "stack overfow"
Su Excel 2010 la routine funziona bene. Dovresti postare il codice che hai usato; l'intera routine, possibilmente.
Eventualmente sostituisci:

Codice: Seleziona tutto

FileFormat:=xlExcel8

con

Codice: Seleziona tutto

FileFormat:=56

[zuzzumaja]

risolto il precedente errore, ora questo...



il file deve essere salvato in m:\pres

dove sbaglio ?

[Flash30005]

Prova questa macro che inserirai in un nuovo file di Excel (v. 2003/2007/2010)

Codice: Seleziona tutto

Sub SalvaDaTxt()
Perc = "m:\"
NFTxt = "pres.txt"
NFEx = Left(NFTxt, Len(NFTxt) - 3) & "xls"
    ChDir Perc
    Workbooks.OpenText Filename:=Perc & NFTxt
    If Dir$(Perc & "Dir.xls") <> "" Then Kill Perc & NFEx
    ActiveWorkbook.SaveAs Filename:=Perc & NFEx
    ActiveWorkbook.Close savechanges:=True
End Sub

Ciao

[zuzzumaja]

Perfetto, grazie alla prox

[Zer0Kelvin]

Codice: Seleziona tutto

    Workbooks.OpenText Filename:=Perc & NFTxt

Ciao

E' proprio vero, non si smette MAI di imparare!
LOL