DerMirker DerMirker 13.11.2017, 10:41:57 2 + Sub macro()Dim wb1 As WorkbookDim wb2 As WorkbookDim Tool1 As StringDim Tool2 As StringDim Tool3 As StringDim tool4 As StringDim i As Integeri = 1Tool1 = Cells(i, 1).ValueTool2 = Cells(i, 2).ValueTool3 = Cells(i, 3).Valuetool4 = Cells(i, 4).ValueSet wb1 = Workbooks(Tool1)Set wb2 = Workbooks(Tool3)Czemu dostaję subscript out of range na pogrubionej linii? ( ͡° ʖ̯ ͡°) #excel #vba
DwaNiedzwiedzie DwaNiedzwiedzie 13.11.2017, 11:16:41 1 + @DerMirker: Workbooks(Tool1) będzie działać tylko wtedy, jeśli będziesz miał otwarty skoroszyt o nazwie jak w zmiennej.
L.....n konto usunięte 13.11.2017, 16:42:05 1 + @DerMirker: Ja robię tak:1. określasz pełną ścieżkę pliku który chcesz otworzyć, czyli np filepath1 = "C:\Users\DerMiker\" & Tool1, gdzie Tool1 to np. OtworzTenPlik.xlsx2. Workbooks.Open filepath13. set wb1 = workbooks(Tool1)
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim Tool1 As String
Dim Tool2 As String
Dim Tool3 As String
Dim tool4 As String
Dim i As Integer
i = 1
Tool1 = Cells(i, 1).Value
Tool2 = Cells(i, 2).Value
Tool3 = Cells(i, 3).Value
tool4 = Cells(i, 4).Value
Set wb1 = Workbooks(Tool1)
Set wb2 = Workbooks(Tool3)
Czemu dostaję subscript out of range na pogrubionej linii? ( ͡° ʖ̯ ͡°) #excel #vba
1. określasz pełną ścieżkę pliku który chcesz otworzyć, czyli np filepath1 = "C:\Users\DerMiker\" & Tool1, gdzie Tool1 to np. OtworzTenPlik.xlsx
2. Workbooks.Open filepath1
3. set wb1 = workbooks(Tool1)