[發問] 請教VBA路徑變數設定

帖子: 5
主題: 2
精華: 0
積分: 7
點名: 0
作業系統: win10
軟體版本: win10
閱讀權限: 10
註冊時間: 2021-11-11
最後登錄: 2022-4-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-11-11 21:25 | 只看該作者

[發問] 請教VBA路徑變數設定

本帖最後由 x7776658 於 2021-11-11 21:26 編輯

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

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

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

2^#

發表於 2021-11-12 08:04 | 只看該作者

回復 1# x7776658

Sub test()
FPath = "D:\test\i\test.xlsx"
With Workbooks.Open(FPath)
'您的主程式需求，因為您的寫法有問題
'所以無法得知您實際的需求
.Close
End With
End Sub

帖子: 5
主題: 2
精華: 0
積分: 7
點名: 0
作業系統: win10
軟體版本: win10
閱讀權限: 10
註冊時間: 2021-11-11
最後登錄: 2022-4-25

3^#

發表於 2021-11-12 09:47 | 只看該作者

回復 2# samwang

D:\test\ 有兩個資料夾，分別是D:\test\1 及 D:\test\2，這兩個資料夾都有test.xlsx

我希望能把不同資料夾的excel資料(叫做test.xlsx)整合至一個excel ( 叫做total.xlsm)，如下圖所示

謝謝

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

4^#

發表於 2021-11-12 12:10 | 只看該作者

回復 3# x7776658

可以提供附件，想要整合2個檔案的結果為什麼樣子，謝謝

帖子: 5
主題: 2
精華: 0
積分: 7
點名: 0
作業系統: win10
軟體版本: win10
閱讀權限: 10
註冊時間: 2021-11-11
最後登錄: 2022-4-25

5^#

發表於 2021-11-12 12:30 | 只看該作者

回復 4# samwang
您好

D:\test\1\test.xlsx

D:\test\2\test.xlsx

整合至
D:\test\total.xlsm

謝謝

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

6^#

發表於 2021-11-12 13:07 | 只看該作者

回復 5# x7776658

請測試看看，謝謝

Sub test()
For i = 1 To 2
FPath = "D:\test\" & i & "\test.xlsx"
With Workbooks.Open(FPath)
Arr = Range("a1:d1")
.Close
End With
Range("a" & i).Resize(, 4) = Arr
Next
End Sub

帖子: 5
主題: 2
精華: 0
積分: 7
點名: 0
作業系統: win10
軟體版本: win10
閱讀權限: 10
註冊時間: 2021-11-11
最後登錄: 2022-4-25

7^#

發表於 2021-11-12 13:14 | 只看該作者

回復 6# samwang

執行成功，謝謝大大無私分享