Question

我一直在努力让这个工作，但我无法弄清楚在这段代码中是什么阻止了保存过程：

Sheets("DailyReview").Select
Sheets("DailyReview").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
File_Name = "\\Il-svr\company\department\team\Schedules\Daily_Review_Email\city\" & Range("A110").Value & "\" & Range("D110").Value & "\DailyReview_" & Range("C110").Value & ".xlsx"
ActiveWorkbook.SaveAs Filename:=File_Name

最后一行代码给出了错误：“运行时错误'1004'：对象'_Workbook'的方法'SaveAs'失败。但实际上文件被重命名，只是没有”保存“到路径位置。路径位置完全100％正确，当我使用相同的路径位置保存宏工作簿时工作正常。我也使用Excel 2010并尝试以2010格式保存它。我也尝试将FileFormat设置为xlWorkbookDefault（51）如果我手动保存新书，我有权保存到此路径并且工作正常。范围只是日期值。例如，如果我在今天的日期使用此代码，该文件将保存为DailyReview_122914.xlsx我希望这是足够的信息。我感谢任何帮助。

Answer 1

谢谢@RubberDuck。对于细胞A110，这些值是空白的，我认为它正在抛弃它。我重写了代码并丢弃了单元格A110的值，现在工作正常。这段时间真的是最简单的事情。谢谢！

保存新工作簿名称时出错

1 个答案: