Excel VBA图片下载宏：含空格/斜杠文件名无法保存问题求助

你的核心问题是Windows系统不允许文件名包含\/:*?"<>|这类非法字符，其中斜杠/会被识别为路径分隔符，直接导致保存路径无效；空格本身是合法文件名字符，大概率是和其他非法字符共存引发的报错。以下是修改后的代码，既能保留Excel单元格内的原文件名不变，又能让文件正常保存：

' 兼容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 LongPtr, _
        ByVal lpfnCB As LongPtr _
    ) As LongPtr
#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 ScaricaImnmagini()
    Dim strSavePath As String
    Dim URL As String
    Dim Ret As Variant
    Dim miorange As Range
    Dim cll As Range
    Dim cleanFileName As String
    
    ' 定义要处理的E列范围，可按需调整
    Set miorange = Range("e2:e10")

    For Each cll In miorange
        URL = cll.Value
        ' 获取F列原文件名，自动清理非法字符
        cleanFileName = CleanIllegalFileName(cll.Offset(0, 1).Value)
        ' 拼接合法的保存路径
        strSavePath = ThisWorkbook.Path & "\" & cleanFileName & ".jpg"
        
        ' 执行下载并返回状态
        Ret = URLDownloadToFile(0, URL, strSavePath, 0, 0)
        If Ret = 0 Then
            Debug.Print "下载成功：" & strSavePath
        Else
            Debug.Print "下载失败：" & URL & "，错误代码：" & Ret
        End If
    Next cll
End Sub

' 将文件名中的非法字符替换为下划线（可自行修改替换字符）
Function CleanIllegalFileName(fileName As String) As String
    Dim illegalChars As Variant
    Dim char As Variant
    
    ' Windows系统禁止的文件名字符列表
    illegalChars = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
    
    ' 逐个替换非法字符
    For Each char In illegalChars
        fileName = Replace(fileName, char, "_")
    Next char
    
    CleanIllegalFileName = fileName
End Function

关键修改说明： #

• 新增CleanIllegalFileName函数：自动过滤文件名中的Windows非法字符，替换为下划线（你可改成短横-等其他合法字符），Excel单元格内的原文件名完全保留不变。
• 优化API声明：兼容32位和64位Office版本，避免因环境差异报错。
• 增加下载状态提示：在VBA编辑器的「立即窗口」中可查看每个文件的下载结果，方便排查问题。

额外提示： #

• 若仍存在空格相关报错，检查是否有全角空格、不可见控制字符等隐藏问题，可在CleanIllegalFileName函数中添加对应替换规则。
• 若需严格保留原文件名视觉样式，可尝试将非法字符替换为全角等效字符（比如把半角/换成全角／），但这种方式可能导致部分程序识别异常，不推荐优先使用。

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