帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-5-31 17:25 | 只看該作者

[發問] 模組是否能夠不侷限於單一excel檔案

請教各位大大
因為本身工作上的需求
有設計一些模駔，也會時常更新
但是檔案常常會被複製來複製去
而我更新的巨集卻沒有跟到這些檔案

目前我只知道用匯入匯出的方式
將我的巨集載入到別人的檔案

不知道是否有其他方式能夠更簡單達成此效果

例如：執行一個執行檔便能將我release給大家的巨集自動載入到大家的excel檔案裡

我的問題用文字敘述似乎比較難讓人理解..
也希望大大能夠解答
如果有大大不懂得我的意思~也請詢問
謝謝

樓主熱帖

HUNGCHILIN

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

版主 Rank: 7 Rank: 7 Rank: 7

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

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

2^#

發表於 2012-5-31 21:54 | 只看該作者

這則大概只能看看
http://forum.twbts.com/redirect. ... o=lastpost#lastpost

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

TOP

alumi

中學生 Rank: 2

帖子: 67
主題: 8
精華: 0
積分: 78
點名: 0
作業系統: Windows XP
軟體版本: Excel 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-15
最後登錄: 2021-9-14

3^#

發表於 2012-6-1 00:40 | 只看該作者

本帖最後由 alumi 於 2012-6-1 00:51 編輯

回復 1# a703130

上面的大大,可能誤會原 PO 文者的意思.

就是如何讓 VBA 的模組, 變成是公用的 Library, 而不是隨著 Excel 檔案, 四處漂流.

我的土方法是異動 Personal.xls (裡含您所寫的 VBA)

TOP

GBKEE

超級版主 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兔年全勤獎章

4^#

發表於 2012-6-1 07:23 | 只看該作者

本帖最後由 GBKEE 於 2012-6-1 07:25 編輯

回復 3# alumi

'建立一模組名稱為主程式內的程序
Option Explicit
Private Sub Auto_Open() '檔案開啟時自動執行的程式
Dim xlvbe As Variant, xlArray(), xlPath As String
xlPath = "D:\模組區\" '模組存放路進
xlArray = Array("模組1.bas", "模組2.bas", "模組3.bas") '陣列:更新的模組
With ThisWorkbook.VBProject
For Each xlvbe In .VBComponents
If xlvbe.Name <> "主程式" And xlvbe.Type = vbext_wt_Designer Then 'xlVba.Type = 1 模組
.VBComponents.Remove xlvbe '移除所有模組不包含"主程式"
End If
Next
For Each xlvbe In xlArray
If Dir(xlPath & xlvbe) <> "" Then .VBComponents.Import xlPath & xlvbe
'Import 匯入模組
Next
End With
End Sub

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 102
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-3

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章