返回列表 上一主題 發帖

module 的位置?

module 的位置?

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

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

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

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內,

其他WORKBOOK 就可以這樣運行:
Sub test()
    Set wbtest = Workbooks.Open("C:\temp\新增資料夾\test.xlsm")
    Call wbtest.test
End Sub
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

回復 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
複製代碼

TOP

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

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

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題