1. はじめに

Excel業務の自動化と“起動時制御”の課題

Excelのブックを開くだけで、自動的に処理を開始させることができます。

ただし、Accessと違い Excelでは「自動実行を制御する仕組み」が標準ではありません。
ブックを開くたびに必ず処理が始まるので、メンテナンスや検証の際にはやや不便です。

「起動時に自動実行するか」を設定ファイルに記載し、起動時にこのファイルに従って制御すると、この問題が解消できます

2. 外部設定ファイル（INI）の準備

Excelの起動設定を制御するため、.ini ファイルに設定値をまとめて管理します。

INIファイルとは

セクションという単位( [●●●] )ごとに、キー名称と値をそれぞれ設定できます。
今回は test セクションの中の OpenExeF（起動時実行フラグ）を読み取ります。

[default]
; テンプレート（共通定義）
ApiKey =
OpenExeF =  


[test]
ApiKey = test-api-key-123
; 自動実行フラグ（1=自動実行、0=手動）
OpenExeF =    0

3. 起動時の自動実行を制御する（VBAトリガー）

起動制御のベースとなるのは、Excelブックの Workbook_Open() イベントです。

処理の流れは次のとおりです。
１．Power Queryの更新を開始する
２．INIの設定値を取得する
３．後続処理（今回はメッセージポップアップ）します

今回はまったこととして、Power Queryの更新は非同期のため、
クエリ完了を待たずに次の処理へ進み、設定が正しく反映されないことがありました。

そのため、クエリの更新完了を待機する一行を入れておきます。

Private Sub Workbook_Open()
    Application.EnableEvents = False
    Application.ScreenUpdating = False

    ' 設定読込クエリを更新 → 完了待ち
    ThisWorkbook.Queries("設定読込").Refresh
    Application.CalculateUntilAsyncQueriesDone

    ' 例：結果表示（任意。設定読込シートC2にModeなどを出す想定）
    On Error Resume Next
    MsgBox "現在の設定は " & Worksheets("設定読込").Range("C2").Value & " です"
    On Error GoTo 0

    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

4. Power Query によるiniファイルの呼出

Power QueryでINIファイルを読み込み、指定セクションとキーの値を抽出します。
Power Query エディターで「詳細エディター」を開き、以下のコードを貼り付けます。

※なお、クエリ名は「設定読込」と設定しておきましょう。

パワークエリ（M言語）コード

※１行目と２行目のファイル名とフォルダパス、及び最終数行のフィルタについては、環境に合わせて適宜修正してください

let
    // パス設定
    フォルダーパス = "C:\Users\kenic\Downloads\2025.10.31_自動実行制御\",
    ファイル名 = "test.ini",
    INIパス = (if Text.EndsWith(フォルダーパス, "\") then フォルダーパス else フォルダーパス & "\") & ファイル名,

    // INI読み込みと整形
    行データ = Lines.FromBinary(File.Contents(INIパス)),
    空白除去 = List.Transform(行データ, each Text.Trim(_)),
    有効行 = List.Select(空白除去, each _ <> "" and not Text.StartsWith(_, ";") and not Text.StartsWith(_, "#")),

    // セクション・キー・値の抽出
    抽出結果 =
        List.Accumulate(
            有効行,
            [セクション = null, 行リスト = {}],
            (状態, 行) =>
                if Text.StartsWith(行, "[") and Text.EndsWith(行, "]") then
                    [セクション = Text.BetweenDelimiters(行, "[", "]"), 行リスト = 状態[行リスト]]
                else if Text.Contains(行, "=") then
                    [セクション = 状態[セクション],
                     行リスト = 状態[行リスト] & {
                        [セクション = if 状態[セクション] = null then "default" else 状態[セクション],
                         キー = Text.Trim(Text.BeforeDelimiter(行, "=")),
                         値 = Text.Trim(Text.AfterDelimiter(行, "="))]
                     }]
                else 状態
        )[行リスト],

    // テーブル化と重複処理
    INI表 = Table.FromRecords(抽出結果),
    逆順 = Table.ReverseRows(INI表),
    重複除去 = Table.Distinct(逆順, {"セクション", "キー"}),
    元順序 = Table.ReverseRows(重複除去),

    // 絞り込みと型変換
    抽出行 = Table.SelectRows(元順序, each ([セクション] = "test") and ([キー] = "OpenExeF")),
    型変換 = Table.TransformColumnTypes(抽出行, {{"値", type number}})
in
    型変換

5. 応用

設定を外だしすることで、今回のように起動時の制御をするだけでなく
複数のブックから共通の設定を参照できます。

たとえば――

パス設定管理：ログファイルの保存先を指定可能
APIキーを共通管理：ブックを配布しても内部にキーを残さず、安全に共有可能
APIキーの定期変更にも対応：.ini ファイルを入れ替えるだけで反映可能

このように、設定をExcel外に切り出してPower Queryで読み込む構成は、
「起動制御」だけでなく 環境管理・機密管理の基盤 としても活用できます。

6. まとめ

.ini ファイルは、Excel業務自動化のための設定の中核です。
各ブックが起動時に参照できるため、
最新の設定情報を外部から柔軟に制御できます。