UrlDownloadToFile在Access 2010 - 子或函数定义UrlDownload

我想使用的功能URLDownloadToFile Access 2010中的VBA代码。 当我运行它告诉我，URLDownloadToFile没有定义的代码。

我已阅读，这个功能是在我有我的电脑上的urlmon.dll中。 我试着点击代码编辑器中的引用按钮，加载它，但它不会让我这样做。

我怎样才能解决这个问题，所以我可以使用的功能？ 还是有另一种功能，让我一个网址下载到的文件？

Answer 1:

你需要为了从你的代码的程序调用它来申报这个WinAPI的功能。

从这里

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

文章来源: UrlDownloadToFile in Access 2010 - Sub or Function not Defined