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

Вход

Регистрация

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

 

= Мир MS Excel/Изменение названия в сохраняемом файле - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение названия в сохраняемом файле (Макросы/Sub)
Изменение названия в сохраняемом файле
Евгений Дата: Понедельник, 12.01.2015, 11:48 | Сообщение № 1
Группа: Гости
Добрый день. С прошедшими всех праздниками.
Прошу помощи. Написал макрос для экспорта файла в PDF формат. Помогите дописать макрос чтобы он переименовывал файл исходя из ячейки А1.

[vba]
Код
Sub ПЕЧАТЬКП()
'
' ПЕЧАТЬКП Макрос
'

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"U:\Общие файлы\КОММЕРЧЕСКИЕ ПРЕДЛОЖЕНИЯ\Коммерческое предложение.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
[/vba]
 
Ответить
СообщениеДобрый день. С прошедшими всех праздниками.
Прошу помощи. Написал макрос для экспорта файла в PDF формат. Помогите дописать макрос чтобы он переименовывал файл исходя из ячейки А1.

[vba]
Код
Sub ПЕЧАТЬКП()
'
' ПЕЧАТЬКП Макрос
'

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"U:\Общие файлы\КОММЕРЧЕСКИЕ ПРЕДЛОЖЕНИЯ\Коммерческое предложение.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
[/vba]
Автор - Евгений
Дата добавления - 12.01.2015 в 11:48
Pelena Дата: Понедельник, 12.01.2015, 11:54 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19188
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
А что у Вас в А1?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
А что у Вас в А1?
Автор - Pelena
Дата добавления - 12.01.2015 в 11:54
Rioran Дата: Понедельник, 12.01.2015, 11:56 | Сообщение № 3
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Евгений, здравствуйте.

Запускайте макрос со страницы, на которой в ячейке А1 нужное имя (или расскажите, откуда и как запускаете макрос и на каком листе проверяете А1)

[vba]
Код
Sub ПЕЧАТЬКП()
'
' ПЕЧАТЬКП Макрос
'

ActiveSheet.ExportAsFixedFormat _
     Type:=xlTypePDF, _
     Filename:="U:\Общие файлы\КОММЕРЧЕСКИЕ ПРЕДЛОЖЕНИЯ\" & [A1].Value & ".pdf", _
     Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, _
     OpenAfterPublish:=True

End Sub
[/vba]

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеЕвгений, здравствуйте.

Запускайте макрос со страницы, на которой в ячейке А1 нужное имя (или расскажите, откуда и как запускаете макрос и на каком листе проверяете А1)

[vba]
Код
Sub ПЕЧАТЬКП()
'
' ПЕЧАТЬКП Макрос
'

ActiveSheet.ExportAsFixedFormat _
     Type:=xlTypePDF, _
     Filename:="U:\Общие файлы\КОММЕРЧЕСКИЕ ПРЕДЛОЖЕНИЯ\" & [A1].Value & ".pdf", _
     Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, _
     OpenAfterPublish:=True

End Sub
[/vba]
Автор - Rioran
Дата добавления - 12.01.2015 в 11:56
Gustav Дата: Понедельник, 12.01.2015, 11:56 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2748
Репутация: 1138 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
[vba]
Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _  
ActiveSheet.Range("A1").Value, _  
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _  
:=False, OpenAfterPublish:=True
[/vba]

МОИ: Ник, Tip box: 41001663842605
 
Ответить
Сообщение[vba]
Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _  
ActiveSheet.Range("A1").Value, _  
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _  
:=False, OpenAfterPublish:=True
[/vba]
Автор - Gustav
Дата добавления - 12.01.2015 в 11:56
Евгений Дата: Понедельник, 12.01.2015, 12:15 | Сообщение № 5
Группа: Гости
Почему-то выдает ошибку
[moder]Потому что не прочитали Правила форума и не приложили файл с примером[/moder]
 
Ответить
СообщениеПочему-то выдает ошибку
[moder]Потому что не прочитали Правила форума и не приложили файл с примером[/moder]
Автор - Евгений
Дата добавления - 12.01.2015 в 12:15
Евгений Дата: Понедельник, 12.01.2015, 12:48 | Сообщение № 6
Группа: Гости
Так понимаю нужно создать новую тему с приложением файла?
[moder]Не надо новую, просто зарегистрируйтесь и приложите файл в этой теме[/moder]
 
Ответить
СообщениеТак понимаю нужно создать новую тему с приложением файла?
[moder]Не надо новую, просто зарегистрируйтесь и приложите файл в этой теме[/moder]
Автор - Евгений
Дата добавления - 12.01.2015 в 12:48
KolyvanOFF Дата: Понедельник, 12.01.2015, 12:56 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
Имя файла при сохранении цепляться должно из Н3.
К сообщению приложен файл: _1.xlsm (19.5 Kb)

С уважением, Евгений
 
Ответить
СообщениеИмя файла при сохранении цепляться должно из Н3.
Автор - KolyvanOFF
Дата добавления - 12.01.2015 в 12:56
KolyvanOFF Дата: Понедельник, 12.01.2015, 13:06 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
А если текст длиннее чем Ячейка, может ошибку выдавать?

С уважением, Евгений
 
Ответить
СообщениеА если текст длиннее чем Ячейка, может ошибку выдавать?
Автор - KolyvanOFF
Дата добавления - 12.01.2015 в 13:06
Gustav Дата: Понедельник, 12.01.2015, 13:32 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2748
Репутация: 1138 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
Цитата KolyvanOFF, 12.01.2015 в 13:06, в сообщении № 8
А если текст длиннее чем Ячейка

В ячейку можно поместить 32767 символов. Вам не хватает? Для названия файла (и всех папок пути)??

МОИ: Ник, Tip box: 41001663842605
 
Ответить
Сообщение
Цитата KolyvanOFF, 12.01.2015 в 13:06, в сообщении № 8
А если текст длиннее чем Ячейка

В ячейку можно поместить 32767 символов. Вам не хватает? Для названия файла (и всех папок пути)??
Автор - Gustav
Дата добавления - 12.01.2015 в 13:32
KolyvanOFF Дата: Понедельник, 12.01.2015, 13:42 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
Gustav, Делаю ссылку на ячейку B16 - все норм. Как ссылаюсь на другую ячейку сразу вилы!

С уважением, Евгений
 
Ответить
СообщениеGustav, Делаю ссылку на ячейку B16 - все норм. Как ссылаюсь на другую ячейку сразу вилы!
Автор - KolyvanOFF
Дата добавления - 12.01.2015 в 13:42
KolyvanOFF Дата: Понедельник, 12.01.2015, 13:49 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
Друзья спасибо всем. После праздников вообще репа не варит. В ячейке были символы с которыми не сохраняются файлы. Вот и весь затык.
Теперь все работает.

С уважением, Евгений
 
Ответить
СообщениеДрузья спасибо всем. После праздников вообще репа не варит. В ячейке были символы с которыми не сохраняются файлы. Вот и весь затык.
Теперь все работает.
Автор - KolyvanOFF
Дата добавления - 12.01.2015 в 13:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение названия в сохраняемом файле (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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