プロが教えるわが家の防犯対策術!

特定のHPにExcelマクロでHP上にあるダウンロードボタンをクリックし
ファイルをダウンロードする方法を知りたいのですが、ご存知の方がいらっしゃったら
お願いします。

現在、構文はここまで出来ております。

-----------------------------------------------------------------------------------

Sub HPからDL()

Dim objIE As InternetExplorer

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Visible = True
objIE.Navigate "http********************"

-----------------------------------------------------------------------------------

対象HPには、"CSV出力"のボタンを押せばダウンロード開始されて保存先を指定するように
表示されます。
CSV出力ボタンのソースコードでは下記のように書いてあります。
-----------------------------------------------------------------------------------
</p>
<input type="submit" value="CSV出力"/>
</p>
</form>
-----------------------------------------------------------------------------------
"CSV出力"ボタンをクリックするために、ID・name属性が付与されていれば
"document.getElementsByName(★)" で検索可能ですが、属性指定がない為
指定ができないので教えて頂ければと思います。

「ExcelマクロでIEのHP上のダウンロ」の質問画像

A 回答 (3件)

総当たりで


For Each x In objIE.document.Forms(0).All
If x.Title = "CSV出力" Then
x.Click
End If
Next
とかは
If x.Title = "CSV出力" Then

If x.Value = "CSV出力" Then
かも・・・
    • good
    • 0

Submitボタンなのでformが1個だけだった場合はこうではないでしょうか。



objIE.Document.forms(0).Submit
    • good
    • 0

番号で指定する




'最初のフォームの最初のエレメントをクリックする
objIE.Document.forms(0).elements(0).click()

http://invest.biz-prog.net/p_progtip/ie_ctrl.htm …
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!