【Access VBA】URL で指定された CSV ファイルをダウンロードする

#If Win64 Then

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

Private Declare PtrSafe Function DeleteUrlCacheEntry _
    Lib "wininet" Alias "DeleteUrlCacheEntryA" _
    (ByVal lpszUrlName As String) As Long
    
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

#Else

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

Private Declare Function DeleteUrlCacheEntry _
    Lib "wininet" Alias "DeleteUrlCacheEntryA" _
    (ByVal lpszUrlName As String) As Long
    
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

#End If


Function DownloadCsvFromUrl(target_url_of_file As String) As Integer

    Const C_SUCCESS As Integer = 0
    Const C_FAILURE As Integer = 1
    Const C_WAIT_TIME As Integer = 5000 ' 5 seconds
    
    Dim result As Long
    Dim fileName As String
    Dim fullPathName As String
    Dim returnCode As Integer

    fileName = target_url_of_file
    While InStr(fileName, "/") > 0
    fileName = Mid(fileName, InStr(fileName, "/") + 1)
    Wend

    fullPathName = Environ("UserProfile") & "\Downloads\" & fileName
   
    Call DeleteUrlCacheEntry(target_url_of_file)

    On Error GoTo exitWithFailure

    SysCmd acSysCmdSetStatus, fileName & " をダウンロード中..."

    returnCode = URLDownloadToFile(0, target_url_of_file, fullPathName, 0, 0)

    If returnCode <> 0 Then
        GoTo exitWithFailure
    End If
    
    SysCmd acSysCmdSetStatus, fullPathName & " に保存しました..."
    Call Sleep(C_WAIT_TIME)

    DownloadFileFromUrl = C_SUCCESS
    Exit Function

exitWithFailure:

    SysCmd acSysCmdSetStatus, target_url_of_file & " のダウンロードに失敗しました..."
    Call Sleep(C_WAIT_TIME)

    DownloadFileFromUrl = C_FAILURE

End Function