我无法弄清楚如何提示用户输入文件夹路径和保存名称。以下是我已经开始工作的代码。
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
感谢您的帮助!
答案 0 :(得分:0)
以下代码将提示用户选择位置和文件名以将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