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標準プロジェクトを作成します。 Form1 は既定で作成されます。

5. [Project] メニューの [参照] をクリックし、適切な種類のライブラリ バージョンを選択します。このバージョンでは、初期バインドを使用してExcel。
   
   たとえば、次のいずれかを選択します。

   • 2007 Microsoft Office Excel、12.0 ライブラリを選択します。

   • 2003 Microsoft Office Excel、11.0 ライブラリを選択します。

   • 2002 Microsoft Excel、10.0 ライブラリを選択します。

   • 2000 Microsoft Excel、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. 2002 Excel以降のバージョンの場合はExcel VBA プロジェクトへのアクセスを有効にする必要があります。 これを行うには、以下のいずれかの方法を使用します。

   • 2007 Excelでは、[ボタン] ボタンをMicrosoft Officeし、[オプション] をExcelします。 [セキュリティ センター] をクリックし、[セキュリティ センターの設定] をクリックします。 [マクロ設定をクリックし、[VBA プロジェクト オブジェクト モデルへのアクセスを信頼する] チェック ボックスをオンにし、[OK] を 2 回クリックします。

   • 2003 Excel以前のバージョンの Excel で、[ツール] メニューの [マクロ] をポイントし、[セキュリティ] をクリックします。 [セキュリティ] ダイアログ ボックスで、[信頼できるソース] タブをクリックし、[信頼できるソースへのアクセスを信頼する] チェック Visual Basic Project選択します。

8. プロジェクトをVisual Basicします。