ダウンロードダイアログでフォルダを指定する方法

Message#2 2016年12月9日(金)13時21分
From: ジャッカル

前にも同じような質問があってVBScriptかなにかで対応させたとか書いてあったと思う。

結構前だったからどこか見つけられなかったけど。

> こちらでいろいろ勉強させていただきながら、ExcelからIEを操作するマクロを作成しています。（環境：Excel2013、IE11）
>
> IE上のボタンをクリックするとcsvダウンロード用のデータが生成されてダウンロードが
> 開始するページで、
>
> 1.ボタンクリック
> 　　↓
> 2.ダウンロードダイアログが表示される
> 　　↓
> 3.名前を付けて保存を選択
> 　　↓
> 4.保存フォルダを指定（※デスクトップ上のフォルダです）
> 　　↓
> 5.保存ボタンをクリックしてファイル保存
>
> という処理をVBAで実現させたいと考えていますが、4.の保存フォルダ移動の
> 部分だけがどうしても上手くいきません。
> （※ダウンロード元のURLが採れないためURLDownloadToFileは使用できません）
>
> 名前を付けて保存ダイアログ上部にあるツールバー内のドロップダウンボタンをクリックしての移動でも、中央にある項目ビュー内のフォルダからの移動でもどちらでもよいのですが、どちらもリストのハンドルがどうしても取得できず困っています。
> Inspect Objectsで見てみても、リストにはハンドルがないように見えます（あまり見方がわかっていませんが…）。
>
> どなたか、APIでのFindWindow("#32770", "名前を付けて保存")から
> リスト取得までのコーディングをご教授いただけないでしょうか？
>
> VBScriptを起動しての実行でも結構です。
> よろしくお願いいたします。