[[Access VBA] 任意のコマンドを実行する](http://blog.s21g.com/articles/1182)で書いた、Shell関数を使ったVBAでの任意のコマンドの実行方法は非同期なものだと知りました。 Shell関数は任意のコマンドを実行し、**コマンドの終了を待たずにShell関数の呼び出し以降のステートメントが実行**されていきます。 それではあまりうれしくないときがあるので、同期実行する方法を以下に示します。 この方法を使うと、**呼び出したコマンドが終了してから、以降のステートメントが実行**されていきます。 以下、ソースコード。 asp>> Dim strShellCommand As String ' シェルコマンド Dim objWSH As Object ' WSH strShellCommand = " " ' 実行したいコマンド ' WSHを使ってコマンドを実行する Set objWSH = CreateObject("WScript.Shell") objWSH.Run strShellCommand, vbNormalFocus, True ' 第3引数がTrueなら、同期実行 Set objWSH = Nothing <