模組是否能夠不侷限於單一excel檔案 - Excel程式區

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

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

1^# 跳轉到 »

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

複製代碼

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。