VBA関数のCommand関数

Command関数は、VBA関数の中でWindows・その他の関数に分類される関数です。

目次

• Command関数とは
• Command関数のサンプルコード
  • 実行結果
  • 解説

Command関数とは

Command関数は、Microsoft Visual Basic または Visual Basic で開発した実行可能なプログラムを起動させるために使用するコマンド ラインの引数の部分を返します。Visual Basic の Command 関数は Microsoft Office アプリケーションでは使用できません。.

Visual Basic がコマンド ラインから起動されるとき、次に示す /cmd のようなコマンド ラインの一部がコマンド ラインの引数としてプログラムに引き渡されます。次の例では、cmdlineargs は Command 関数が返す引数情報を表します。
VB /cmd cmdlineargs
アプリケーションを Visual Basic で開発したり、EXE ファイルをコンパイルする場合、Command 関数は、コマンド ライン上のアプリケーションの名前の後の引数を返します。次に例を示します。
MyApp cmdlineargs
使用しているアプリケーションのユーザー インターフェイスで変更できるコマンド ラインの引数を調べるには、ヘルプで "コマンド ラインの引数" を検索してください。

Command関数のサンプルコード

次の例は、Command 関数を使って、配列を格納したバリアント型 (Variant) を返す関数のコマンド ラインの引数を取得します。Microsoft Office.では、この関数は使用できません。

Function GetCommandLine(Optional MaxArgs)
    ' 変数を宣言します。
    Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
    ' MaxArgs が提供されるかどうかを調べます。
    If IsMissing(MaxArgs) Then MaxArgs = 10
    ' 現在のサイズの配列にします。
    ReDim ArgArray(MaxArgs)
    NumArgs = 0: InArg = False
    ' コマンド ラインの引数を取得します。
    CmdLine = Command()
    CmdLnLen = Len(CmdLine)
    ' 同時にコマンド ラインの引数を取得します。
    For I = 1 To CmdLnLen
        C = Mid(CmdLine, I, 1)
        ' スペースまたはタブを調べます。
        If (C <> " " And C <> vbTab) Then
            ' スペースまたはタブのいずれでもありません。
            ' 既に引数の中ではないかどうかを調べます。
            If Not InArg Then
            ' 新しい引数が始まります。
            ' 引数が多すぎないかを調べます。
                If NumArgs = MaxArgs Then Exit For
                    NumArgs = NumArgs + 1
                    InArg = True
                End If
            ' 現在の引数に文字を追加します。
            ArgArray(NumArgs) = ArgArray(NumArgs) & C
        Else
            ' スペースまたはタブを見つけました。
            ' InArg フラグに False を設定します。
            InArg = False
        End If
    Next I
    ' 引数がすべて格納できるように配列のサイズを変更します。
    ReDim Preserve ArgArray(NumArgs)
    ' 関数名に配列を返します。
    GetCommandLine = ArgArray()
End Function

実行結果

解説

Windows・その他の関数一覧