麻辣家族討論版版 » Excel程式區 » module 的位置?

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

module 的位置?

中學生 Rank: 2

帖子: 31
主題: 12
精華: 0
積分: 69
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-19
最後登錄: 2016-1-2

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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檔案?

樓主熱帖

收藏

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 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內,

其他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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-11-26 11:23 | 只看該作者

回復 1# alex520188
是這樣嗎?

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

複製代碼

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

4^#

發表於 2011-11-26 14:41 | 只看該作者

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

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

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

靜思自在 : 能幹不幹，不如苦幹實幹。

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