DOSコマンドで実行させたプログラムのhWndの取得方法

質問

こんにちわ

セキュリティの問題上、VBA以外のアプリを利用出来ない環境で
毎日、100個くらいのExcelのマクロを実行しなければならなくて
困っています

Excelファイルオープン時に、「マクロを有効にする」をクリックすると
その後は、自動的にマクロが実行され、Excelは自動的に閉じますが
その単純作業の為に、席を離れられません。
(マクロの種類は100種類くらいあり、処理を統一化出来ないのでExcelファイルを開いては、「マクロを有効にする」
を繰り返えざる得ません)

以下の様な、処理を行って、自動化したいと思ってます(VBAで)が、
良い案が探せません

(1)フォルダ内のExcelファイル名を全て配列変数へ格納する

(2)ファイルの数だけLOOP処理を行う（以下を(3)～(5)まで繰り返す）
(3)VBAでDOSコマンドを実行→Excelファイルを開く
(4)API関数を用いて、「マクロを有効にする」をクリック
　(GetMessageを利用すれば、良いかと考えてます)
(5)次のファイルをDOSコマンドを実行→Excelファイルを開く
(6)処理終了

ここで、(4)を行う為に、(2)の処理で起動されたExcelのPopUp画面のhWndを正しく取得する方法の見当がつきません・・・・。
どうかご教授の程、宜しくお願い致します
m(__)m

回答No.2

KenKen_SP · ベストアンサー

> (3)VBAでDOSコマンドを実行→Excelファイルを開く

VBA を使える環境にあって、何故 DOSコマンドなのでしょうか？
単純に起動用のブックをつくれば良いだけでは？

「マクロを有効にする？」の警告ダイアログが表示されるのは、手動操作
によってブックを開くときのみです。
VBA や WHS からマクロ付きブックを開いても警告ダイアログは表示されず、
サクっと開くはずですが・・

動かしたいものが Workbook_Open とか Auto_Open などの自動実行マクロ
ということなら、シンプルにこんな感じで。

Sub Sample()
　　Dim xlWb As Workbook
　　Dim i As Integer
　　For i = 1 To 100
　　　　Set xlWb = Workbooks.Open("C:\Test" & Cstr(i) & ".xls")
　　　　' Auto_Open 等のマクロが自動実行される
　　　　' その自動実行マクロが完了するまで、こちら側は待機
　　　　xlWb.Close SaveChanges:=True
　　Next i
　　Set xlWb = Nothing
End Sub

上記コードは Excel VBA ですが、WSH でも同じことは可能でしょう。

ただ、処理の内容にもよるかもしれません。

非同期処理（マクロが完了しても Excel が動き続けている処理。代表的
なものは Webクエリー絡み）が含まれる場合は、上記の方法では全ての
Excel の動作が完了する前にブックを閉じてしまうかもしれません。
対処法としては別プロセスの Excel 側でブックを開くようし、
WaitForInputIdle API を使って同期をとれば良いかと思います。

お礼

Excelから他ブックをOPENさせた時の挙動を
検証せずダイアログボックスが表示される事とばかり
に決め付けていました
有難う御座います、試して見ます。

回答No.1

tsukasa-12r

どちらもあまり効率がよくありませんが、
(1) API の EnumWindows() を使用して、ウィンドウキャプションを比較してポップアップウインドウを検索する。
(2) API の GetWindow() を使用して、デスクトップの hWnd → Excel の hWnd → ポップアップウィンドウを取得。
の方法で取得可能だと思います。
(2) の方法については、
http://oshiete1.goo.ne.jp/qa3252966.html
を参考にしてみてください。

お礼

有難う御座います、見当が付きました
試して見ます。