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

将Excel工作表打印成单个PDF

1 个答案: