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

Вход

Регистрация

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

 

= Мир MS Excel/Сохранение файла в ПДФ по кнопке(Макросом), имя файла и путь - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение файла в ПДФ по кнопке(Макросом), имя файла и путь (Макросы/Sub)
Сохранение файла в ПДФ по кнопке(Макросом), имя файла и путь
mikaelw Дата: Среда, 20.04.2022, 19:58 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 137
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010, 2013, 2016
Всем, доброго времени суток!

Сразу говорю, поиском искал, но мне не хватает мозга довезти до ума макрос.

Переписывал макрос на основе ПечатиСразуНапринтер

Все все срабатывает, но не пойму как решить 3 задачи:
1. Нужно чтоб Путь файла брало из ячейки.
2. Название файла брало из ячейки
3. Сваливалось в ошибку если файл уже есть!

Пример макроса в файле!

Заранее спасибо!
К сообщению приложен файл: __.xlsm(21.0 Kb)
 
Ответить
СообщениеВсем, доброго времени суток!

Сразу говорю, поиском искал, но мне не хватает мозга довезти до ума макрос.

Переписывал макрос на основе ПечатиСразуНапринтер

Все все срабатывает, но не пойму как решить 3 задачи:
1. Нужно чтоб Путь файла брало из ячейки.
2. Название файла брало из ячейки
3. Сваливалось в ошибку если файл уже есть!

Пример макроса в файле!

Заранее спасибо!

Автор - mikaelw
Дата добавления - 20.04.2022 в 19:58
mikaelw Дата: Среда, 20.04.2022, 23:39 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 137
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010, 2013, 2016
Нашел ошибку!

[vba]
Код
L = Range("C13") 'Имяфайла
M = Range("C15") 'каталог путь

.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"" & M & L & ".pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=k, _
OpenAfterPublish:=False

' Как валить в ошибку, если файл уже есть?
[/vba]

Как валить в ошибку, если файл уже есть?


Сообщение отредактировал mikaelw - Среда, 20.04.2022, 23:41
 
Ответить
СообщениеНашел ошибку!

[vba]
Код
L = Range("C13") 'Имяфайла
M = Range("C15") 'каталог путь

.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"" & M & L & ".pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=k, _
OpenAfterPublish:=False

' Как валить в ошибку, если файл уже есть?
[/vba]

Как валить в ошибку, если файл уже есть?

Автор - mikaelw
Дата добавления - 20.04.2022 в 23:39
_Boroda_ Дата: Четверг, 21.04.2022, 09:23 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16137
Репутация: 6259 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Например

DIR

FileExists


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНапример

DIR

FileExists

Автор - _Boroda_
Дата добавления - 21.04.2022 в 09:23
mikaelw Дата: Четверг, 21.04.2022, 11:53 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 137
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010, 2013, 2016


Так разумно будет:

[vba]
Код
If Dir("" & M & "\" & L & ".pdf") = "" Then     
             Else       
MsgBox "Файл существует!", 64, "Ошибка"
            Exit Sub
End If
[/vba]


Сообщение отредактировал Serge_007 - Четверг, 21.04.2022, 12:32
 
Ответить
Сообщение

Так разумно будет:

[vba]
Код
If Dir("" & M & "\" & L & ".pdf") = "" Then     
             Else       
MsgBox "Файл существует!", 64, "Ошибка"
            Exit Sub
End If
[/vba]

Автор - mikaelw
Дата добавления - 21.04.2022 в 11:53
Serge_007 Дата: Четверг, 21.04.2022, 12:32 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 15157
Репутация: 2503 ±
Замечаний: ±

Excel 2016
mikaelw, используйте теги VBA


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщениеmikaelw, используйте теги VBA

Автор - Serge_007
Дата добавления - 21.04.2022 в 12:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение файла в ПДФ по кнопке(Макросом), имя файла и путь (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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