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