Excel VBA для экспорта выбранных листов в формате PDF

Question

Я использую следующий код для экспорта выбранных листов из Excel 2010 в один файл PDF ...

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select 

ActiveSheet.ExportAsFixedFormat _ 
     Type:=xlTypePDF, _ 
     Filename:="C:\temp.pdf", _ 
     Quality:=xlQualityStandard, _ 
     IncludeDocProperties:=True, _ 
     IgnorePrintAreas:=False, _ 
     OpenAfterPublish:=True 

Моя проблема заключается в том, что она экспортирует только первый лист , Есть идеи?

Answer 1

После того, как вы выбрали группу листов, вы можете использовать Выбор

Рассмотрим:

Sub luxation() 
    ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select 
    Selection.ExportAsFixedFormat _ 
     Type:=xlTypePDF, _ 
     Filename:="C:\TestFolder\temp.pdf", _ 
     Quality:=xlQualityStandard, _ 
     IncludeDocProperties:=True, _ 
     IgnorePrintAreas:=False, _ 
     OpenAfterPublish:=True 
End Sub 

EDIT # 1:

Дальнейшее тестирование упивался, что этот метод зависит на группе ячеек выбрано на каждом листе. Чтобы получить исчерпывающий вывод, используйте что-то вроде:

Sub Macro1() 

    Sheets("Sheet1").Activate 
    ActiveSheet.UsedRange.Select 
    Sheets("Sheet2").Activate 
    ActiveSheet.UsedRange.Select 
    Sheets("Sheet3").Activate 
    ActiveSheet.UsedRange.Select 

    ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select 
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
     "C:\Users\James\Desktop\pdfmaker.pdf", Quality:=xlQualityStandard, _ 
     IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ 
     True 
End Sub 

Answer 2

Я довольно замешан в этом. Я также работаю в Excel 2010. Я попытался экономии два листов в одном формате PDF с использованием:

ThisWorkbook.Sheets(Array(1,2)).Select 
    **Selection**.ExportAsFixedFormat xlTypePDF, FileName & ".pdf", , , False 

, но я не получил ничего, кроме пустых страниц. Он сохранил оба листа, но ничего на них. Это было не до тех пор, пока я не использовал:

ThisWorkbook.Sheets(Array(1,2)).Select 
    **ActiveSheet**.ExportAsFixedFormat xlTypePDF, FileName & ".pdf", , , False 

, что у меня есть один файл PDF с обоими листами.

Я попытался вручную сохранить эти две страницы, используя «Выбор» в диалоговом окне «Параметры», чтобы сохранить два листа, которые я выбрал, но получил пустые страницы. Когда я попробовал опцию «Активные листы», я получил то, что хотел. Когда я записал это как макрос, Excel использовал ActiveSheet, когда он успешно опубликовал PDF. Что дает?

Answer 3

это то, что я придумал, как я имел проблемы с @ asp8811 ответа (возможно, мои собственные трудности)

«это будет делать положить первые 2 листа в формате PDF » Заметь каждый WS должен быть контролируются разрывами страниц для печати, которая является немного неудобным 'это явно положило PDF в текущей директории

Sub luxation2() 
    Dim Filename As String 
    Filename = "temp201" 



Dim shtAry() 
ReDim shtAry(1) ' this is an array of length 2 
For i = 1 To 2 
shtAry(i - 1) = Sheets(i).Name 
Debug.Print Sheets(i).Name 
Next i 
Sheets(shtAry).Select 
Debug.Print ThisWorkbook.Path & "\" 


    ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "/" & Filename & ".pdf", , , False 

End Sub