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

Вход

Регистрация

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

 

= Мир MS Excel/Сохранить в пдф в текущую папку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранить в пдф в текущую папку (Макросы/Sub)
Сохранить в пдф в текущую папку
GerczeG Дата: Среда, 02.08.2017, 05:24 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Здравствуйте. нужна помощь в корректировке макроса.

Нужен простой макрос но в силу своего тугоумия не могу его правильно откорректировать(
Требуется сохранить текущий файл Execel в текущей папке с текущим именем в формате pdf.

То что у меня получилось:
[vba]
Код

Sub тест10()

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="sales.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub
[/vba]

Но в таком фиде он сохраняет в мои документы.
Заранее спасибо.


Сообщение отредактировал Manyasha - Среда, 02.08.2017, 12:16
 
Ответить
СообщениеЗдравствуйте. нужна помощь в корректировке макроса.

Нужен простой макрос но в силу своего тугоумия не могу его правильно откорректировать(
Требуется сохранить текущий файл Execel в текущей папке с текущим именем в формате pdf.

То что у меня получилось:
[vba]
Код

Sub тест10()

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="sales.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub
[/vba]

Но в таком фиде он сохраняет в мои документы.
Заранее спасибо.
Автор - GerczeG
Дата добавления - 02.08.2017 в 05:24
AndreTM Дата: Среда, 02.08.2017, 05:45 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
[vba]
Код
... Filename:=(ActiveWorkbook.Path & Applicaton.PathSeparator & "sales.pdf"), ...
[/vba]
Или
[vba]
Код
... Filename:=(ActiveWorkbook.FullName & ".pdf"), ...
[/vba]что сохранит с тем же именем, что и у текущей книги (включая расширение), но с конечным расширением .pdf

Если же надо именно "с тем же только именем", то можно поступить немного похитрее:
[vba]
Код
... Filename:=(Left(ActiveWorkbook.FullName, InStrRev(ActiveWorkbook.FullName, ".")) & "pdf"), ...
[/vba]

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM - Среда, 02.08.2017, 06:22
 
Ответить
Сообщение[vba]
Код
... Filename:=(ActiveWorkbook.Path & Applicaton.PathSeparator & "sales.pdf"), ...
[/vba]
Или
[vba]
Код
... Filename:=(ActiveWorkbook.FullName & ".pdf"), ...
[/vba]что сохранит с тем же именем, что и у текущей книги (включая расширение), но с конечным расширением .pdf

Если же надо именно "с тем же только именем", то можно поступить немного похитрее:
[vba]
Код
... Filename:=(Left(ActiveWorkbook.FullName, InStrRev(ActiveWorkbook.FullName, ".")) & "pdf"), ...
[/vba]
Автор - AndreTM
Дата добавления - 02.08.2017 в 05:45
GerczeG Дата: Среда, 02.08.2017, 06:03 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Огромное спасибо 2й вариант отлично работает.
 
Ответить
СообщениеОгромное спасибо 2й вариант отлично работает.
Автор - GerczeG
Дата добавления - 02.08.2017 в 06:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранить в пдф в текущую папку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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