VBAでIEのファイルを自動的にダウンロードしたい

Web上のファイルをダウンロードするアプリをvbaで作っています。
以下を参考にしました。
https://www.vba-ie.net/element/subroutine-filedo …
https://okwave.jp/qa/q8035721.html

しかしながら添付図の様に保存ボタンの出るものはどうしたらよいでしょうか。
色々試した所、Ｗｅｂ上に載っている画像やファイルなら、
直接 URLDownloadToFile 関数でＵＲＬからファイルにできます。
『ダウンロードすると危険が』などのセキュリティの警告ダイアログは、
SendKeysなどで＜ＯＫ＞ボタンを押すことができます。

ですが図の部分が突破できません。
おそらく実体のファイルは別の場所にあり、
保存ボタンによってスクリプトが動いてダウンロードさせる仕組みだと思います。
保存ボタンですらＩＥが内部で表示させているようです。

ＩＥのオブジェクト変数を調べ、Ｗｅｂの情報から
ファイルのＵＲＬを知ることができませんでした。

保存ボタンの次に進むにはどうしたらよいでしょうか。
教えてください。よろしくお願いします。

質問者からの補足コメント

• アドバイスありがとうございます。
  ここまでやってみましたが、保存ボタンのアンカーエレメントは存在しませんでした。
  やはりＩＥが画面の中で別物で出しているダイアログのようです。
  存在しないアイテムにクリックイベントは発行できないですね。
  Dim wHtBody As HTMLBody
  Set wHtBody = wIeObjc.body
  For iix = 0 To wHtBody.All.length
  If TypeName(wHtBody.All.Item(iix)) = "HTMLAnchorElement" Then
  Debug.Print (iix + 1) & " " & wHtBody.All.Item(iix).title & _
  " " & wHtBody.All.Item(iix).innerText
  End If
  Next

  No.1の回答に寄せられた補足コメントです。 補足日時：2018/04/15 21:48

No.1 回答者： GooUserラック 回答日時： 2018/04/15 10:57

Ｗｅｂ上の物は仕組みがバラバラなので対象のサイトによって対応を変えないとダメです。

対象のＵＲＬを提示していただかないと具体的な対応は不可能だと思います。

もしかしたら SendKeys で [Alt]+[S] でどうにかなるかもしれません。

この回答へのお礼

回答ありがとうございます。
目的は会社で社内ホームページに掲載された資料の
ファイルダウンロードまでの完全自動化なのです。

対象のＵＲＬを提示と言うのはなかなか例がないのですが、
YoutubeのＵＲＬを貼るとそこからＭＰ３（音声）を落とせると言うサイトがあり、
ここでして、ＵＲＬ貼り付け、スタートボタンを押すと、
ダウンロード開始となります。
https://www.onlinevideoconverter.com/ja/video-co …

しかしながらこれを例として説明して、
サイトが閉鎖されても困るのです。
まあここのサイトを自動化するのではなく、あくまでも目的は会社のサイトの
ダウンロードなので、例として載せました。
Windows7 だとまったく同じ＜保存＞ボタンが出ます。
診断の程、よろしくお願いします。

お礼日時：2018/04/15 11:35