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
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