VBA下载文件 使用WebBrowser 及 DoFileDownload

一、启动WebBrowser

在Excel打开时启动：先激活WebBrowser所在的表，继而在表激活事件中激活WebBrowser，在WebBrowser定位到网页。

1：在workbook启动时激活该webbrowser所在的worksheet

Private Sub Workbook_Open()

    ThisWorkbook.Worksheets("web").Activate

End Sub

 

2：在worksheet被激活时，设置webbrowser的页面导航

Private Sub Worksheet_Activate()

    WebBrowser1.Activate

    WebBrowser1.Navigate "https://...."

End Sub

也可以通过设置一个按钮激活，略过。

 

二、使用 URLDownloadToFile

1. 调用API前的声明

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _

ByVal pCaller As Long, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As Long, _

ByVal lpfnCB As Long _

) As Long

参数解释：

pCaller：如果调用的应用不是一个ActiveX组件，则可以设为Null<