Question

我正在处理一个包含20多个Excel文件的文件夹，并希望打开其中的每个文件，进行一些页面设置更改，最后保存为.pdf。除了保存为.pdf之外，我几乎涵盖了所有主题。

我需要将文件保存为与Excel工作簿相同的名称。在同一个文件夹中。

以下代码完成了工作，除了我需要提供名称并选择要保存的文件夹：

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

有人可以帮助我优化它以达到我的目标吗？

Answer 1

试试这个（我没有打印机设置，因此无法测试）

fName = ActiveWorkbook.FullName

If InStr(fName, ".") > 0 Then fName = Left(fName, InStrRev(fName, ".") - 1)

ActiveWorkbook.ExportAsFixedFormat xlTypePDF, fName & ".pdf", _
                                   xlQualityStandard, , , , , True

Excel工作簿另存为.pdf

1 个答案: