4

Excel VB マクロを使用して、会員パスワードで保護されたサイトから Excel ファイルをダウンロードしようとしています。「InternetExplorer」オブジェクトを使用してブラウザ ウィンドウを開き、ログインして正しいページを参照し、そのページで必要なリンクをスキャンしています。Excel がログに記録されていないため、Workbooks.Open(URLstring) を使用しても機能しません。実際のファイルの代わりに、ログインを求める html ページを開きます。

私の好みは、VB マクロを使用して、正しいリンクで Internet Explorer の右クリックの「対象をファイルに保存」イベントを自動化することですが、これを行う方法が正確にはわかりません。

4

2 に答える 2

1

Internet Explorer API でそれを行う方法は実際にはありません。それが単なる使い捨てのスクリプトである場合は、おそらく SendKeys を自分自身に使用することを正当化できます。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
...
Sub YourMacro()
    ... Navigate IE to the correct document, and get it to pop 
    up the "Save As" dialog ...

    Set sh = CreateObject("WScript.Shell")
    sh.AppActivate "File Download"
    sh.SendKeys "S"
    Sleep 100
    sh.SendKeys "C:\Path\filename.ext{ENTER}"
End Sub

WScript.Shell ドキュメント

于 2008-12-13T20:05:53.703 に答える