Excel 如何保存为pdf？

正在尝试保存为pdf

Sub fill2()
    TemplateName = ThisWorkbook.path & "\DOC\test.docx"
    PdfPath = ThisWorkbook.path & "\OutPut"
    sSaveFolder = PdfPath & "\" & Format(Now(), "yyyy.mm.dd" & ".pdf")

    Set WA = CreateObject("Word.Application")
    Set WD = WA.Documents.Add(TemplateName)
    WA.Visible = False

    WD.SaveAs sSaveFolder, 17
    WD.Close False: Set WD = Nothing
    WA.Quit False: Set WA = Nothing
End Sub

文件以扩展名p2f保存，而不是将字母D更改为数字2的pdf

---

你把括号放错地方了。试试这个：

Format(Now(), "yyyy.mm.dd") & ".pdf"

---

你把括号放错地方了。试试这个：

Format(Now(), "yyyy.mm.dd") & ".pdf"

---

您要求Excel将文件名格式化为：

Format(Now(), "yyyy.mm.dd" & ".pdf")

对于Excel来说，这与以下内容完全相同：

Format(Now(), "yyyy.mm.dd.pdf")

因为.pdf包含一个d，所以它将用第2天来代替它

Format(Now(), "yyyy.mm.dd.pdf")
                       ^^  ^

将格式元素重新排列为yyyy.mm.dd，然后分别添加文件扩展名：

sSaveFolder = PdfPath & "\" & Format(Now(), "yyyy.mm.dd") & ".pdf"

---

您要求Excel将文件名格式化为：

Format(Now(), "yyyy.mm.dd" & ".pdf")

对于Excel来说，这与以下内容完全相同：

Format(Now(), "yyyy.mm.dd.pdf")

因为.pdf包含一个d，所以它将用第2天来代替它

Format(Now(), "yyyy.mm.dd.pdf")
                       ^^  ^

将格式元素重新排列为yyyy.mm.dd，然后分别添加文件扩展名：

sSaveFolder = PdfPath & "\" & Format(Now(), "yyyy.mm.dd") & ".pdf"