excel - 允许用户选择 "print PDF"的保存文件路径

Question

我在 Excel 文件上有一个命令按钮，允许用户通过单击自动执行“打印 PDF”功能。问题是，目前我只能将文件保存到代码中的指定位置。我想让用户选择类似于实际保存功能的保存目录。

这是我到目前为止的代码:

Private Sub PrintPDF_Button_Click()

    Dim mySheets As Variant, sh

    mySheets = Array("COVER", "SCOPE", "SUMMARY", "Updated Hours EST", "RATES")

    Sheets(mySheets).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\sravi\test" & _
        ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, openafterpublish:=True

End Sub

Answer 1

您可以使用的另一种方法是 Application.FileDialog()方法。如果您愿意，您将能够设置默认保存位置，甚至可以设置默认文件名。

Dim fileSave As FileDialog
Set fileSave = Application.FileDialog(msoFileDialogSaveAs)

With fileSave
    ' Your default save location here
    .InitialFileName = "C:\Users\sravi\*.pdf"

    If .Show = -1 Then

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.SelectedItems(1), _
                Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, openafterpublish:=True

    End If
End With

打破它

您可以使用 .InitialFileName 设置默认保存路径属性(property)。如果您有默认文件名，则可以使用它。否则，使用 *.pdf 设置默认文件类型

.InitialFileName = "C:\Users\sravi\*.pdf"

以下行有两个目的:

显示带有 .Show 的对话框

确保用户接受 .Show = -1 的保存位置

If .Show = -1 Then

最后，您将文件路径返回到您在此行中使用的方法:

Filename:=.SelectedItems(1)