アンケート一覧ページでアンケートを探す
maz********

2008/9/18 1:38

33回答

IEでファイルダウンロードするときに出てきたwindowに保存ファイル名を入力して保存ボタンを押すの作業はVBAを使ってマクロ化(自動化)したいです。実現できますか？

IEでファイルダウンロードするときに出てきたwindowに保存ファイル名を入力して保存ボタンを押すの作業はVBAを使ってマクロ化(自動化)したいです。実現できますか？ VBAでファイルダウンロードのwindowはどうやってコントロールできますか？ よろしくお願いします

補足

”ファイルのダウンロード”ダイヤログboxをコントロールしたいですが Public Const BM_CLICK = &HF5 Public Const WM_ACTIVATE = &H6 Const W_NAME As String = "ファイルのダウンロード" Const B_NAME As String = "保存(&S)" dlg_hwnd = FindWindow("#32770", W_NAME) btn = FindWindowEx(dlg_hwnd, 0&, "Button", B_NAME) Call PostMessage(btn, WM_ACTIVATE, 1&, 0&) Call PostMessage(btn, BM_CLICK, 0&, 0&) どこがまちがっていた？

Visual Basic・14,365閲覧・xmlns="http://www.w3.org/2000/svg">500

新機能 AI回答テストを実施中！ テスト対象カテゴリ：歴史・悩み相談 ※回答がつかない場合は、画面のリロードをお試しください

ベストアンサー

このベストアンサーは投票で選ばれました

cry********

2008/9/18 14:26

APIのFindWindowやFindWindowEx等でダイアログやボタンのハンドルを取得して、SendMessageやPostMessageでメッセージを送ることで処理できるかと思います。 「[VBA]「名前を付けて保存」ダイアログの自動入力(保存先のみ)&保存」 http://www.google.com/notebook/public/00858674404220013216/BDSKpIgoQgfj8nscj ただ処理が若干複雑になってしまいますので、ダウンロードするファイルのURLが分かっている場合には、APIのURLDownloadToFileを使用した方が簡単に処理できます。 ---------------------------------------------------------------------------- '標準モジュールに記述 Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Sub FileDownLoad() Const FILE_PATH As String = "C:\TEST.pdf" Const URL As String = "http://www.nta.go.jp/tetsuzuki/shinkoku/shotoku/yoshiki01/shinkokusho/01a.pdf" Call URLDownloadToFile(0&, URL, FILE_PATH, 0&, 0&) MsgBox "処理が終了しました。" End Sub ---------------------------------------------------------------------------- 「三流君VBAURLDownloadToFile APIを使用してダウンロードしてみた」 http://www.ken3.org/vba/backno/vba120.html

NEW! この回答はいかがでしたか？ リアクションしてみよう

その他の回答（2件）

lll********

2008/9/19 9:42（編集あり）

結論から言うと、VBAだけでは「簡単には」実現できないようです。少なからずVB側だけでの処理はできかねるので、判断をWindowsOSにて認知してもらうとか、他ツールなどを用いて作業ツール遷移の履歴などを知らせてもらうとかいう処理の類になります。 よって、WindowsOSにて認知してもらう場合には、WindowsAPIを使用することになるので、Windowsの仕組みとかAPI関数とはどういうものなのかも理解していないと、思わぬ場所でエラーが起こった場合、原因発見から解決までに結構な時間を要することにもなりかねません。 sendkeysを用いればいいという意見もあるようですが、この関数の仕様は下記の通りとなります。 「キーボードから入力されたかのように、現在の入力フォーカスのあるウィンドウにデータを送ります。」 フォーカス移動が起こらないようにしなければいけないわけで、何のVBAだかは不明ですが、基本VBAはMicrosoft製品の機能拡張を行うことを目的としたもので、マクロ実装を行ったファイルを起動させている状態かつ、そのファイルで何かしらのイベントをきっかけとして動作するものです。 sendkeysを用いてのIEからのファイルダウンロードウインドウの操作を行うには、sendkeysの仕様上フォーカスをファイルダウンロードウインドウに保持させている状態でなくてはならく、フォーカスを移動させないようなVBAでのイベントを探し、そこにsendkeysを実行しなければならないという事になると思います。当方は残念ながらその方法については存じ上げません。（APIとか使えば可能かもしれませんが、単純に実装できるとは思えません。） 過去に似たような質問をgooのほうでしているようでしたので、ご参考にしてみてください。（他ツールを利用してみるという意見のようでしたが・・・） http://oshiete1.goo.ne.jp/qa4223655.html

lit********

2008/9/18 8:41

sendkeys "c:\aaa.lzh" sendkeys "{enter}" 保存名にパスをつけると、選択窓をその位置にしなくても、書いた場所に保存されます。 ただし、フォルダ名もファイル名も英数字にしないと大変です。