2009年7月19日 星期日

在巨集中呼叫外部巨集文字檔的方法

1.需將巨集安全性設定中的 [ 信任存取 Visual Basic 專案 ] 的項目打開, 如無開啟會出現 [ 執行期錯誤: 1004 ]的錯訊息。


2.建立一個巨集輸入下面代碼

'匯入 VBA 巨集的文字檔
Me.VBProject.VBComponents.Import Filename:="X:\XXXX\test.vbs"

'執行匯入巨集程式
Result = Application.Run("巨集名稱", "Arg#1","Arg#2")

'將匯入之巨集移除,不然下次執行時會出現錯誤
Me.VBProject.VBComponents.Remove Me.VBProject.VBComponents.Item(Me.VBProject.VBComponents.Count)

'顯示傳回結果
MsgBox Result