这个SaveAs语法有或没有阻止执行？

在本网站上开发了具有精确示例的代码，但不会运行并停在SaveAs...行。 有谁能发现我的错误？

我得到这个错误：

然而，pathC:\dads\Downloads\确实存在，该文件没有被另一个程序使用，并且具有不同的名称。 我错过了什么？

 Option Explicit Sub PickupRoutes_Click() Dim Rng As Range Dim Lrow As Integer, NewFile As String Lrow = 7 Set Rng = ActiveSheet.Range(Cells(2, 33), Cells(Lrow, 38)) '~~> Copy the range from the current Workbook Rng.Select Rng.Copy 'Establish a new Workbook and paste range Application.Workbooks.Add ActiveWorkbook.ActiveSheet.Range("A1").Select '~~> Paste rng in Cell A1. ActiveWorkbook.ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False '~~>. Save the file NewFile = "C:\dads\Downloads\" & "PlanMyRoute_" & _ Format(Date, "mm-dd-yyyy") & ".xlsm" ActiveWorkbook.SaveAs NewFile, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False ActiveWorkbook.Close SaveChanges:=False MsgBox "PlanMyRoute file has been saved " End Sub 

Answer 1

如果文件path不存在，那么错误消息将显示内存地址，这就是错误消息和代码不匹配的原因。

看起来你缺lesspath中的Users目录。

改成：

 NewFile = "C:\Users\dads\Downloads\" & "PlanMyRoute_" & _ Format(Date, "mm-dd-yyyy") & ".xlsm"