运行时错误'1004'：对象'_Workbook'的方法'SaveAs'失败。

此错误通常发生在使用VBA代码将工作簿另存为新文件时。可能的原因是代码中的路径或文件名无效，或者目标文件正在被其他进程使用。

以下是几种可能的解决方法：

示例代码：

Sub SaveWorkbook()
    Dim wb As Workbook
    Set wb = ThisWorkbook
    Dim filePath As String
    filePath = "C:\Documents\NewWorkbook.xlsx"
    ' 检查文件是否已存在，如果存在则删除
    If Dir(filePath) <> "" Then
        Kill filePath
    End If
    ' 保存工作簿
    wb.SaveAs filePath
    MsgBox "工作簿已保存为新文件。"
End Sub
确保目标文件没有被其他进程使用：关闭任何可能正在使用目标文件的程序，例如Excel或其他文档编辑器。如果目标文件已在Excel中打开，请确保已关闭该文件并保存更改。
检查文件是否受保护或只读：如果目标文件受保护或设置为只读，则无法使用SaveAs方法保存。可以尝试更改文件的属性或权限，以便允许保存更改。
使用错误处理程序：在代码中添加错误处理程序，以便在发生错误时提供更具体的错误信息并采取适当的操作。
示例代码：
Sub SaveWorkbook()
    On Error GoTo ErrorHandler
    Dim wb As Workbook
    Set wb = ThisWorkbook
    Dim filePath As String
    filePath = "C:\Documents\NewWorkbook.xlsx"
    ' 检查文件是否已存在，如果存在则删除
    If Dir(filePath) <> "" Then
        Kill filePath
    End If
    ' 保存工作簿
    wb.SaveAs filePath
    MsgBox "工作簿已保存为新文件。"
    Exit Sub
ErrorHandler:
    MsgBox "保存工作簿时发生错误：" & Err.Description
End Sub
通过以上解决方法，您应该能够解决“运行时错误'1004'：对象'_Workbook'的方法'SaveAs'失败。”的问题。