Basic認証後にExcelファイルをDLするには? 削除
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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。