将各个Excel表格转换为单独的PDF文件

我只是试图使用VBA创build/保存个别的Excel表单作为单独的PDF文件。

我在网上遇到这个：

Sub SaveWorksheetsAsPDFs() Dim sFile As String Dim sPath As String Dim wks As Worksheet With ActiveWorkbook sPath = .Path & "\" For Each wks In .Worksheets sFile = wks.Name & ".pdf" wks.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=sPath & sFile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=False, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False Next wks End With End Sub 

但是，我收到以下错误：

运行时错误“5”：无效的过程调用或参数

对于不熟悉VBA的人来说，什么是无效的？

谢谢

Answer 1

正如我在我的评论中所说的，你的代码运行良好（Win-10，Excel-365） 。 我先来：

保存.xlsm文件以确保存在Spath
在每个工作表上Selected一个区域，以确保它将被正确PDF