Basic認証後にExcelファイルをDLするには?
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)
Message#3 2015年8月24日(月)22時13分 From: VBAマスター | 返事 削除 変更 |
このへんですね。 http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q12141518897 Sub SendKeys3() Dim objIE As Object 'IEを開いてファイルの保存URLを開く Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.navigate "http://book.impress.co.jp/appended/3384/IE2.html" 'Busyの間、待機 Do While objIE.Busy Sleep 1 Loop 'Busyとなるまで、待機 Do Until objIE.Busy Sleep 1 Loop 'ファイルを開くダイアログが表示されるまでループ Do While objIE.hWnd = GetLastActivePopup(objIE.hWnd) DoEvents Loop SendKeys "%S", True '保存を押すキー送信 End Sub |
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降