Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

859 / 886

←次へ　｜　前へ→


	【30】Re:ｓｈｅｌｌの終了と同期させるには？追加情報

H. C. Shinopy - 03/5/11(日) 8:22 -


	引用なし

	パスワード

先にVBScriptでの処理を書き込みしましたが、
Word VBAで処理する方法があることが判りました。
（不勉強で、すみません。）

後日、Excel VBAの本を見ていたら、使えそうなコードを発見しました。
（メモ帳を起動して、その終了を待つというものでした。）
それを使い回そうとしたのですが、いろいろ試した結果、
下記のコードとなりました。

１．デスクトップにABC.batがあるものとします。
　　（この処理でABCo.txtが出力されるものとします。）

２．VBE上から[ツール]の[参照設定...]で、
　　[Windows Script Host Object Model]をチェックして下さい。

３．「ChDir …」で「ABC.bat」のあるフォルダを指定します。
　　これを指定しない場合、マイドキュメントの中を見にいくようです。

Sub AbcVBA()
　　'参照設定：Windows Script Host Object Model
　　Dim myWsh　As IWshRuntimeLibrary.WshShell
　　Set myWsh = CreateObject("Wscript.Shell")
　　'
　　ChDir "C:\Documents and Settings\User\デスクトップ"
　　myWsh.Run "ABC.bat", 1, True
　　'
　　MsgBox "ABC.batが終了しました。"
　　Documents.Open "C:\Documents and Settings\User\My Documents\ABCo.txt"
　　Set myWsh = Nothing
End Sub
[終わり]

9,043 hits

▼

【23】ｓｈｅｌｌの終了と同期させるには？ てけてけ 03/4/25(金) 21:00