Конвертация в pdf - Мир MS Excel

Версия для слабовидящих

= Мир MS Excel/Конвертация в pdf - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Конвертация в pdf (Макросы/Sub)

Конвертация в pdf

Дата: Пятница, 07.08.2020, 06:56 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 97

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброе время суток.
У меня не работает макрос конвертации диапазона в pdf
Что не так - почему не работает (ощибки не показывает, но и не сохраняет ничего)?

К сообщению приложен файл: excel_to_pdf.xlsm (24.6 Kb)

Ответить

Дата: Пятница, 07.08.2020, 15:58 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 993

Репутация: 345 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте
Вы пытаетесь чужой макрос выполнить не вникнув в код.
Первая же ошибка возникает на mkdir, такая папка у меня есть.
Вторая, у каждого файла должно быть расширение.
Третья , листов нет таких в книге, которые прописаны в макросе
Все ошибки выводятся.

Ответить

Дата: Пятница, 07.08.2020, 22:13 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 97

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

doober,

Цитата doober, 07.08.2020 в 15:58, в сообщении № 2 ( писал(а)):

Первая же ошибка возникает на mkdir, такая папка у меня есть.

Какая папка ?
Скрипт сам предлагает выбрать папку для сохранения.

Цитата doober, 07.08.2020 в 15:58, в сообщении № 2 ( писал(а)):

Вторая, у каждого файла должно быть расширение.

Какого файла ?

Цитата doober, 07.08.2020 в 15:58, в сообщении № 2 ( писал(а)):

Третья , листов нет таких в книге, которые прописаны в макросе

А какие листы вообще прописаны в макросе ?
Единственное упоминание листов в этом макросе - это Sheets.Select

Ответить

Дата: Пятница, 07.08.2020, 22:39 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19511

Репутация: 4620 ±

Замечаний: ±

Excel 365 & Mac Excel

У меня макрос отработал, преобразовал в pdf листы всех файлов из выбранной папки и сохранил в текущую папку.
Подозреваю, что Вы не этого хотели (?)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Пятница, 07.08.2020, 22:46 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 97

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Pelena, у вас какой эксель ?
У меня 2016

Ответить

Дата: Суббота, 08.08.2020, 01:04 | Сообщение № 6

Группа: Друзья

Ранг: Ветеран

Сообщений: 993

Репутация: 345 ±

Замечаний: 0% ±

Excel 2010

Цитата OlegSmirnov, 07.08.2020 в 22:13, в сообщении № 3 ( писал(а)):

Какая папка ?

Я о процедуре ExportAsPDF()

Открытие_файлов_в_папке() отработало без проблем

К сообщению приложен файл: 4885535.png (50.1 Kb)

Ответить

Дата: Суббота, 08.08.2020, 01:14 | Сообщение № 7

Группа: Пользователи

Ранг: Участник

Сообщений: 97

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

doober, ясно.
Я запускаю этот макрос - ExportAsPDF
(Перед этим поменял названия листов)

Макрос выдает ошибку:
Run-time error '75'
Path/File access error

Ответить

Дата: Суббота, 08.08.2020, 06:48 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 19511

Репутация: 4620 ±

Замечаний: ±

Excel 365 & Mac Excel

Цитата OlegSmirnov, 07.08.2020 в 22:46, в сообщении № 5 ( писал(а)):

У меня 2016

аналогично.

OlegSmirnov, Вы поясните словами, что Вы хотите сделать. Какие листы конвертировать? Те, что Вы выделяете в текущем файле? Или те, что в файлах в выбранной папке?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Суббота, 08.08.2020, 07:25 | Сообщение № 9

Группа: Пользователи

Ранг: Участник

Сообщений: 97

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Pelena, те листы что выделены в текущем файле.
Но ничего не конвертируется.

Ответить

Pelena Дата: Суббота, 08.08.2020, 10:29 | Сообщение № 10

Группа: Админы

Ранг: Местный житель

Сообщений: 19511

Репутация: 4620 ±

Замечаний: ±

Excel 365 & Mac Excel

Цитата OlegSmirnov, 08.08.2020 в 07:25, в сообщении № 9 ( писал(а)):

те листы что выделены в текущем файле

Во-от, а макрос-то совсем другие листы конвертирует, те, которые в открываемых файлах. Зачем тогда вообще открывать файлы из выбранной папки? Эта команда

Set importWb = Workbooks.Open(sFolder & sfiles)

видимо, лишняя

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

doober Дата: Суббота, 08.08.2020, 17:50 | Сообщение № 11

Группа: Друзья

Ранг: Ветеран

Сообщений: 993

Репутация: 345 ±

Замечаний: 0% ±

Excel 2010

Вот рабочий макрос

Sub ExportAsPDF() Dim Filename As String With CreateObject("Scripting.FileSystemObject") Filename = .BuildPath(ThisWorkbook.Path, .GetBaseName(ThisWorkbook.Name) & ".pdf") End With ThisWorkbook.Worksheets.Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filename _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, ignoreprintareas _ :=False, openafterpublish:=True MsgBox "All PDF's have been successfully exported." End Sub

Ответить

Дата: Суббота, 08.08.2020, 18:53 | Сообщение № 12

Группа: Пользователи

Ранг: Участник

Сообщений: 97

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

doober, спасибо.
Теперь все сразу заработало.

Ответить

Дата: Вторник, 11.08.2020, 22:49 | Сообщение № 13

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

doober, подскажите пожалуйста а к листу на котором сводные таблицы собраны этот макрос можно применить.....че то ощибку выдает на строку
ThisWorkbook.Worksheets.Select..............

Ответить

Дата: Вторник, 11.08.2020, 23:05 | Сообщение № 14

Группа: Друзья

Ранг: Ветеран

Сообщений: 993

Репутация: 345 ±

Замечаний: 0% ±

Excel 2010

Если работаете с активным листом и остальные ненужны, то удалите эту строку

Ответить

Дата: Среда, 12.08.2020, 04:03 | Сообщение № 15

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

doober,
да работает...но весь лист со сводными сохраняет в один файл а как бы чтоб каждую таблицу сохранял на отдельный лист в создаваемом файле

Ответить

Дата: Четверг, 13.08.2020, 00:46 | Сообщение № 16

Группа: Друзья

Ранг: Ветеран

Сообщений: 993

Репутация: 345 ±

Замечаний: 0% ±

Excel 2010

В pdf нет листов, есть страницы.
Попробуйте применить разрывы страниц между сводными.

Ответить

Дата: Четверг, 13.08.2020, 22:25 | Сообщение № 17

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

имел ввиду на листе книги эксель есть около 10 сводных таблиц, хочу припилить ваш макрос что бы при нажатии кнопки создавался файл пдф в папке с именем - сводные. папка там где лежит экселевский файл.(имя файла- дата когда создан)в файле все сводные таблицы что бы были на разных страницах (вписать все столбцы каждой таблицы на лист) , при следующем нажатии на кнопку файл сохранялся а предыдущий удалялся
создать отдельную тему?

Ответить

Конвертация в pdf (Макросы/Sub)

Страница 1 из 1
1

© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!