Question

使用Excel VBA，我尝试以PDF格式打印一张工作簿。

我正在使用此代码：

    Private Sub cmd_Print_Design_Click()

    Sheets("Sheet1").ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "/" & "Design Summary", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

    End Sub

代码没有运行，我得到ERROR 9 "Subscript out of Range"。我无法理解如何解决它。

Answer 1

在Windows下，路径分隔符是反斜杠\，因此请更改以下代码行：

Filename:=ThisWorkbook.Path & "/" & "Design Summary",

到

Filename:=ThisWorkbook.Path & "\" & "Design Summary",

VBA Error9导出为pdf

1 个答案: