Сделать один пдф файл из листов которые находятся в разных книгах excel

@The_Fog · Регистрация: 24.02.2016

Author24 — интернет-сервис помощи студентам

Добрый день. Как можно сделать один пдф файл из листов которые находятся в разных книгах excel.
Как сделать из листов которые находятся в одной книге мне подсказали, но как добавить туда листы из другой книги, как их правильно выделить и добавить в массив.

Visual Basic

Sub pdf()
  Sheets(Array("Лист1", "Лист2", "Лист3")).Select
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
   Filename:="C:\Users\MSI-PC\Desktop\Excel\VBA\Тест ", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Пробовал так

Visual Basic

1	Sheets(Array("Лист1", "Лист2",Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1")))

но не получается.

@bedvit · 28.02.2017, 15:01

Включительно ридер, переместить и посмотрите код.

@The_Fog · 01.03.2017, 09:42 **[ТС]**

А функцией .Select нельзя выбрать из разных книг листы?

@bedvit · 01.03.2017, 10:04

Незнаю такого способа. Я бы делал так: копировал нужные листы в Новую книгу, её и печатал в пдф без дальнейшего сохранения.

Добавлено через 2 минуты
т.е. временная книга под печать.

Добавлено через 3 минуты
ПК под рукой нет, проверьте свой вопрос, поставьте перед именем листа, имя книги в вашем array...select

@The_Fog · 13.04.2017, 11:20 **[ТС]**

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

@bedvit · 13.04.2017, 16:54

Как-то так:

Visual Basic

Sub PDF()
Dim newBook As String
 
    Sheets("Нужный_лист").Copy                                                  'копируется в новую книгу
    newBook = ActiveWorkbook.Name
    Windows("Нужная_книга").Activate                                            'вторая книга с которой то же копируется лист
    Sheets("Нужный_лист").Copy After:=Workbooks(newBook).Sheets(1)              'копируем нужный лист с указанной книги в новую созданную ранее книгу
    
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Путь_до_вашего_файла\TEST.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True                                                                    ' печать PDF
        
    Workbooks(newBook).Close False                                              'закрываем новую книгу без сохранения
   
End Sub

@bedvit 1195 / 247 / 21 Регистрация: 20.05.2016 Сообщений: 1,084 Записей в блоге: 21
	28.02.2017, 15:01	2
	Включительно ридер, переместить и посмотрите код. 0

@The_Fog 0 / 0 / 2 Регистрация: 24.02.2016 Сообщений: 75
	01.03.2017, 09:42 [ТС]	3
	А функцией .Select нельзя выбрать из разных книг листы? 0

@bedvit 1195 / 247 / 21 Регистрация: 20.05.2016 Сообщений: 1,084 Записей в блоге: 21
	01.03.2017, 10:04	4
	Незнаю такого способа. Я бы делал так: копировал нужные листы в Новую книгу, её и печатал в пдф без дальнейшего сохранения. Добавлено через 2 минуты т.е. временная книга под печать. Добавлено через 3 минуты ПК под рукой нет, проверьте свой вопрос, поставьте перед именем листа, имя книги в вашем array...select 1

@The_Fog 0 / 0 / 2 Регистрация: 24.02.2016 Сообщений: 75
	13.04.2017, 11:20 [ТС]	5
	bedvit, Не могли бы вы набросать пример создания новой книги и копирования туда без сохранения, т.к. это хороший прием, думаю поможет не только мне. 0

	13.04.2017, 16:54