Microsoft Excel VBA - 組み込みコマンドのIDと名前の一覧をテキストファイルに出力する方法

◆概要

のページは、Excel97のVBAで組み込みコマンドのIDと名前の一覧をテキストファイルに出力する方法について記載しています。

P> ◆Sample code
次のプロシージャを任意のOfficeアプリケーションで実行すると、そのOfficeアプリケーションのすべての組み込みコマンドのIDと名前の一覧をテキストファイル(Bookが保存されているフォルダのids.txt)に出力します。
取得できた組み込みコマンドのIDと名前は、ツールバーにコントロールを追加する方法で利用すると良いでしょう。

Sub outputIDs()

    Dim cbr As Object, btn As Object
    Dim i%
    Dim Filename As String  'ファイル名を格納する変数

    Const maxID = 4000

    'ファイル名の設定
    Filename = ActiveWorkbook.Path & "\ids.txt"

    'ファイルを書き込み用に開く
    Open Filename For Output As #1

    '利用可能なすべてのメニュー項目とツールバー コントロールを割り当てる
    '一時的なコマンドバーを作成します。
    Set cbr = CommandBars.Add("Temporary", msoBarTop, False, True)
    
    For i% = 1 To maxID
        On Error Resume Next
        cbr.Controls.Add ID:=i
    Next

    On Error GoTo 0

    '書くコントロールのIDと名前を出力ファイルに書き出します。
    For Each btn In cbr.Controls
        Write #1, btn.ID, btn.Caption
    Next

    '一時的なコマンド バーを削除し、出力ファイルを閉じます。
    cbr.Delete
    Close #1

End Sub
　　

▼ページトップへ