如何動態新增及執行 VBA 宏Visual Basic

建立範例的步驟

1. 首先，建立名為 KbTest.bas (副檔名.txt副檔名) 。 這是我們會于Excel插入程式碼模組。

2. 在文字檔中，新增下列程式碼：

      Attribute VB_Name = "KbTest"
   
      ' Your Microsoft Visual Basic for Applications macro function takes 1 
      ' parameter, the sheet object that you are going to fill.
   
      Public Sub DoKbTest(oSheetToFill As Object)
         Dim i As Integer, j As Integer
         Dim sMsg As String
         For i = 1 To 100
            For j = 1 To 10
   
               sMsg = "Cell(" & Str(i) & "," & Str(j) & ")"
               oSheetToFill.Cells(i, j).Value = sMsg
            Next j
         Next i
      End Sub
   

3. 將文字檔儲存到 C：\KbTest.bas 目錄，然後關閉檔案。

4. 開始Visual Basic建立標準專案。 表單 1 預設為建立。

5. 在[Project功能表上，按一下 [參照，然後選取適當的型別程式庫版本，讓您使用早期裝訂Excel。
   
   例如，選取下列其中一項：

   • 針對 Microsoft Office Excel 2007，選取 12.0 文件庫。

   • 針對 Microsoft Office Excel 2003，選取 11.0 文件庫。

   • 針對 Microsoft Excel 2002，選取 10.0 文件庫。

   • 針對 Microsoft Excel 2000，選取 9.0 文件庫。

   • 針對 Microsoft Excel 97，選取 8.0 文件庫。

6. 新增按鈕至 Form1，然後針對按鈕的 Click 事件將下列程式碼放在處理常式中：

      Private Sub Command1_Click()
         Dim oXL As Excel.Application
         Dim oBook As Excel.Workbook
         Dim oSheet As Excel.Worksheet
         Dim i As Integer, j As Integer
         Dim sMsg As String
   
       ' Create a new instance of Excel and make it visible.
         Set oXL = CreateObject("Excel.Application")
         oXL.Visible = True
   
       ' Add a new workbook and set a reference to Sheet1.
         Set oBook = oXL.Workbooks.Add
         Set oSheet = oBook.Sheets(1)
   
       ' Demo standard Automation from out-of-process,
       ' this routine simply fills in values of cells.
         sMsg = "Fill the sheet from out-of-process"
         MsgBox sMsg, vbInformation Or vbMsgBoxSetForeground
   
         For i = 1 To 100
            For j = 1 To 10
               sMsg = "Cell(" & Str(i) & "," & Str(j) & ")"
               oSheet.Cells(i, j).Value = sMsg
            Next j
         Next i
   
       ' You're done with the first test, now switch sheets
       ' and run the same routine via an inserted Microsoft Visual Basic 
       ' for Applications macro.
         MsgBox "Done.", vbMsgBoxSetForeground
         Set oSheet = oBook.Sheets.Add
         oSheet.Activate
   
         sMsg = "Fill the sheet from in-process"
         MsgBox sMsg, vbInformation Or vbMsgBoxSetForeground
   
       ' The Import method lets you add modules to VBA at
       ' run time. Change the file path to match the location
       ' of the text file you created in step 3.
         oXL.VBE.ActiveVBProject.VBComponents.Import "C:\KbTest.bas"
   
       ' Now run the macro, passing oSheet as the first parameter
         oXL.Run "DoKbTest", oSheet
   
       ' You're done with the second test
         MsgBox "Done.", vbMsgBoxSetForeground
   
       ' Turn instance of Excel over to end user and release
       ' any outstanding object references.
         oXL.UserControl = True
         Set oSheet = Nothing
         Set oBook = Nothing
         Set oXL = Nothing
   
      End Sub
   

7. 針對 Excel 2002 和較新版本的 Excel，您必須開啟存取 VBA 專案。 若要解決此問題，請使用下列其中一種方法：

   • 在 Excel 2007 中，按一下 [Microsoft Office按鈕，然後按一下 [Excel選項。 按一下[信任中心，然後按一下信任中心設定。 按一下[宏設定，按一下以選取[信任存取至 VBA專案物件模型> 核取方塊，然後按一下 [確定兩次。

   • 在 Excel 2003 和較舊版本的 Excel 中，指向 [工具Excel 功能表上的 [宏，然後按一下 [安全性> 。 在 [安全性」對話方塊中，按一下 [信任的來源Visual Basic Project核取方塊。

8. 執行Visual Basic專案。