- 摘要 :
我正在尝试编写将自动保存为当前日期名称的代码
- 问题 :当编译器到达保存行时,会弹出错误提示“对象 '_Workbook' 的方法 'SaveAs' 失败”。其他一切都有效。为了引用,我已经展示了整个函数。
Function createRecord()
Dim rowCount As Integer
Dim theDate As Date
theDate = Format(Now(), "MM-DD-YY")
Sheets("New Data").Select
Cells.Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Application.ActiveSheet.Name = "ChaseHistory"
ActiveSheet.Paste
rowCount = ActiveSheet.UsedRange.Rows.Count
Sheets("Exceptions").Select
'rowCount = ActiveSheet.UsedRange.Rows.Count
Application.CutCopyMode = False
ActiveSheet.UsedRange.Rows.Select
Selection.Copy
Sheets("ChaseHistory").Select
ActiveSheet.Range("A" & rowCount + 2).Select
ActiveSheet.Paste
Range("A1").Select
Cells.Select
Selection.Copy
ChDir "Z:\Customer_Service_Accounting\REPORTING & CONTROLS TEAM\Book And Balance_Katie\Chase Booking History" 'loads the crystal report
Workbooks.Open Filename:= _
"Z:\Customer_Service_Accounting\REPORTING & CONTROLS TEAM\Book And Balance_Katie\Chase Booking History\Do_Not_Delete.xlsx"
Windows("Do_Not_Delete").Activate
ActiveSheet.Paste
Application.DisplayAlerts = False
'---------------This is the problem child-------------- 'SAVING WORKBOOK
ActiveWorkbook.SaveAs Filename:="Z:\Customer_Service_Accounting\REPORTING & CONTROLS TEAM\Book And Balance_Katie\Chase Booking History\" & CStr(theDate), FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True
End Function
- 我在 date 上添加了转换为字符串的方法,因为我认为这可能会导致问题,但结果相同。如果您发现这里有任何问题,请告诉我。谢谢!
最佳答案
问题: 因为在我的代码中我禁用了来自 excel 的提示,当我尝试保存时,我没有看到提示告诉我我正在尝试以不正确的格式保存。
基本上总结一下,Excel 不喜欢我的文件名中有反斜杠(“/”)(我真的应该知道)
修复: 我最终使用了以下语句:
ActiveWorkbook.SaveAs Filename:="Z:...\" & "Chase " & _
Month(theDate) & "_" & Day(theDate) & "_" & Year(theDate) & ".xlsx"
所以我在这里真正做的就是将月、日和年放在一个由下划线分隔的字符串中,以避免邪恶的反斜杠。
感谢您的帮助加菲!
关于vba - 另存为失败的 Excel VBA,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/11364007/