如何在导出选定单元格为PDF时弹出「另存为」对话框？

你的代码目前是把整个工作簿保存为PDF，要实现导出选定单元格范围，需要替换ActiveWorkbook.SaveAs为Selection.ExportAsFixedFormat方法，具体修改如下：

Private Sub Selection_promptSaveAs_PDF()
    Dim file_name As Variant
    ' 弹出另存为对话框，指定PDF格式
    file_name = Application.GetSaveAsFilename(FileFilter:="Adobe PDF文件 (*.pdf), *.pdf")
    
    If file_name <> False Then
        ' 导出选定的单元格范围为PDF
        Selection.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=file_name, _
            Quality:=xlQualityStandard
        MsgBox "文件已保存！"
    End If
End Sub

关键说明： #

• Selection.ExportAsFixedFormat：针对当前选中的单元格范围执行PDF导出，这是导出指定区域为PDF的正确方法，而非用SaveAs保存整个工作簿。
• 参数Type:=xlTypePDF：指定导出格式为PDF。
• 参数Quality:=xlQualityStandard：设置导出的PDF为标准质量，也可改为xlQualityMinimum来生成更小体积的文件。

如果需要固定导出某个特定单元格范围（比如Sheet1.Range("A1:C10")），只需把Selection替换为具体的区域对象即可，示例：

Sheet1.Range("A1:C10").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=file_name, _
    Quality:=xlQualityStandard

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