excel - 1004：对象'_Workbook'的方法'SaveAs'失败

Question

我正在使用此代码并收到 SaveAs 错误：

Dim dirPath, Filename As String
Dim Ws As Worksheet
Dim newWb As Workbook

dirPath = "O:\Accounting\GFF-AP\OVERHEAD\LISA\VISA\Factoring Reports\"
Filename = ActiveSheet.Name & "_" & "_" & Format(Date, "mmddyy") & ".xlsx"

Worksheets("To Factor").Activate


Application.ScreenUpdating = False
Application.DisplayAlerts = False

Sheets("To Factor").Copy

For Each Ws In ActiveWorkbook.Worksheets
            Ws.Cells.Copy
            Ws.[A1].PasteSpecial Paste:=xlValues
            Ws.Cells.Hyperlinks.Delete
            Application.CutCopyMode = False
            Cells(1, 1).Select
            Ws.Activate
        Next Ws
        Cells(1, 1).Select
    
Application.ActiveWorkbook.SaveAs Filename:=dirPath & "Factor Report_" & Format(Date, 
"mmddyy") & ".xlsx"

    ActiveWorkbook.Close

这适用于我所做的其他宏。帮助！

标签： excelvbadebugging