Как отключить создание резервной копии книги Excel при экспорте в PDF - PullRequest
0 голосов
/ 07 июня 2019

Я создал макрос для сохранения 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 не создавалась.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...