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

沒有留言:

[Excel]如何創建自定義函數

在 Excel 內建函式中找不到自已想要的函式怎麼辦?事實上我們可以自已建一個,以下是一個簡單的Excel自定義函數示例,用於將民國年轉為西元: Function 民國轉西元(x As Double) As Double     民國轉西元 = x + 1911 End Func...