Question

我只是尝试使用VBA创建单个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

但是，我收到以下错误：

运行时错误＆＃39; 5＆＃39;：无效的过程调用或参数

对于那些不熟悉VBA的人，什么是无效的？

由于

Answer 1

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

保存 .xlsm 文件以确保Spath存在于每个工作表上的Selected个区域，以确保其正确PDF格式

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

1 个答案: