Распечатать лист Excel в один PDF

Question

У меня есть лист Excel, который заполняется данными из базы данных. Когда я перебираю данные, я пишу на тот же лист и печатаю его. Я хочу поместить вывод в один PDF. Я в основном печатаю один и тот же лист снова и снова с разными данными. Проблема в том, что вместо добавления в PDF, PDF перезаписывается каждый раз, когда я экспортирую новые данные. Ниже приведен код, который я использую для экспорта листа.

    Sheets("FORM8").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "F:\Reg\Form8\F8.pdf", OpenAfterPublish:=False

Answer 1

Вы можете добавить текущую дату и время эпохи к имени файла, чтобы убедиться, что файл уникален и создан в вашем каталоге.

Dim dateName As String
Dim outputFile As String
Dim FileName As String
Dim epoch As Long

dateName = Format(Date, "mm-dd-yyyy")
epoch = DateDiff("s", #1/1/1970#, Now())

FileName = dateName + Str(epoch)

outputFile = "F:\Reg\Form8\F8" + FileName + ".pdf"

Sheets("FORM8").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    outputFile, OpenAfterPublish:=False