使用VBA保存新命名工作簿时触发运行时错误'1004'求助

运行时错误'1004'的直接原因是你生成的文件名包含Windows系统禁止的特殊字符。你用format(Date, "mm/dd/yyyy")生成的日期字符串里有斜杠/，而Windows文件名不允许包含/ \ : * ? " < > |这类字符，导致保存操作失败。

修正方案 #

把日期格式中的斜杠替换为合法的分隔符（比如横杠-或点.），同时明确指定文件格式，避免格式不兼容问题：

Sub CopyToRange()
    Dim TodaysDate As String

    TodaysDate = Format(Date, "mm-dd-yyyy") ' 将斜杠替换为横杠
    ActiveWorkbook.SaveAs Filename:="FileName" & TodaysDate & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

额外提示 #

• 如果需要指定保存路径，直接在文件名前拼接完整路径，例如："D:\Backup\FileName" & TodaysDate & ".xlsm"
• 指定FileFormat:=xlOpenXMLWorkbookMacroEnabled能确保保存为启用宏的xlsm格式，避免因默认格式不匹配触发错误

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