Làm thế nào để tự động thêm và chạy macro VBA từ Visual Basic

Các bước xây dựng mẫu

1. Trước tiên, hãy tạo một tệp văn bản mới có tên là KbTest.bas (không có phần mở .txt mới). Đây là mô-đun mã mà chúng tôi sẽ chèn vào Excel thời gian chạy.

2. Trong tệp văn bản, hãy thêm các dòng mã sau đây:

      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. Lưu tệp văn bản vào thư mục C:\KbTest.bas, rồi đóng tệp.

4. Bắt Visual Basic và tạo dự án chuẩn. Form1 được tạo theo mặc định.

5. Trên menu Project, bấm vào Tham vấn, rồi chọn phiên bản thư viện loại phù hợp, cho phép bạn sử dụng gắn kết sớm với thư viện Excel.
   
   Ví dụ: chọn một trong các mục sau:

   • Ví Microsoft Office Excel 2007, chọn thư viện 12.0.

   • Ví Microsoft Office Excel 2003, chọn thư viện 11.0.

   • Ví Microsoft Excel 2002, chọn thư viện 10.0.

   • Ví Microsoft Excel 2000, hãy chọn thư viện 9.0.

   • Ví Microsoft Excel 97, chọn thư viện 8.0.

6. Thêm một nút vào Form1 và đặt mã sau đây trong bộ xử lý cho sự kiện Click của nút:

      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. Đối Excel 2002 và đối với các phiên bản mới hơn của Excel, bạn phải bật truy nhập vào dự án VBA. Để thực hiện việc này, hãy sử dụng một trong các phương pháp sau:

   • Trong Excel 2007, bấm vào nút Microsoft Office, rồi bấm vào tùy Excel chọn. Bấm Trung tâm Tin cậy, rồi bấm Trung tâm Tin cậy Cài đặt. Bấm Macro Cài đặt, bấm để chọn hộp kiểm Tin cậy Access vào mô hình đối tượng dự án VBA, rồi bấm OK hai lần.

   • Trong Excel 2003 và trong các phiên bản Excel cũ hơn, trỏ tới Macrotrên menu Công cụ, rồi bấm vào Bảo mật. Trong hộp thoại Bảo mật, hãy bấm tab Nguồn Tin cậy, rồi bấm để chọn hộp kiểm Truy nhập tin Visual Basic Project Tin cậy.

8. Chạy dự Visual Basic án mới.