64位Excel VBA中URLDownloadToFile函数标红无法运行是何原因

• 现有API声明是32位VBA专用语法，完全不兼容64位版本Excel：64位VBA要求所有跨进程调用的Windows API声明必须添加PtrSafe关键字，否则编辑器直接标红禁止运行；同时API中涉及内存指针的参数、返回值长度从32位升级到64位，原有32位长度的Long类型无法承载，会触发内存读写错误。
• 原代码存在两处逻辑缺陷：未指定桌面为保存路径，文件会默认存到当前Excel文件所在目录；保存文件名未做后缀校验，可能出现后缀重复或缺失，导致保存后无法直接被系统识别为图片文件。

使用VBA条件编译语法同时兼容32位、64位Office，补充桌面路径获取、文件名后缀自动校验逻辑，修正后的完整可运行代码如下：

Option Explicit

' 适配32/64位Office的API声明
#If VBA7 Then
    Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias _
    "URLDownloadToFileA" (ByVal pCaller As LongPtr, ByVal szURL As String, ByVal _
    szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As LongPtr) 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
#End If

Sub getJPGfromweb()
    Dim strJPGLink As String
    Dim strJPGFile As String
    Dim strDesktopPath As String
    Dim Result As Boolean
    
    ' 读取当前系统的用户桌面路径
    strDesktopPath = Environ("USERPROFILE") & "\Desktop\"
    ' 读取表格中存储的图片链接
    strJPGLink = ActiveSheet.Range("C2").Value
    ' 拼接完整保存路径，自动补全缺失的jpg后缀
    strJPGFile = strDesktopPath & ActiveSheet.Range("B2").Value
    If LCase(Right(strJPGFile, 4)) <> ".jpg" Then
        strJPGFile = strJPGFile & ".jpg"
    End If
    
    Result = DownloadFile(strJPGLink, strJPGFile)
    MsgBox IIf(Result, "图片下载成功，已保存至桌面", "下载失败，请检查图片链接是否可正常访问")
End Sub

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 DownloadFile = True
End Function

• 用条件编译块区分不同版本VBA的API声明规则：64位环境下声明添加PtrSafe关键字，指针类参数类型从Long改为适配64位长度的LongPtr，32位环境下沿用原有声明逻辑，保证代码在两个版本Office中都能正常运行
• 通过读取系统环境变量自动获取当前用户的桌面绝对路径，不需要手动写死盘符路径
• 新增文件名后缀校验逻辑，仅当文件名末尾无.jpg后缀时才自动追加，避免后缀重复问题
• 优化结果弹窗提示，直接反馈下载成功/失败状态，不需要额外判断布尔值含义

运行前请确认C2单元格存储的是可直接公开访问的完整HTTP/HTTPS图片链接，需要登录鉴权、有反爬限制的链接无法通过该方法直接下载。

内容的提问来源于stack exchange，提问作者shampouya