Question

我正在尝试在Access 2010 VBA代码中使用函数URLDownloadToFile。当我运行代码时，它告诉我没有定义URLDownloadToFile。

我已经读过这个函数在我的计算机上的urlmon.dll中。我试图点击代码编辑器中的引用按钮并加载它，但它不允许我这样做。

如何修复此问题以便我可以使用该功能？或者是否有其他功能可以让我将URL下载到文件中？

Answer 1

您需要声明此WinAPI函数，以便从代码中的过程调用它。

来自HERE

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

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then 
    If Dir(LocalFileName) <> vbNullString Then 
        DownloadFile = True
    End If
End If
End Function

Private Sub Form_Load()
If Not DownloadFile("http://www.ex-designz.net", "c:\\photogallery.asp") Then
    MsgBox "Unable to download the file, or the source URL doesn't exist."
End If
End Sub

Access 2010中的UrlDownloadToFile - 子或函数未定义

1 个答案: