Il link per il download file non è più valido
ciao
Moderatori: Anthony47, Flash30005
Sub AllOpen()
Dim myPath As String, myCommon As String, myFile As String
'
myPath = "C:\Users\Utente1\Downloads\" '<<< La directory che contiene i figli (con \ finale)
myCommon = "byPEPPE*.xls" '<<<** Vedi testo
'
myFile = Dir(myPath & myCommon)
Application.EnableEvents = False
Do
If myFile = "" Then Exit Do
Workbooks.Open myPath & myFile, UpdateLinks:=3
ActiveWorkbook.Close savechanges:=True
myFile = Dir
Loop
Application.EnableEvents = True
End Sub
Torna a Applicazioni Office Windows
aggiornare codec lettore multimediale win11 Autore: mercurio49 |
Forum: Sistemi Operativi Windows Risposte: 1 |
Bordi esterni in una selezione qualsiasi Autore: recalcatiiti |
Forum: Applicazioni Office Windows Risposte: 18 |
Visitano il forum: Nessuno e 35 ospiti