Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Конвертация в pdf (Макросы/Sub)
Конвертация в pdf
OlegSmirnov Дата: Пятница, 07.08.2020, 06:56 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 97
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброе время суток.
У меня не работает макрос конвертации диапазона в pdf
Что не так - почему не работает (ощибки не показывает, но и не сохраняет ничего)?
К сообщению приложен файл: excel_to_pdf.xlsm(24.6 Kb)
 
Ответить
СообщениеДоброе время суток.
У меня не работает макрос конвертации диапазона в pdf
Что не так - почему не работает (ощибки не показывает, но и не сохраняет ничего)?

Автор - OlegSmirnov
Дата добавления - 07.08.2020 в 06:56
doober Дата: Пятница, 07.08.2020, 15:58 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 671
Репутация: 255 ±
Замечаний: 0% ±

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


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

Автор - doober
Дата добавления - 07.08.2020 в 15:58
OlegSmirnov Дата: Пятница, 07.08.2020, 22:13 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 97
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

А какие листы вообще прописаны в макросе ?
Единственное упоминание листов в этом макросе - это Sheets.Select
 
Ответить
Сообщениеdoober,
Первая же ошибка возникает на mkdir, такая папка у меня есть.

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

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

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

Автор - OlegSmirnov
Дата добавления - 07.08.2020 в 22:13
Pelena Дата: Пятница, 07.08.2020, 22:39 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16779
Репутация: 3621 ±
Замечаний: ±

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


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеУ меня макрос отработал, преобразовал в pdf листы всех файлов из выбранной папки и сохранил в текущую папку.
Подозреваю, что Вы не этого хотели (?)

Автор - Pelena
Дата добавления - 07.08.2020 в 22:39
OlegSmirnov Дата: Пятница, 07.08.2020, 22:46 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 97
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena, у вас какой эксель ?
У меня 2016
 
Ответить
СообщениеPelena, у вас какой эксель ?
У меня 2016

Автор - OlegSmirnov
Дата добавления - 07.08.2020 в 22:46
doober Дата: Суббота, 08.08.2020, 01:04 | Сообщение № 6
Группа: Друзья
Ранг: Ветеран
Сообщений: 671
Репутация: 255 ±
Замечаний: 0% ±

Excel 2010
Какая папка ?

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

Открытие_файлов_в_папке() отработало без проблем
К сообщению приложен файл: 4885535.png(50.1 Kb)


 
Ответить
Сообщение
Какая папка ?

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

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

Автор - doober
Дата добавления - 08.08.2020 в 01:04
OlegSmirnov Дата: Суббота, 08.08.2020, 01:14 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 97
Репутация: 0 ±
Замечаний: 0% ±

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

Макрос выдает ошибку:
Run-time error '75'
Path/File access error
 
Ответить
Сообщениеdoober, ясно.
Я запускаю этот макрос - ExportAsPDF
(Перед этим поменял названия листов)

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

Автор - OlegSmirnov
Дата добавления - 08.08.2020 в 01:14
Pelena Дата: Суббота, 08.08.2020, 06:48 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16779
Репутация: 3621 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
У меня 2016
аналогично.

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


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
У меня 2016
аналогично.

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

Автор - Pelena
Дата добавления - 08.08.2020 в 06:48
OlegSmirnov Дата: Суббота, 08.08.2020, 07:25 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 97
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - OlegSmirnov
Дата добавления - 08.08.2020 в 07:25
Pelena Дата: Суббота, 08.08.2020, 10:29 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 16779
Репутация: 3621 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
те листы что выделены в текущем файле

Во-от, а макрос-то совсем другие листы конвертирует, те, которые в открываемых файлах. Зачем тогда вообще открывать файлы из выбранной папки? Эта команда
[vba]
Код
Set importWb = Workbooks.Open(sFolder & sfiles)
[/vba] видимо, лишняя


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
те листы что выделены в текущем файле

Во-от, а макрос-то совсем другие листы конвертирует, те, которые в открываемых файлах. Зачем тогда вообще открывать файлы из выбранной папки? Эта команда
[vba]
Код
Set importWb = Workbooks.Open(sFolder & sfiles)
[/vba] видимо, лишняя

Автор - Pelena
Дата добавления - 08.08.2020 в 10:29
doober Дата: Суббота, 08.08.2020, 17:50 | Сообщение № 11
Группа: Друзья
Ранг: Ветеран
Сообщений: 671
Репутация: 255 ±
Замечаний: 0% ±

Excel 2010
Вот рабочий макрос[vba]
Код
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
[/vba]


 
Ответить
СообщениеВот рабочий макрос[vba]
Код
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
[/vba]

Автор - doober
Дата добавления - 08.08.2020 в 17:50
OlegSmirnov Дата: Суббота, 08.08.2020, 18:53 | Сообщение № 12
Группа: Пользователи
Ранг: Участник
Сообщений: 97
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
doober, спасибо.
Теперь все сразу заработало.
 
Ответить
Сообщениеdoober, спасибо.
Теперь все сразу заработало.

Автор - OlegSmirnov
Дата добавления - 08.08.2020 в 18:53
Extybr Дата: Вторник, 11.08.2020, 22:49 | Сообщение № 13
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Extybr
Дата добавления - 11.08.2020 в 22:49
doober Дата: Вторник, 11.08.2020, 23:05 | Сообщение № 14
Группа: Друзья
Ранг: Ветеран
Сообщений: 671
Репутация: 255 ±
Замечаний: 0% ±

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


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

Автор - doober
Дата добавления - 11.08.2020 в 23:05
Extybr Дата: Среда, 12.08.2020, 04:03 | Сообщение № 15
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Extybr
Дата добавления - 12.08.2020 в 04:03
doober Дата: Четверг, 13.08.2020, 00:46 | Сообщение № 16
Группа: Друзья
Ранг: Ветеран
Сообщений: 671
Репутация: 255 ±
Замечаний: 0% ±

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


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

Автор - doober
Дата добавления - 13.08.2020 в 00:46
Extybr Дата: Четверг, 13.08.2020, 22:25 | Сообщение № 17
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Extybr
Дата добавления - 13.08.2020 в 22:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Конвертация в pdf (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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