PDA

View Full Version : Open several files from list of paths



JorgeJF
09-07-2018, 03:46 AM
Hi,
I'm totally newbie at VBA.
Trying to create a simple macro to open several excel workbooks, with each one of their full paths inside one cell.
It works for just one, but not for more workbooks.
In this case, the paths are inside cells C2, C3 and C4.
I tried 3 versions :

Sub proTest()
Dim varFileName As String
varFileName = Sheets("Lista").Range("C2").Value
Workbooks.Open varFileName
varFileName = Sheets("Lista").Range("C3").Value
Workbooks.Open varFileName
varFileName = Sheets("Lista").Range("C4").Value
Workbooks.Open varFileName

End Sub

(the above one only opens the first file, in C2)

Private Sub AbrirFicheiros_Click()
Dim varFileName As String
For i = 2 To 4
varFileName = Sheets("Lista").Range(Cells(i, 3)).Value
Workbooks.Open varFileName
Next i
End Sub


Sub proTest()
Workbooks.Open Sheets("Lista").Range("C2").Value
Workbooks.Open Sheets("Lista").Range("C3").Value
Workbooks.Open Sheets("Lista").Range("C4").Value
End Sub

The last 2 do not work at all, it tells me it's out of range...

Regards

mancubus
09-07-2018, 06:14 AM
welcome to the forum.



Sub vbax_63596_open_multiple_files()

With ThisWorkbook.Worksheets("Lista")
Workbooks.Open .Range("C2").Value
Workbooks.Open .Range("C3").Value
Workbooks.Open .Range("C4").Value
End With


End Sub

JorgeJF
09-07-2018, 08:48 AM
welcome to the forum.



Sub vbax_63596_open_multiple_files()

With ThisWorkbook.Worksheets("Lista")
Workbooks.Open .Range("C2").Value
Workbooks.Open .Range("C3").Value
Workbooks.Open .Range("C4").Value
End With


End Sub


Great ! That was fast !
I'm currently out of my office and cannot test it but shall do next Monday.
Tank you !