使用VBA下载文件时触发运行时错误3004/404：写入文件失败

刚踩过类似的坑，这俩错误看着唬人，其实大多是路径、权限或文件占用的问题——别被错误号里的404误导，它和网页找不到的404完全没关系！下面给你一步步排查解决：

先搞懂错误本质 #

• 错误404：VBA里的这个404是指写入文件时无法定位到有效路径，要么路径写错了，要么权限不够访问目标文件夹。
• 错误3004：更直接，就是文件写入被阻止——可能是目标文件被其他程序占用，或者没有写入权限，甚至是目标文件夹压根不存在。

逐一排查解决步骤 #

1. 先把目标路径的问题搞定 #

这是最常见的触发点！

• 别用相对路径（比如"downloads\file.xlsx"），换成绝对路径更稳妥，比如"C:\Users\YourName\Desktop\download.xlsx"。
• 路径里有空格或特殊字符（比如&、#）？记得用引号包裹，或者用Chr(34)拼接：

  Dim savePath As String
  savePath = Chr(34) & "C:\My Files\download.xlsx" & Chr(34)
  

• 提前检查文件夹是否存在，不存在就先创建：

  Dim folderPath As String
  folderPath = Left(savePath, InStrRev(savePath, "\"))
  If Dir(folderPath, vbDirectory) = "" Then
      MkDir folderPath ' 创建目标文件夹
  End If
  

2. 确认你有写入权限 #

• 别往系统目录（比如C:\Windows、C:\Program Files）写，这些地方默认需要管理员权限。先试试保存到桌面或者Documents文件夹，测试是否能成功。
• 如果必须写入受保护目录，右键Excel图标，选择「以管理员身份运行」再执行代码。

3. 检查目标文件是否被占用 #

如果要保存的文件已经在Excel里打开，或者被杀毒软件、其他程序锁定，肯定会报错。可以加个小函数提前检查：

Function IsFileLocked(filePath As String) As Boolean
    Dim fileNum As Integer, errCode As Integer
    On Error Resume Next
    fileNum = FreeFile()
    Open filePath For Input Lock Read As #fileNum
    Close fileNum
    errCode = Err.Number
    On Error GoTo 0
    
    IsFileLocked = (errCode = 70) ' 错误70就是文件被锁/权限被拒
End Function

调用时如果返回True，就提示用户关闭文件或者换个文件名：

If IsFileLocked(savePath) Then
    MsgBox "目标文件正在被使用，请关闭后重试！"
    Exit Sub
End If

4. 修正下载代码的写法 #

不同的下载方法有不同的注意点，别写错了：

用URLDownloadToFile的正确姿势

这个API很常用，但要处理返回值判断错误原因：

' 64位Office请保留PtrSafe，32位可以去掉
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

Sub DownloadWithURLAPI()
    Dim downloadURL As String, savePath As String, result As Long
    downloadURL = "https://example.com/your-file.xlsx"
    savePath = "C:\Users\YourName\Desktop\test.xlsx"
    
    result = URLDownloadToFile(0, downloadURL, savePath, 0, 0)
    Select Case result
        Case 0: MsgBox "下载成功！"
        Case -2: MsgBox "错误：目标路径无效"
        Case -1: MsgBox "错误：权限不足或网络问题"
        Case 1: MsgBox "错误：URL无效"
        Case Else: MsgBox "未知错误，代码：" & result
    End Select
End Sub

用MSXML2.XMLHTTP下载二进制文件（比如Excel、图片）

别用CreateTextFile写入二进制内容，会损坏文件！要用ADODB.Stream：

Sub DownloadWithXMLHTTP()
    Dim xhr As Object, stream As Object
    Dim downloadURL As String, savePath As String
    
    Set xhr = CreateObject("MSXML2.XMLHTTP")
    Set stream = CreateObject("ADODB.Stream")
    
    downloadURL = "https://example.com/your-file.xlsx"
    savePath = "C:\Users\YourName\Desktop\test.xlsx"
    
    xhr.Open "GET", downloadURL, False
    xhr.Send
    
    If xhr.Status = 200 Then
        stream.Type = 1 ' 二进制模式
        stream.Open
        stream.Write xhr.ResponseBody
        stream.SaveToFile savePath, 2 ' 2=覆盖现有文件
        stream.Close
        MsgBox "下载成功！"
    Else
        MsgBox "请求失败，状态码：" & xhr.Status
    End If
    
    Set xhr = Nothing
    Set stream = Nothing
End Sub

5. 处理长路径问题 #

如果路径长度超过260字符，Windows会拒绝写入，这时候可以给路径加\\?\前缀，比如：

savePath = "\\?\C:\Your\Super\Long\Path\That\Exceeds\260\Characters\file.xlsx"

快速测试方案 #

先把保存路径改成桌面的极简路径（比如"C:\Users\你的用户名\Desktop\test.xlsx"），用上面最简化的代码测试。如果成功，再逐步还原原来的路径和代码，就能精准定位到具体问题了。

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