Excel工作簿保存为.pdf
我正在处理一个包含20个以上Excel文件的文件夹，并希望打开它们中的每一个，进行一些页面设置更改，最后保存为.pdf。 我几乎涵盖了所有的主题，除了保存为.pdf。
我需要将该文件保存为与Excel工作簿相同的名称。 在同一个文件夹中。
下面的代码做的工作，除了我需要给名称，并select文件夹来保存它：
fName = Application.GetSaveAsFilename("", "PDF Files (*.pdf), *.pdf") ActiveWorkbook.ExportAsFixedFormat xlTypePDF, fName, xlQualityStandard, , , , , True 资料来源： http : //www.mrexcel.com/forum/excel-questions/651621-save-pdf-macro.html#post3232801
有人能帮我优化这个来实现我的目标吗？
试试这个（我没有打印机设置，所以无法testing）
fName = ActiveWorkbook.FullName If InStr(fName, ".") > 0 Then fName = Left(fName, InStrRev(fName, ".") - 1) ActiveWorkbook.ExportAsFixedFormat xlTypePDF, fName & ".pdf", _ xlQualityStandard, , , , , True