AccessでExcelのマクロとデータインポートを一つのボタンで実行する方法

Microsoft Accessで、Excelのマクロ実行ボタンとデータインポートボタンを組み合わせて、1つのボタンで両方のイベントを実行する方法を解説します。これにより、操作を簡素化し、作業効率を向上させることができます。

Excelマクロとデータインポートの組み合わせ
1つのボタンで2つのプロシージャを実行する方法
イベントの順序を変更する
ボタンの設定方法
まとめ

Excelマクロとデータインポートの組み合わせ

Accessでは、VBA（Visual Basic for Applications）を使用して、異なるイベントプロシージャを1つのボタンで実行することができます。これを実現するためには、複数のイベントを1つのマクロやプロシージャにまとめ、1つのボタンに割り当てる必要があります。

具体的には、Excelのマクロを実行し、その後Excelデータをインポートするためのコードを記述し、それを一つのボタンに割り当てます。以下のように、複数のイベントを1つのボタンで実行できます。

1つのボタンで2つのプロシージャを実行する方法

まず、Excelのマクロを実行し、その後にExcelデータをインポートする手順をまとめたVBAコードを記述します。以下はその例です。

Private Sub btnExecute_Click()
    ' Excelのマクロを実行
    Dim xlApp As Object
    Dim xlBook As Object
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\path\to\your\excel_file.xlsx")
    xlApp.Run "YourMacroName"
    xlBook.Close

    ' データインポート処理
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "YourTableName", "C:\path\to\your\excel_file.xlsx", True
End Sub

このコードでは、まずExcelのマクロを実行した後、指定したExcelファイルをインポートする手順を行います。実行する順番を変更することも可能で、用途に応じて柔軟にカスタマイズできます。

イベントの順序を変更する

上記のコードでは、Excelマクロを最初に実行し、次にデータをインポートしていますが、順番を入れ替えることもできます。例えば、先にデータをインポートし、その後にExcelマクロを実行する場合、コードを以下のように変更できます。

Private Sub btnExecute_Click()
    ' データインポート処理
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "YourTableName", "C:\path\to\your\excel_file.xlsx", True

    ' Excelのマクロを実行
    Dim xlApp As Object
    Dim xlBook As Object
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\path\to\your\excel_file.xlsx")
    xlApp.Run "YourMacroName"
    xlBook.Close
End Sub

このように、VBAコード内で処理の順序を自由に変更できるので、どちらのイベントを先に実行するかはあなたのニーズに応じて決めることができます。