Экспорт внешних листов в формате PDF без использования ActiveSheet

Question

У меня проблема двухсерийный

У меня есть список листов и вкладок, которые я хочу, чтобы создать PDF из. Поскольку я не могу создать один PDF сразу, я решил создать много PDF-файлов и объединить их за один шаг. Теперь вот моя проблема.

1. Вообще .exportAsFixedformat используется с «ActiveSheet», я пытаюсь использовать это непосредственно,

2. Кроме того, даже когда я делаю это с ActiveSheet параметры «от» и «до» это дает мне проблема

   Do 
       PrintWB = .Cells(i, 2) 'sheetpath + workbookname 
       sheetname = .Cells(i, 3) 'Name of Tab 
       Frompage = .Cells(i, 4) 'From 
       Topage = .Cells(i, 5) 'To 
   
       Workbook(PrintWB).Sheets(sheetname).ExportAsFixedFormat _ 
       Type:=xlTypePDF, _ 
       Filename:="C:\Rough\" & x & ".pdf", _ 
       Quality:=xlQualityStandard, _ 
       IncludeDocProperties:=True, _ 
       IgnorePrintAreas:=False, _ 
       OpenAfterPublish:=False, _ 
       From:=Frompage,_ 
       To:=Topage 
       Loop While .Cells(i - 1, 2) = .Cells(i, 2) 
   

Краткое примечание: Do-то время цикла помогает мне не открывать и снова закрывать же лист, только в случае, если один из листов имеет несколько вкладок, которые будут напечатаны, s o просто не обращайте внимания на то, что

В настоящее время мы печатаем кучу документов и записываем их после создания небольшой брошюры, если я могу консолидировать PDF, это сэкономит много бумаги.

Answer 1

Это имело орфографическую ошибку в WOrkbook, в конце концов должно быть «s» ... так что это были бы книги, и это сработало !!