excel 导出为PDF并提示用户输入要保存的文件夹路径和文件名

laawzig2 于 2022-12-24 发布在其他

关注(0)|答案(1)|浏览(204)

我不知道如何提示用户输入文件夹路径和保存名。下面是我已经开始工作的代码。

Sub PrintToPDF

ThisWorkbook.Sheets("Sheet 1","Sheet 3").Select

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePdf, _
Filename:="test.pdf", 
Quality:=xlQualityStandard, _
IncludeDocumentProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

Sheets("Sheet 1").Select

End Sub

谢谢你的帮助!

excel

来源：https://stackoverflow.com/questions/46430376/export-to-pdf-and-prompt-user-for-folder-path-and-file-name-to-save

1条答案

按热度按时间

m1m5dgzv1#

下面的代码将提示用户选择保存pdf的位置和文件名。

Dim file_name As Variant
file_name = Application.GetSaveAsFilename(FileFilter:="Adobe PDF File_ (*.pdf), *.pdf")

If file_name <> False Then
  ActiveWorkbook.SaveAs Filename:=file_name
  MsgBox "File Saved!"
End If

赞(0）回复(0）举报 2022-12-24

我来回答

excel 导出为PDF并提示用户输入要保存的文件夹路径和文件名

1条答案

相关问题

热门标签

最新问答