如何将excel表3转换为pdf文件（保存前必须询问文件名）答案

【问题标题】：how to convert excel sheet 3 as pdf file(It has to ask file name before save)如何将excel表3转换为pdf文件（保存前必须询问文件名）
【发布时间】：2014-01-24 12:29:19
【问题描述】：

我正在使用输入模板，我想将工作表 3 保存为具有不同名称的 PDF 文件（在保存文件系统之前必须询问路径和文件名）。在这里我创建了一些代码，请帮助解决这个问题。

Sub Mac()
Dim wsh As Worksheet, vWshs, DossierEvaluationkit

vWshs = Array("Dossier Evaluation Template")
With ActiveWorkbook
    For Each DossierEvaluationkit In vWshs
        .Worksheets(DossierEvaluationkit).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Users\s0900993\Desktop\Lateral DEK" & LateralDossierEvaluationkit, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next DossierEvaluationkit
End With
End Sub

【问题讨论】：

你在哪里定义了LateralDossierEvaluationkit 变量？
到底是什么问题？请描述什么有效，什么无效，任何错误消息等。否则很难为您提供帮助。

标签： vba pdf excel

【解决方案1】：

对于此类情况，最好使用Application.GetSaveAsFileName。

Sub GetSaveAsFilename()

Dim fileName As String

fileName = Application.GetSaveAsFilename(InitialFileName:="", _
                                         FileFilter:="PDF Files (*.pdf), *.pdf", _
                                         Title:="Select Path and FileName to save")

    If fileName <> "False" Then

        With ActiveWorkbook

                .Worksheets("Dossier Evaluation Template").ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
                    fileName, Quality:=xlQualityStandard, _
                    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

        End With

    End If
End Sub

【讨论】：