Сделать один пдф файл из листов которые находятся в разных книгах 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

Новые блоги и статьи
Как в цикле for перебрать все элементы в словаре в Python bytestream 24.01.2025 Словари в Python представляют собой мощные структуры данных, которые позволяют хранить информацию в формате ключ-значение. Эта особенность делает их незаменимыми при работе с данными, где требуется. . .	Как отменить rebase в Git hw_wired 24.01.2025 Git rebase представляет собой мощный инструмент для управления историей коммитов в системе контроля версий Git. Этот механизм позволяет разработчикам изменять последовательность, комбинировать или. . .	Как поменять цвет input placeholder с помощью CSS bytestream 24.01.2025 В веб-разработке оформление элементов пользовательского интерфейса играет ключевую роль в создании привлекательного и интуитивно понятного дизайна. Особое внимание уделяется формам ввода данных, где. . .	Как перебрать все значения в перечислении (enum) в C# bytestream 24.01.2025 Перечисление (enum) в языке программирования C# представляет собой специальный тип данных, который позволяет определить набор именованных констант. Этот мощный инструмент особенно полезен, когда. . .	Как обойтись без проверки на null, чтобы избежать NullPointerException в Java bytestream 24.01.2025 NullPointerException (NPE) является одним из самых распространенных исключений в Java, создающих серьезные проблемы при разработке программного обеспечения. Данное исключение возникает при попытке. . .	Что лучше использовать в href ссылок в JavaScript: "#" или "javascript:void(0)" bytestream 24.01.2025 При разработке веб-приложений важную роль играет правильное использование HTML-ссылок в сочетании с JavaScript. Одним из ключевых аспектов является выбор корректного значения атрибута href для. . .
Как узнать индекс элемента списка по его значению в Python hw_wired 24.01.2025 При работе с коллекциями данных в Python часто возникает необходимость не только манипулировать элементами списка, но и определять их точное местоположение. Индекс элемента представляет собой. . .	Как удалить коммит из ветки (branch) в Git hw_wired 24.01.2025 Система контроля версий Git является мощным инструментом для отслеживания изменений в коде и совместной работы над проектами. Она предоставляет разработчикам гибкость и возможность экспериментировать. . .	Чем Docker отличается от виртульной машины hw_wired 24.01.2025 В мире информационных технологий виртуализация стала неотъемлемой частью разработки и развертывания программного обеспечения. Этот подход позволяет создавать изолированные среды для запуска. . .	Как перейти с jQuery на Angular/AngularJS bytestream 24.01.2025 jQuery долгое время занимала позицию незаменимого инструмента, существенно упрощающего работу с DOM-элементами и асинхронными запросами. Эта библиотека произвела настоящую революцию в том, как. . .	Зачем добавляется while (1); в JSON. Безопасность JSON и его уязвимости bytestream 24.01.2025 JavaScript Object Notation (JSON) стал стандартом де-факто для обмена данными между клиентом и сервером. Этот легковесный формат данных обеспечивает удобное представление структурированной информации. . .	Как отметить чекбокс (установить checked) с помощью jQuery bytestream 24.01.2025 jQuery представляет собой мощную JavaScript-библиотеку, которая значительно упрощает манипуляции с элементами веб-страницы, включая работу с формами и их компонентами. Особое место в веб-разработке. . .

@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