Condividi:        

aprire file nella stessa cartella

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

Re: aprire file nella stessa cartella

Postdi Flash30005 » 07/06/13 15:22

Ciao Aetio e benvenuto nel Forum

Per aprire tutti i file Xlsm contenuti in una cartella puoi creare un nuovo file
e in questo nuovo file inserisci la macro che posto qui, salva il file con nome (nella stessa cartella dei file che vuoi aprire)
poi avviala
Codice: Seleziona tutto
Sub Aprifile()
myDir = ThisWorkbook.Path & "\"   '<<< La tua dir, con \ finale
myFile = Dir(myDir & "*.xlsm*")
Do While myFile <> ""
If myFile = ThisWorkbook.Name Then GoTo nextF
    Workbooks.Open (myDir & myFile)
skipF:
'ActiveWorkbook.Close savechanges = False
nextF:
myFile = Dir
Loop
End Sub


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Sponsor
 

Re: aprire file nella stessa cartella

Postdi aetio » 07/06/13 20:50

Ciao,
innanzi tutto Grazie... (la macro è molto bella!!)

Quando la faccio girare mi restituisce l'avviso
Errore di run-time '429':
il componente ActiveX non è in grado di creare l'oggetto


il tuo commento
'<<< La tua dir, con \ finale
significa che devo scriverla nella macro? (nel mio esempio c:\Documenti\Cartella1\)
Credo di no, poiché il codice
myDir = ThisWorkbook.Path & "\"
istruisce già in quale ambiente deve lavorare... o sbaglio?? Se sì, che sintassi devo usare?
(Perdona la mia ignoranza in materia)

Grazie assai, buona serata
eZio.
I-REMS Falco. Per non dimenticare....
aetio
Newbie
 
Post: 4
Iscritto il: 07/06/13 14:43

Re: aprire file nella stessa cartella

Postdi Flash30005 » 07/06/13 21:21

Se inserisci il file che hai creato con la macro nella stessa cartella dove ci sono i file da aprire non devi modificare nulla
In quale riga dà quell'errore?

In ambiente vba nel Menu Strumenti seleziona Riferimenti e controlla che non manchi nessuno di questi riferimenti
inoltre indica quale versione di Excel hai

Immagine

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: aprire file nella stessa cartella

Postdi aetio » 07/06/13 21:35

Ciao,

In quale riga dà quell'errore?

myDir = ThisWorkbook.Path & "\"

i Riferimenti-Vba Project che hai segnalato sono tutti attivati.

Versione Excel 2007 fatto girare in ambiente Win7

Grazie assai,
eZio
I-REMS Falco. Per non dimenticare....
aetio
Newbie
 
Post: 4
Iscritto il: 07/06/13 14:43

Re: aprire file nella stessa cartella

Postdi Flash30005 » 07/06/13 23:59

Devi salvare il file nella directory (degli altri)
chiudere il file
e riaprirlo

altrimenti la directory non esiste

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: aprire file nella stessa cartella

Postdi ricky53 » 08/06/13 00:19

Ciao,
strano che tu ottenga un errore.
Se esegui la macro con "F8" e, nella pfinestra della variabili locali, controlli il valore di "myDir" vedrai che vale "\"

Io ho provato con il 2003, 2007, il 2010 e il 2013 ottengo sempre lo stesso valore per "myDir"
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: aprire file nella stessa cartella

Postdi aetio » 08/06/13 08:13

Ciao,
prima di tutto Grazie per la vs. pazienza... :-))

I misteri del Vba sono infiniti. Ho creato appositamente un mini-file con solo dentro la macro Aprifile e da lì funziona a meraviglia. Non capisco il motivo per cui dal file in cui l'avevo inserita NON ne voleva sapere di girare... Forse perché quel file non consente modifiche in fase di chiusura? (il salvataggio delle modifiche è comunque possibile solo previa un'autorizzazione). Ad ogni modo obiettivo raggiunto, con una bella macro.

Grazie infinite, buona giornata
eZio
I-REMS Falco. Per non dimenticare....
aetio
Newbie
 
Post: 4
Iscritto il: 07/06/13 14:43

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "aprire file nella stessa cartella":


Chi c’è in linea

Visitano il forum: Nessuno e 51 ospiti