下载PDF

我试图下载一个在IE浏览器中打开的.pdf文件。 这是我的代码：

Private Declare 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 Sub DownPDF() Dim sUrl As String Dim sPath As String sPath = "C:\Users\adhil\Documents" sUrl = "http://analytics.ncsu.edu/sesug/2010/HOW01.Waller.pdf" Ret = URLDownloadToFile(0, sUrl, sPath, 0, 0) If Ret = 0 Then Debug.Print sUrl & " downloaded to " & sPath Else Debug.Print sUrl & " not downloaded" End If End Sub 

但是，我无法获得文件下载，虽然答复如此。

任何人都可以帮我吗？

Answer 1

该函数期望参数szFileName是文件的完整path名称，而不是文件夹。 试试这个：

 sPath = "C:\Users\adhil\Documents\HOW01.Waller.pdf" 

我和我一起工作，而当目标文件名被省略时，它不起作用。