好问题！你遇到的这个场景在VBA处理PDF导出时很常见，这里有两个实用的方案，分别对应你提到的两种思路：

方案一：预先让用户选择保存路径（推荐） #

这个方法直接替代Excel默认的保存对话框，用Application.GetSaveAsFilename让用户提前指定PDF的保存位置和文件名，这样我们就能直接拿到文件路径，后续轻松打开生成的PDF。

完整代码实现 #

首先，在模块顶部添加API声明（兼容32位和64位Office）：

#If VBA7 Then
    Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As LongPtr, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As LongPtr
#Else
    Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long
#End If

Public Sub set_printer()
    On Error GoTo problem_with_pdf_printer
    Application.ActivePrinter = "Microsoft Print to PDF"
Done:
    Exit Sub
problem_with_pdf_printer:
    MsgBox "There is a problem with the Microsoft Print to PDF printer." & Chr(13) & Chr(13) & _
           "Select another one manually!", vbInformation, "Warning!"
    Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

然后是主执行宏：

Sub ExportWorkbookToPDFAndOpen()
    Dim savePath As Variant
    
    ' 先设置打印机
    Call set_printer
    
    ' 弹出自定义保存对话框，限制只能选择PDF格式
    savePath = Application.GetSaveAsFilename( _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Choose Where to Save Your PDF")
    
    ' 判断用户是否取消了对话框
    If savePath <> False Then
        ' 导出PDF到指定路径
        ActiveWorkbook.PrintOut _
            Copies:=1, _
            PrintToFile:=True, _
            OutputFileName:=savePath
        
        ' 检查文件是否成功生成，然后打开它
        If Dir(savePath) <> "" Then
            ShellExecute 0, "open", savePath, "", "", vbNormalFocus
        Else
            MsgBox "Failed to generate PDF. Please check your printer settings.", vbExclamation
        End If
    End If
End Sub

方案优势 #

• 完全可控：你能提前拿到文件路径，后续的打开、验证操作都很方便
• 用户友好：自定义对话框可以添加提示，比Excel默认对话框更清晰
• 稳定性高：避免依赖默认对话框的黑盒行为，减少潜在错误

方案二：捕获默认PrintToFile对话框的保存路径（不推荐） #

如果一定要保留Excel默认的保存对话框，需要借助Windows API监控对话框的输入内容，实现起来比较复杂，容易因为系统版本、Office版本的差异出问题。举个简化的思路：

• 用SetWindowsHookEx设置钩子，捕获保存对话框的消息
• 从对话框中提取用户输入的文件名和路径
• 钩子回调中记录路径，供后续打开使用

但这个方法需要深入了解Windows消息机制，代码量也大，维护成本高，因此更推荐方案一。

内容的提问来源于stack exchange，提问作者GSabev