３７．Excelのマクロを実行する



＜　使用用途　＞
プログラムからExcelアプリケーションのマクロ操作を行う事が出来る

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」をＰＵＳＨ！　
　　　＝＞　ダウンロード　・・・　下に書いてあるサンプルソースと同じです

＜　説明　＞
プログラムからExcelアプリケーションのマクロを実行する

<　ＳＡＭＰＬＥ　＞
’フォームにはコマンドボタンを１つ貼りつけた状態です。

Private Sub Command1_Click()

On Error GoTo dbg:
    ' Excelのインスタンス作成
    Set xlApp = CreateObject("Excel.Application")
    ' Excelの表示有無
    xlApp.Visible = True
    ' マクロの警告やメッセージを表示しないように設定
    xlApp.DisplayAlerts = False
    ' 指定したExcelファイルを開く
    Set xlBook = xlApp.Workbooks.open("D:\test.xls")
    ' マクロの実行(Macro1というユーザー作成マクロを実行)
    ' 実行する前にエクセルファイルにマクロを作成しておいて
    ' 下さい
    xlApp.run ("Macro1")
    ' Excelの終了
    xlApp.Quit
    ' オブジェクトを解放
    Set xlBook = Nothing
    Set xlApp = Nothing
    Exit Sub

dbg:
    ' エラーメッセージを表示
    MsgBox Err.Description

End Sub