麻辣家族討論版版 » Excel程式區 » 如何依照清單順序開檔後編輯檔案

返回列表下一主題上一主題發帖

[發問] 如何依照清單順序開檔後編輯檔案

小學生 Rank: 1

帖子: 18
主題: 4
精華: 0
積分: 24
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2015-7-23
最後登錄: 2015-10-20

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-10-19 01:15 | 只看該作者

[發問] 如何依照清單順序開檔後編輯檔案

各位先進好，
我有一組清單是存在A的位置上，目前我已知道要如何使用VBA依序開啟檔案，
但我希望開啟檔案後能在開啟的這個檔案上執行另一個VBA程式(比如計算總和)，
之後將結果回傳回原始清單的資料，這個部分不清楚如何操作。
麻煩各位前輩幫忙，謝謝。

依照清單順序開啟檔案.rar (12.49 KB)

樓主熱帖

收藏

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2015-10-19 18:45 | 只看該作者

回復 1# linlin00

Workbooks.Open要完整的路徑和檔名，但 Workbooks("活頁簿名稱")?不用路徑，?只要檔名就可以
如下程式解釋：

For i = 1 To 2
fpath = ThisWorkbook.ActiveSheet.Cells(i, 1) '路徑 "C:\Documents and Settings\Administrator\My Documents\"
ffile = ThisWorkbook.ActiveSheet.Cells(i, 2) '檔名 "vbatest2.xls"
Workbooks.Open (fpath & ffile)
Workbooks("ffile").Sheets ("工作表1")...
...
...其內容自行填補
...
...
Workbooks("ffile").Close True
Next

複製代碼

小學生 Rank: 1

帖子: 18
主題: 4
精華: 0
積分: 24
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2015-7-23
最後登錄: 2015-10-20

3^#

發表於 2015-10-20 13:17 | 只看該作者

回復 2# lpk187
感謝回復!
我先操作試試看

小學生 Rank: 1

帖子: 18
主題: 4
精華: 0
積分: 24
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2015-7-23
最後登錄: 2015-10-20

4^#

發表於 2015-10-20 15:30 | 只看該作者

回復 2# lpk187
非常感謝，我弄懂了!

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。

返回列表下一主題上一主題