37.Excelのマクロを実行する



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

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」をPUSH! 
   => ダウンロード ・・・ 下に書いてあるサンプルソースと同じです


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


< SAMPLE >
’フォームにはコマンドボタンを1つ貼りつけた状態です。

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




Visual Basic 技術テクニックへ

ホーム PV ランキング