在 SaveAs window 中設置 Excel 文件的文件名，在 vba 中沒有發送密鑰

Question

我想知道 SaveAs window 文件名文本框是否有一個我可以設置文本的屬性。 目前我正在使用 sendkeys function，在我遇到括號等特殊字符之前，它適用於大多數情況。

我目前的代碼基本上是：

SaveFldr = "S:\Desktop\grape
Filename = "Grape Data"
Application.SendKeys "{F12}"  ' opens the save as window
Application.SendKeys SaveFldr & Filename & ".pdf"
Application.SendKeys "{Enter}"

基本上我正在尋找一種方法來設置沒有發送密鑰 function 的文件名。例如..

Filename.Textbox = Filename

** 假設 SaveAs window 中的文本框被命名為。

Answer 1

您可以使用如下代碼

Sub CallSaveAs()
    Dim fileSaveName As Variant
    Dim SaveFldr  As String
    Dim fileName As String

    SaveFldr = "S:\Desktop\grape"
    fileName = "Grape Data"

    fileSaveName = Application.GetSaveAsFilename( _
        fileFilter:="PDF Files (*.PDF), *.pdf", _
        InitialFileName:=SaveFldr & Application.PathSeparator & fileName)

    If Not TypeName(fileSaveName) = "Boolean" Then
        MsgBox "Save as " & fileSaveName
        ' Save the sheetas PDF
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName
    End If

End Sub

End Sub