Excel 宏另存为 PDF 文件名错误答案

【问题标题】：Excel Macro Save As PDF Filename bugExcel 宏另存为 PDF 文件名错误
【发布时间】：2020-08-28 02:32:32
【问题描述】：

最近，我需要自动化 Excel 文件中的文件保存功能，并且我设法安装了可以保存为 PDF 的基本宏来源：https://exceloffthegrid.com/vba-code-save-excel-file-as-pdf/和https://www.contextures.com/excelvbapdf.html

这里是宏。这个想法是用户可以将当前工作表保存在他们想要的任何文件夹位置作为 PDF 文件。

错误看起来像这样。假设，我有一个名为 A report template.xlsm 的文件，并且我键入了我想保存的名称，例如 Marketing - 15_5_2022.pdf 在一个文件夹中。不知何故，保存后，文件名将恢复为 A report template.pdf 而不是 Marketing - 15_5_2022.pdf

任何想法我在代码中哪里出错了？

Sub SaveAsPDF()

Dim PdfFilename As Variant

PdfFilename = Application.GetSaveAsFilename( _
    InitialFileName:="Dept - Due Date", _
    FileFilter:="PDF, *.pdf", _
    Title:="Save Report As PDF")

If PdfFilename <> False Then

    ActiveSheet.ExportAsFixedFormat _
        Type:=PdfFilenme, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

End If

End Sub

【问题讨论】：

别忘了，文件名不能包含 / 或 \ 所以你需要重新格式化你的日期。
好点，CLR。我编辑问题以进行更正。

标签： excel vba pdf

【解决方案1】：

您没有设置要保存的文件的名称。试试：

ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=PdfFilename, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

问候，

【讨论】：