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

Вход

Регистрация

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

 

= Мир MS Excel/Убрать всплывающее окно об удачной ковертации в PDF - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Убрать всплывающее окно об удачной ковертации в PDF
jeka_piter Дата: Четверг, 22.08.2013, 19:27 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день, имею макрос сохранения файла по имени ячейки в pdf :

[vba]
Код
Dim k2 As String
k2 = "\\USER_S\Users\Мальтима\Счета\2013\Заказы 2013\" & ActiveSheet.Cells(11, 2) & ".pdf"

MsgBox k2 + vbCrLf + CStr(k2)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=k2 _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
[/vba]

Вопрос: в процессе сохранения вылазиет окно, не нажав ОК в котором публикации не произойдет. Так вот, может кто знает - возможно ли от него избавиться, что бы макрос понимал, что нажали ОК?!
К сообщению приложен файл: 0939396.jpg (58.1 Kb)


Сообщение отредактировал jeka_piter - Четверг, 22.08.2013, 19:28
 
Ответить
СообщениеДобрый день, имею макрос сохранения файла по имени ячейки в pdf :

[vba]
Код
Dim k2 As String
k2 = "\\USER_S\Users\Мальтима\Счета\2013\Заказы 2013\" & ActiveSheet.Cells(11, 2) & ".pdf"

MsgBox k2 + vbCrLf + CStr(k2)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=k2 _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
[/vba]

Вопрос: в процессе сохранения вылазиет окно, не нажав ОК в котором публикации не произойдет. Так вот, может кто знает - возможно ли от него избавиться, что бы макрос понимал, что нажали ОК?!

Автор - jeka_piter
Дата добавления - 22.08.2013 в 19:27
Alex_ST Дата: Четверг, 22.08.2013, 19:31 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3213
Репутация: 609 ±
Замечаний: 0% ±

2003
Удалите
[vba]
Код
MsgBox k2 + vbCrLf + CStr(k2)
[/vba]



С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеУдалите
[vba]
Код
MsgBox k2 + vbCrLf + CStr(k2)
[/vba]

Автор - Alex_ST
Дата добавления - 22.08.2013 в 19:31
jeka_piter Дата: Четверг, 22.08.2013, 19:57 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Alex_ST,
Большое спасибо!
 
Ответить
СообщениеAlex_ST,
Большое спасибо!

Автор - jeka_piter
Дата добавления - 22.08.2013 в 19:57
  • Страница 1 из 1
  • 1
Поиск:

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