- 摘要 :
我正在尝试编写将自动保存为当前日期名称的代码

- 问题 :当编译器到达保存行时,会弹出错误提示“对象 '_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/

10-11 03:35
查看更多