Q&AVBScript
1Dim excelApp : Set excelApp = CreateObject("Excel.Application") 2 3Dim targetFile : targetFile = "path/to/macro.xlsm" 4Dim targetMacro : targetMacro = "TheMacro" 5' Excelファイルを開く 6excelApp.Workbooks.Open targetFile 7' マクロの実行 8excelApp.Run targetMacro 9' Excelの終了 10excelApp.Quit
上記のようなVBScriptファイルを作成し、ダブルクリックでマクロが実行できるようにしています。
マクロの中でgetOpenFilename関数でファイルを開く処理をしているのですが、そのダイアログが最前面に表示されず、ファイルエクスプローラーなどの下にポップアップされます。
http://q.hatena.ne.jp/1331264640
https://arstechnica.com/civis/viewtopic.php?f=20&t=864645
上記の回答には、getOpenFilenameに親ウィンドウのハンドルを指定しているようですが、今回の場合は親がないのでうまくいかなそうです。
ちなみに、マクロ内でファイル保存ダイアログやフォームも使っていますが、それらは最前面に表示されます。
何か良い方法があればご教授いただければ幸いです。
回答1件
0
自己解決
二行目に以下のように記述したら最前面に表示させることができました。
VBScript
1excelApp.Visible = True 2CreateObject("WScript.Shell").AppActivate excelApp.Caption 3excelApp.Visible = False
.AppActivateは起動するアプリがvisibleでないと動作しないみたいなので、excelApp.Visible = Trueを入れました。
表示されるエクセルが一瞬チラつきます。
投稿2019/09/11 06:14
総合スコア21
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。