Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

macro per aprire file

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

macro per aprire file

Postdi zuzzumaja » 01/03/14 17:56

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
zuzzumaja
Utente Junior
 
Post: 65
Iscritto il: 26/08/09 13:34

Sponsor
 

Re: macro per aprire file

Postdi ricky53 » 01/03/14 21:14

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.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: macro per aprire file

Postdi zuzzumaja » 02/03/14 12:37

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
zuzzumaja
Utente Junior
 
Post: 65
Iscritto il: 26/08/09 13:34

Re: macro per aprire file

Postdi Zer0Kelvin » 02/03/14 13:00

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.
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: macro per aprire file

Postdi zuzzumaja » 02/03/14 14:34

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
zuzzumaja
Utente Junior
 
Post: 65
Iscritto il: 26/08/09 13:34

Re: macro per aprire file

Postdi Zer0Kelvin » 02/03/14 17:15

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.
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: macro per aprire file

Postdi zuzzumaja » 02/03/14 18:12

non va, in pratica apre il file con Excel, ma poi non salva e si blocca
Immagine
free image upload
zuzzumaja
Utente Junior
 
Post: 65
Iscritto il: 26/08/09 13:34

Re: macro per aprire file

Postdi Zer0Kelvin » 02/03/14 18:28

ACC.!! :evil: 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
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: macro per aprire file

Postdi zuzzumaja » 02/03/14 18:42

risolto il precedente errore, ora questo...

Immagine

il file deve essere salvato in m:\pres

dove sbaglio ?
zuzzumaja
Utente Junior
 
Post: 65
Iscritto il: 26/08/09 13:34

Re: macro per aprire file

Postdi Flash30005 » 03/03/14 01:01

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: macro per aprire file

Postdi zuzzumaja » 05/03/14 22:23

Perfetto, grazie alla prox
zuzzumaja
Utente Junior
 
Post: 65
Iscritto il: 26/08/09 13:34

Re: macro per aprire file

Postdi Zer0Kelvin » 06/03/14 10:48

Flash30005 ha scritto:
Codice: Seleziona tutto
    Workbooks.OpenText Filename:=Perc & NFTxt

Ciao

E' proprio vero, non si smette MAI di imparare!
LOL :lol:
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23


Torna a Applicazioni Office Windows


Topic correlati a "macro per aprire file":


Chi c’è in linea

Visitano il forum: Nessuno e 16 ospiti