投稿/コメントを表示します。

こんばんは。
東京青果情報センターからCSVファイルを抜き出すマクロを書いてみました。
ダウンロードボタンを押すところまで出来たのですが、その先がわかりません。
ダウンロードのダイアログボックスをコントロールすることは可能でしょうか。
Option Explicit
'以下に紹介するライブラリの参照設定をしてください
'Microsoft Internet Controls -> IEを制御するため
Sub 野菜()
    Dim objIE As New InternetExplorer, myrow As Long, i As Long
    objIE.Visible = True
    
    Dim url As String
    url = "http://www.info-seikabutu.jp/junpou_geppouNEW1.html?time=" & Format(Now, "yymmddhhnnss")
    '↑参考までに、SSLの場合もそのまま使えます。
    
    'テストページを、IDで読み込みます
    objIE.navigate url
    
    'ページの表示完了待ち
    Do While objIE.readyState <> 4 Or objIE.Busy = True
        DoEvents
    Loop
Dim oH
For Each oH In objIE.Document.getElementsBytagname("a")
If InStr(oH.innertext, "市場別入荷量と価格") > 0 Then
oH.Click
Exit For
End If
    
Next oH
objIE.Quit
End Sub




2015/04/07 08:49