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