標題: module 的位置? [打印本頁]

---

作者: alex520188    時間: 2011-11-25 14:04     標題: module 的位置?

各位大大好 小弟目前遇到一個問題
我有5個檔案 檔案內的module都是一樣的 我分別把它們寫在每個檔案的一般模組內
每次要執其中一個巨集 都必須把那個檔案開啟才能執行
要怎樣只要寫一個module就可以控制這些已開啟的檔案

ex:
a巨集--->執行A檔案
b巨集--->執行B檔案
c巨集--->執行C檔案
d巨集--->執行D檔案
e巨集--->執行E檔案

共用module--->分別執行A、B、C、D、E檔案?

---

作者: kimbal    時間: 2011-11-26 00:01

1個巨集可以操控多個檔案, 視乎想怎樣操作

以下是把WORKBOOK C第1頁A1格的東西放到WORKBOOK B第1頁A1格
set wb_b= WORKBOOKS.OPEN("B.XLS")
set wb_C= WORKBOOKS.OPEN("C.XLS")
wb_b.sheets(1).range("A1") = wb_c.sheets(1).range("A1")

另外,把代碼放到THISWORKBOOK內,
[attach]8634[/attach]
其他WORKBOOK 就可以這樣運行:
Sub test()
    Set wbtest = Workbooks.Open("C:\temp\新增資料夾\test.xlsm")
    Call wbtest.test
End Sub

---

作者: GBKEE    時間: 2011-11-26 11:23

回復 1# alex520188
是這樣嗎?

1. Sub Ex()
   
2.     Dim FileName As String, FilePath As String
   
3.         FileName = Range("A1")          '檔案名稱
   
4.         FilePath = "D:\"                '路徑
   
5.         Workbooks.Open FilePath & FileName
   
6.         Run FileName & "!TEST"          '每一檔案須是一樣的巨集名稱
   
7. End Sub

複製代碼

---

作者: HUNGCHILIN    時間: 2011-11-26 14:41

本帖最後由 HUNGCHILIN 於 2011-11-26 14:47 編輯

這樣的檔，作成增益集或許會比較好
有興趣可多搜尋增益集(大陸叫"加載宏")作法
http://www.officefans.net/cdb/viewthread.php?tid=75091&highlight=

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)