次の方法で共有


シェル プロセスの終了日時を調べる

Visual Basic for Applications (VBA) プロシージャで Shell 関数を実行すると、実行可能プログラムが非同期的に開始され、プロシージャに制御が返されます。 このシェル プログラムは、終了されるまでユーザーのプロシージャとは関係なく実行を続けます。

プロシージャがシェル プロセスの終了を待機する必要がある場合、Windows API を使用してアプリケーションの状態をポーリングできますが、この方法はあまり効率的ではありません。 このトピックでは、より効率的な方法について説明します。

Windows API には、シェル プロセスが完了するまでアプリケーションが待機できるようにする機能が統合されています。 これらの機能を使用するには、シェル プロセスへのハンドルが必要です。 ハンドルを取得するには、Shell 関数の代わりに CreateProcess 関数を使用してシェル プログラムを開始する必要があります。

シェル化されたプロセスを作成する

アドレス指定できるプロセスを作成するには、CreateProcess 関数を使用してシェル アプリケーションを開始します。 CreateProcess 関数を使用すると、プログラムに渡されるパラメーターの 1 つを通じて、プログラムにシェル プロセスのプロセス ハンドルが提供されます。

シェル化されたプロセスが終了するまで待ちます

CreateProcess 関数を使ってプロセス ハンドルを取得した後で、そのハンドルを WaitForSingleObject 関数に渡すことができます。 これにより、VBA プロシージャはシェル プロセスが終了するまで実行を中断します。

次の手順は、 CreateProcess 関数を使用して Windows メモ帳アプリケーションを実行する VBA プロシージャを構築するために必要です。 このコードは、Windows API の CreateProcess 関数と WaitForSingleObject 関数を使用して、シェル プロセスの終了を待機してから実行を再開する方法を示します。

CreateProcess 関数の構文は複雑なため、このコード例では ExecCmd という名前の関数にカプセル化されています。 ExecCmd が受け取るパラメーターは、実行するアプリケーションのコマンド ラインです。

  1. 標準モジュールを作成し、次の行を宣言セクションに貼り付けます。

    Option Explicit 
    
    Private Type STARTUPINFO 
    cb As Long 
    lpReserved As String 
    lpDesktop As String 
    lpTitle As String 
    dwX As Long 
    dwY As Long 
    dwXSize As Long 
    dwYSize As Long 
    dwXCountChars As Long 
    dwYCountChars As Long 
    dwFillAttribute As Long 
    dwFlags As Long 
    wShowWindow As Integer 
    cbReserved2 As Integer 
    lpReserved2 As Long 
    hStdInput As Long 
    hStdOutput As Long 
    hStdError As Long 
    End Type 
    
    Private Type PROCESS_INFORMATION 
    hProcess As Long 
    hThread As Long 
    dwProcessID As Long 
    dwThreadID As Long 
    End Type 
    
    Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _ 
    hHandle As Long, ByVal dwMilliseconds As Long) As Long 
    
    Private Declare Function CreateProcessA Lib "kernel32" (ByVal _ 
    lpApplicationName As Long, ByVal lpCommandLine As String, ByVal _ 
    lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _ 
    ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _ 
    ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _ 
    lpStartupInfo As STARTUPINFO, lpProcessInformation As _ 
    PROCESS_INFORMATION) As Long 
    
    Private Declare Function CloseHandle Lib "kernel32" (ByVal _ 
    hObject As Long) As Long 
    
    Private Const NORMAL_PRIORITY_CLASS = &H20& 
    Private Const INFINITE = -1& 
    
    
  2. 次のコードをモジュールに貼り付けます。

    Public Sub ExecCmd(cmdline As String) 
    Dim proc As PROCESS_INFORMATION 
    Dim start As STARTUPINFO 
    Dim ReturnValue As Integer 
    
    ' Initialize the STARTUPINFO structure: 
    start.cb = Len(start) 
    
    ' Start the shelled application: 
    ReturnValue = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, _ 
    NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc) 
    
    ' Wait for the shelled application to finish: 
    Do 
    ReturnValue = WaitForSingleObject(proc.hProcess, 0) 
    DoEvents 
    Loop Until ReturnValue <> 258 
    
    ReturnValue = CloseHandle(proc.hProcess) 
    End Sub
    
  3. 関数をテストするには、[ イミディエイト ] ウィンドウに次のコードを貼り付け、 Enter キーを押します。 メモ帳が起動します。 しばらくしてからメモ帳を閉じます。 メモ帳が閉じると、メッセージ ボックスが表示されます。

    ExecCmd "NOTEPAD.EXE": MsgBox "Process Finished" 
    

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。