Hur du dynamiskt lägger till och kör ett VBA-makro Visual Basic

Steg för att skapa exemplet

1. Skapa först en ny textfil med namnet KbTest.bas (utan .txt. Det här är kodmodulen som vi infogar Excel i körningen.

2. Lägg till följande rader med kod i textfilen:

      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. Spara textfilen i katalogen C:\KbTest.bas och stäng sedan filen.

4. Börja Visual Basic och skapa ett vanligt projekt. Formulär1 skapas som standard.

5. På menyn Project klickar du på Slutledning och väljer sedan lämplig typ av biblioteksversion så att du kan använda tidig bindning till Excel.
   
   Välj till exempel något av följande:

   • För Microsoft Office Excel 2007 väljer du 12.0-biblioteket.

   • För Microsoft Office Excel 2003 väljer du 11.0-biblioteket.

   • För Microsoft Excel 2002 väljer du 10.0-biblioteket.

   • För Microsoft Excel 2000 väljer du 9.0-biblioteket.

   • För Microsoft Excel 97 väljer du 8.0-biblioteket.

6. Lägg till en knapp i Formulär1 och placera följande kod i hanteraren för knappens Klick-händelse:

      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. För Excel 2002 och för senare versioner Excel måste du aktivera åtkomst till VBA-projektet. Detta gör du på något av följande sätt:

   • I Excel 2007 klickar du på Microsoft Office och sedan på Alternativ Excel alternativ. Klicka på Säkerhetscenter och sedan på Säkerhetscenter Inställningar. Klicka på Inställningar, markera kryssrutan Lita på Access till VBA-projektobjektmodellen och klicka sedan på OK två gånger.

   • I Excel 2003 och i tidigare versioner Excel du på Makro på menyn Verktyg och klickar sedan på Säkerhet. I dialogrutan Säkerhet klickar du på fliken Betrodda källor och markerar kryssrutan Åtkomst till betrodda Visual Basic Project betrodda källor.

8. Kör Visual Basic projekt.