excel - 导出为 PDF 时如何禁用 Excel 工作簿备份创建

Question

我创建了一个宏来将 Excel 保存为 PDF。该代码对我有用，但是，我想禁用保存的备份 Excel 文件（每次保存时它都会创建一个名为 Book1、Book2 等的新工作簿）。

我知道Workbook.CreateBackup=False，但我不知道如何在导出的文件上实现（相对于 SaveAs）。我搜索了多个论坛，但找不到答案。

Sub SaveAsPDF()
    Dim tsR As String
    Dim serialNo As String
    Dim xStrDate As String
    Dim myFileN As String

    tsR = "TS256359_Report_"
    serialNo = Range("N7") & ""
    xStrDate = Format(Now, "mm-dd-yyyy hh-mm-ss AM/PM")
    myFileN = tsR & serialNo & "(" & xStrDate & ")"

     With Application
     .ScreenUpdating = False
     Application.DisplayAlerts = False
        ThisWorkbook.Sheets("WC Worksheet").Activate
        ActiveSheet.Copy
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "C:\Users\e356881\Desktop\8540 Worksheets\" & myFileN, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, _   IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    End With
    Application.DisplayAlerts = True
End Sub

我想当我将文件保存为 PDF 时，不会创建额外的 excel 工作簿。

标签： excelvba