請教路徑變數設定

x7776658
我是VBA初學者,需要請教各位VBA前輩們
指令碼如下,而我希望能夠將'D:\test\ i \[test.xlsx]工作表1'的i是變數,加入於迴圈之中
但執行結果不如預期,路徑無法變成變數

Sub 巨集1()

Dim i
For i = 1 To 2 Step 1

x = "='D:\test\i\[test.xlsx]工作表1'!A1:D1"

Range("a" & i & ":d" & i).Formula = "='D:\test\ i \[test.xlsx]工作表1'!A1:D1"
Range("a" & i & ":d" & i).Formula = Range("a" & i & ":d" & i).Value

Next

End Sub






x7776658
更正:

Sub 巨集1()

Dim i
For i = 1 To 2 Step 1

Range("a" & i & ":d" & i).Formula = "='D:\test\ i \[test.xlsx]工作表1'!A1:D1"
Range("a" & i & ":d" & i).Formula = Range("a" & i & ":d" & i).Value

Next

End Sub
Ann
Range("a" & i & ":d" & i).Formula = "='D:\test\i\[test.xlsx]工作表1'!A1:D1"

下面這個i應該要用" & i & "取代
"='D:\test\i\[test.xlsx]工作表1'!A1:D1"

應該如下
Range("a" & i & ":d" & i).Formula = "='D:\test\" & i & "\[test.xlsx]工作表1'!A1:D1"
回到頂部