如何将备份保存到网络驱动器？解决Runtime 1004错误

出现Runtime 1004错误，通常是网络路径格式、权限或文件夹存在性问题导致的，以下是具体解决方法和修改后的代码：

核心解决要点 #

• 使用UNC网络路径：不要用映射盘符（如Z:\），改用\\服务器名\共享文件夹\Backup\格式，映射盘符是用户会话级的，VBA进程可能无法识别。
• 确保目标文件夹存在：如果备份目录不存在，SaveCopyAs直接报错，需先判断并创建。
• 验证读写权限：手动在文件管理器打开目标网络文件夹，尝试创建文件，确认当前用户有读写权限。
• 添加错误捕获：方便定位具体错误原因，比如路径无效、权限不足等。

修改后的可运行代码 #

Sub SaveBackUp()
    Dim saveDate As Date
    Dim saveTime As Variant
    Dim formatTime As String
    Dim formatDate As String
    Dim backupFolder As String
    Dim backupFileName As String
    
    ' 替换为你的UNC格式网络备份路径
    backupFolder = "\\YourServerName\YourSharedFolder\Backup\"
    saveDate = Date
    saveTime = Time
    
    formatTime = Format(saveTime, "hh.MM.ss")
    formatDate = Format(saveDate, "YYYY-MM-DD")
    
    ' 拼接备份文件名
    backupFileName = Replace(ActiveWorkbook.Name, ".xlsm", "") & " - Backup " & formatDate & " " & formatTime & ".xlsm"
    
    ' 开启错误捕获
    On Error GoTo ErrorHandler
    
    ' 检查文件夹是否存在，不存在则创建
    If Dir(backupFolder, vbDirectory) = "" Then
        MkDir backupFolder
    End If
    
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveCopyAs Filename:=backupFolder & backupFileName
    Application.DisplayAlerts = True
    
    ActiveWorkbook.Save
    MsgBox "备份文件已成功保存至路径：" & backupFolder
    
    Exit Sub

ErrorHandler:
    Application.DisplayAlerts = True
    MsgBox "备份失败：" & Err.Description & "（错误代码：" & Err.Number & "）"
End Sub

代码说明 #

1. UNC路径：替换\\YourServerName\YourSharedFolder\Backup\为实际的网络共享路径，确保能在文件管理器直接访问。
2. 文件夹创建：通过Dir函数检查目录，不存在则用MkDir创建，避免因目录缺失报错。
3. 错误处理：捕获错误后提示具体信息，方便快速排查问题（比如路径拼写错误、权限不足等）。

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