voglio aprire tutti i file in una cartella specificata e hanno il seguente codicemacro - aprire tutti i file in una cartella
Sub OpenFiles()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "\\ILAFILESERVER\Public\Documents\Renewable Energy\FiTs\1 Planning
Department\Marks Tracker\Quality Control Reports"
MyFile = Dir(MyFolder & "\*.xlsx")
Do While MyFile <> ""
Workbooks.Open Filename:=MyFolder & "\" & MyFile
Loop
End Sub
Il problema che ho è che si continua a cercare di aprire il primo file nella cartella ripetutamente e non si muoverà. Qualcuno può aiutare, io sono un po 'novizio in VBA e potrei davvero fare con qualche aiuto. Sto cercando di aprire circa 30 rapporti tutti in formato .xlsx. Molte grazie in anticipo.
Si desidera aprire tutti i file in una cartella allo stesso tempo? –