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

a703130

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

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

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

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

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

HUNGCHILIN

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

alumi

回復 1# a703130


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

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

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

GBKEE

回復 3# alumi

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

複製代碼

Hsieh

回復 1# a703130

這類的公共程式做成增益集
到須要使用這些程式的電腦安裝增益集即可

a703130

回復 4# GBKEE

多謝大大指導

抱歉這麼晚才回覆文章