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

Вход

Регистрация

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

 

= Мир MS Excel/Сохранение в PDF - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение в PDF (Макросы Sub)
Сохранение в PDF
Espada Дата: Вторник, 24.09.2013, 09:31 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

Всем доброго времени суток. Помогите, плиз, решить проблемку. Нужно сделать так, чтобы при открытии экселевского файла, он автоматом пересохранялся в pdf и открывался уже в нем. тоесть код должен быть привязан к инициализайии.
 
Ответить
СообщениеВсем доброго времени суток. Помогите, плиз, решить проблемку. Нужно сделать так, чтобы при открытии экселевского файла, он автоматом пересохранялся в pdf и открывался уже в нем. тоесть код должен быть привязан к инициализайии.
Автор - Espada
Дата добавления - 24.09.2013 в 09:31
Serge_007 Дата: Вторник, 24.09.2013, 09:52 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2750 ±
Замечаний: ±

Excel 2016
В модуль Эта книга:
[vba]
Код
Private Sub Workbook_Open()
       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       "C:\Documents and Settings\......\Espada.pdf", Quality:= _
       xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
       OpenAfterPublish:=True
       ActiveWorkbook.Close
End Sub
[/vba]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеВ модуль Эта книга:
[vba]
Код
Private Sub Workbook_Open()
       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       "C:\Documents and Settings\......\Espada.pdf", Quality:= _
       xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
       OpenAfterPublish:=True
       ActiveWorkbook.Close
End Sub
[/vba]
Автор - Serge_007
Дата добавления - 24.09.2013 в 09:52
Espada Дата: Вторник, 24.09.2013, 10:46 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

Всё отлично работает, спасибо! вот только ещё вопрос. можно чтобы вместо имени(в данном случае Espada.pdf) были данные например переменной Data?
 
Ответить
СообщениеВсё отлично работает, спасибо! вот только ещё вопрос. можно чтобы вместо имени(в данном случае Espada.pdf) были данные например переменной Data?
Автор - Espada
Дата добавления - 24.09.2013 в 10:46
SkyPro Дата: Вторник, 24.09.2013, 10:49 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[vba]
Код
Private Sub Workbook_Open()
Dim dataName$
dataName = "nazvanie"

      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      "C:\Documents and Settings\......\" & dataName & ".pdf", Quality:= _
      xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=True
      ActiveWorkbook.Close
End Sub
[/vba]

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Вторник, 24.09.2013, 10:50
 
Ответить
Сообщение[vba]
Код
Private Sub Workbook_Open()
Dim dataName$
dataName = "nazvanie"

      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      "C:\Documents and Settings\......\" & dataName & ".pdf", Quality:= _
      xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=True
      ActiveWorkbook.Close
End Sub
[/vba]
Автор - SkyPro
Дата добавления - 24.09.2013 в 10:49
_Boroda_ Дата: Вторник, 24.09.2013, 11:07 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16957
Репутация: 6631 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Может, так?
[vba]
Код
Private Sub Workbook_Open()
      p_ = ThisWorkbook.Path & Application.PathSeparator
      n_ = Format(Now, "YYYY_MM_DD_hh_mm_ss")
      fn_ = p_ & n_ & ".pdf"
      ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
          fn_, Quality:=xlQualityStandard, _
          IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
      ThisWorkbook.Save
      ThisWorkbook.Close
End Sub
[/vba]
К сообщению приложен файл: 12123452.xls (35.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеМожет, так?
[vba]
Код
Private Sub Workbook_Open()
      p_ = ThisWorkbook.Path & Application.PathSeparator
      n_ = Format(Now, "YYYY_MM_DD_hh_mm_ss")
      fn_ = p_ & n_ & ".pdf"
      ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
          fn_, Quality:=xlQualityStandard, _
          IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
      ThisWorkbook.Save
      ThisWorkbook.Close
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 24.09.2013 в 11:07
SkyPro Дата: Вторник, 24.09.2013, 11:17 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[offtop]
Цитата
Data

А я это понял как "оборот речи", еще и хотел порекомендовать не обьявлять переменные с такими именами =\

skypro1111@gmail.com
 
Ответить
Сообщение[offtop]
Цитата
Data

А я это понял как "оборот речи", еще и хотел порекомендовать не обьявлять переменные с такими именами =\
Автор - SkyPro
Дата добавления - 24.09.2013 в 11:17
Espada Дата: Вторник, 24.09.2013, 11:40 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

Это уже до меня объявляли, я дополняю отчет. Хаха всё равно не могу проверить) Когда использовал
[vba]
Код
ThisWorkbook.Close
[/vba]
он сразу открывает в пдф, и закрывает ексель) не могу отредактировать макрос. если отключаю в свойствах безопасности макрос вовсе не отображается. ребят что делать?)
 
Ответить
СообщениеЭто уже до меня объявляли, я дополняю отчет. Хаха всё равно не могу проверить) Когда использовал
[vba]
Код
ThisWorkbook.Close
[/vba]
он сразу открывает в пдф, и закрывает ексель) не могу отредактировать макрос. если отключаю в свойствах безопасности макрос вовсе не отображается. ребят что делать?)
Автор - Espada
Дата добавления - 24.09.2013 в 11:40
Espada Дата: Вторник, 24.09.2013, 11:49 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

я по поводу
Цитата (SkyPro, 24.09.2013 в 11:17, в сообщении № 6)
А я это понял как "оборот речи", еще и хотел порекомендовать не обьявлять переменные с такими именами =\

я пол года как работаю на данном предприятии, так вношу нововведения) а переделывать весь макрос из-за одной переменной неохота)
 
Ответить
Сообщениея по поводу
Цитата (SkyPro, 24.09.2013 в 11:17, в сообщении № 6)
А я это понял как "оборот речи", еще и хотел порекомендовать не обьявлять переменные с такими именами =\

я пол года как работаю на данном предприятии, так вношу нововведения) а переделывать весь макрос из-за одной переменной неохота)
Автор - Espada
Дата добавления - 24.09.2013 в 11:49
Espada Дата: Среда, 25.09.2013, 17:35 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

Спасибо ребят, немного подправил, всё прекрасно работает. Ещё вопросик после формирования пдф появляется окошко "Сохранить изменения в файле". по умолчанию там стоит "Сохранить". Можно ли сделать так , чтобы в окошке по умолчанию нажималось нет, и файлик закрывался?
 
Ответить
СообщениеСпасибо ребят, немного подправил, всё прекрасно работает. Ещё вопросик после формирования пдф появляется окошко "Сохранить изменения в файле". по умолчанию там стоит "Сохранить". Можно ли сделать так , чтобы в окошке по умолчанию нажималось нет, и файлик закрывался?
Автор - Espada
Дата добавления - 25.09.2013 в 17:35
SkyPro Дата: Среда, 25.09.2013, 17:38 | Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
В конце процедуры добавьте.
Только аккуратно с этим. Если вы поставите на открытие книги запуск макроса, то для изменения приедтся отключать макросы.
[vba]
Код
thisworkbook.close false
[/vba]

skypro1111@gmail.com
 
Ответить
СообщениеВ конце процедуры добавьте.
Только аккуратно с этим. Если вы поставите на открытие книги запуск макроса, то для изменения приедтся отключать макросы.
[vba]
Код
thisworkbook.close false
[/vba]
Автор - SkyPro
Дата добавления - 25.09.2013 в 17:38
Espada Дата: Среда, 25.09.2013, 17:46 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

хм не хочет чего-то. вот как у меня получается
[vba]
Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Z:\IT-отдел\alexei\ОТК\ВОДНЫЕ\BazaPDF\" & dataName & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
   ActiveWorkbook.Close
ThisWorkbook.Close False
[/vba]
 
Ответить
Сообщениехм не хочет чего-то. вот как у меня получается
[vba]
Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Z:\IT-отдел\alexei\ОТК\ВОДНЫЕ\BazaPDF\" & dataName & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
   ActiveWorkbook.Close
ThisWorkbook.Close False
[/vba]
Автор - Espada
Дата добавления - 25.09.2013 в 17:46
SkyPro Дата: Среда, 25.09.2013, 17:49 | Сообщение № 12
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[vba]
Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Z:\IT-отдел\alexei\ОТК\ВОДНЫЕ\BazaPDF\" & dataName & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
ThisWorkbook.Close False
[/vba]

[vba]
Код
ActiveWorkbook.Close
[/vba] - закрывает книгу и запрашивает сохранение. После чего макрос даже не будет пытаться закрыть закрытую книгу, так как она уже закрыта :)
Простите за тавтологию.

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Среда, 25.09.2013, 17:50
 
Ответить
Сообщение[vba]
Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Z:\IT-отдел\alexei\ОТК\ВОДНЫЕ\BazaPDF\" & dataName & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
ThisWorkbook.Close False
[/vba]

[vba]
Код
ActiveWorkbook.Close
[/vba] - закрывает книгу и запрашивает сохранение. После чего макрос даже не будет пытаться закрыть закрытую книгу, так как она уже закрыта :)
Простите за тавтологию.
Автор - SkyPro
Дата добавления - 25.09.2013 в 17:49
Espada Дата: Четверг, 26.09.2013, 09:26 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

:D извиняюсь) всё работает отлично)
 
Ответить
Сообщение:D извиняюсь) всё работает отлично)
Автор - Espada
Дата добавления - 26.09.2013 в 09:26
Tangar Дата: Вторник, 09.12.2014, 16:33 | Сообщение № 14
Группа: Гости
Уважаемые господа!

А как сохранить книгу с тем же именем, что и при открытии, но в PDF?

У меня всё время ошибка получается, так что даже не буду писАть сюда свои потуги ...
 
Ответить
СообщениеУважаемые господа!

А как сохранить книгу с тем же именем, что и при открытии, но в PDF?

У меня всё время ошибка получается, так что даже не буду писАть сюда свои потуги ...
Автор - Tangar
Дата добавления - 09.12.2014 в 16:33
JayBhagavan Дата: Вторник, 09.12.2014, 18:18 | Сообщение № 15
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 27 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
StrReverse(Mid(StrReverse(ActiveWorkbook.FullName), InStr(StrReverse(ActiveWorkbook.FullName), ".") + 1))
[/vba]
или
[vba]
Код
StrReverse(Mid(StrReverse(ActiveWorkbook.FullName), InStr(StrReverse(ActiveWorkbook.Name), ".") + 1))
[/vba]

Языком ты или построишь жизнь,или разрушишь ее до основания.Думайте что говорите.(с)А.Хакимов
 
Ответить
Сообщение[vba]
Код
StrReverse(Mid(StrReverse(ActiveWorkbook.FullName), InStr(StrReverse(ActiveWorkbook.FullName), ".") + 1))
[/vba]
или
[vba]
Код
StrReverse(Mid(StrReverse(ActiveWorkbook.FullName), InStr(StrReverse(ActiveWorkbook.Name), ".") + 1))
[/vba]
Автор - JayBhagavan
Дата добавления - 09.12.2014 в 18:18
Tangar Дата: Вторник, 09.12.2014, 18:46 | Сообщение № 16
Группа: Гости
Filename:= _
StrReverse(Mid(StrReverse(ActiveWorkbook.FullName), InStr(StrReverse(ActiveWorkbook.FullName), ".") + 1)) & ".pdf"

Так?
 
Ответить
СообщениеFilename:= _
StrReverse(Mid(StrReverse(ActiveWorkbook.FullName), InStr(StrReverse(ActiveWorkbook.FullName), ".") + 1)) & ".pdf"

Так?
Автор - Tangar
Дата добавления - 09.12.2014 в 18:46
JayBhagavan Дата: Вторник, 09.12.2014, 18:59 | Сообщение № 17
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 27 ±
Замечаний: 0% ±

Excel 2010
Tangar, показал как получить имя или имя с путём текущей книги. Как сохранить в пдф описано выше.

Языком ты или построишь жизнь,или разрушишь ее до основания.Думайте что говорите.(с)А.Хакимов
 
Ответить
СообщениеTangar, показал как получить имя или имя с путём текущей книги. Как сохранить в пдф описано выше.
Автор - JayBhagavan
Дата добавления - 09.12.2014 в 18:59
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение в PDF (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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