Question

我遇到了将多个工作表保存为pdf的问题。我查看了这个网站（和其他人），发现了类似于我一直使用的代码。但是，我修改过的代码更接近于Save multiple sheets to .pdf和http://www.vbaexpress.com/kb/getarticle.php?kb_id=160的组合。

但是，我在最后一行“424：Object Required”中遇到错误。如果你能引导我朝正确的方向前进，我们将不胜感激！

Sub SaveAs()

Dim Fname As String
Dim Fpath As String

    Fname = Sheets("Sheet1").Range("FT5").Text 'The Cell I want to use as my file name
    Fpath = "C:" 'my location

    ThisWorkbook.Sheets(Array("Sheet 1", "Sheet 2")).Select 'My selected tabs

    ActiveSheets.ExportAsFixedFormat Type:=xlTypePDF, _
        FileName:=Fpath & "\" & Fname & ".pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True 'My issue is with this line....
End Sub

Answer 1

没有ActiveSheets这样的对象，因此您的最后一行确实会导致错误。

如果您只想打印用户当前选择的内容，请使用ActiveSheets替换ActiveWindow.SelectedSheets，如果您想要使用代码选择工作表，请使用Sheets("Sheet 1", "Sheet 3", "Sheet ...")。

将工作表另存为PDF

1 个答案: