Изменение названия в сохраняемом файле
Евгений
Дата: Понедельник, 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] Евгений
Ответить
Сообщение Добрый день. С прошедшими всех праздниками. Прошу помощи. Написал макрос для экспорта файла в 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
Группа: Админы
Ранг: Местный житель
Сообщений: 19342
Репутация:
4522
±
Замечаний:
±
Excel 365 & Mac Excel
Здравствуйте. А что у Вас в А1?
Здравствуйте. А что у Вас в А1? Pelena
"Черт возьми, Холмс! Но как??!!" Ю-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]
Евгений , здравствуйте. Запускайте макрос со страницы, на которой в ячейке А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
Роман, Москва, 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
Группа: Админы
Ранг: Участник клуба
Сообщений: 2770
Репутация:
1140
±
Замечаний:
±
начинал с Excel 4.0, видел 2.1
[vba]Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ActiveSheet.Range("A1").Value, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True
[/vba]
[vba]Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ActiveSheet.Range("A1").Value, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True
[/vba] Gustav
МОИ: Ник , 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] Евгений
Ответить
Сообщение Почему-то выдает ошибку [moder]Потому что не прочитали Правила форума и не приложили файл с примером[/moder] Автор - Евгений Дата добавления - 12.01.2015 в 12:15
Евгений
Дата: Понедельник, 12.01.2015, 12:48 |
Сообщение № 6
Так понимаю нужно создать новую тему с приложением файла? [moder]Не надо новую, просто зарегистрируйтесь и приложите файл в этой теме[/moder]
Так понимаю нужно создать новую тему с приложением файла? [moder]Не надо новую, просто зарегистрируйтесь и приложите файл в этой теме[/moder] Евгений
Ответить
Сообщение Так понимаю нужно создать новую тему с приложением файла? [moder]Не надо новую, просто зарегистрируйтесь и приложите файл в этой теме[/moder] Автор - Евгений Дата добавления - 12.01.2015 в 12:48
KolyvanOFF
Дата: Понедельник, 12.01.2015, 12:56 |
Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация:
7
±
Замечаний:
60% ±
Excel 2010
Имя файла при сохранении цепляться должно из Н3.
Имя файла при сохранении цепляться должно из Н3. KolyvanOFF
К сообщению приложен файл:
_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
С уважением, Евгений
Ответить
Сообщение А если текст длиннее чем Ячейка, может ошибку выдавать? Автор - KolyvanOFF Дата добавления - 12.01.2015 в 13:06
Gustav
Дата: Понедельник, 12.01.2015, 13:32 |
Сообщение № 9
Группа: Админы
Ранг: Участник клуба
Сообщений: 2770
Репутация:
1140
±
Замечаний:
±
начинал с Excel 4.0, видел 2.1
А если текст длиннее чем Ячейка
В ячейку можно поместить 32767 символов. Вам не хватает? Для названия файла (и всех папок пути)??
А если текст длиннее чем Ячейка
В ячейку можно поместить 32767 символов. Вам не хватает? Для названия файла (и всех папок пути)??Gustav
МОИ: Ник , Tip box: 41001663842605
Ответить
Сообщение А если текст длиннее чем Ячейка
В ячейку можно поместить 32767 символов. Вам не хватает? Для названия файла (и всех папок пути)??Автор - Gustav Дата добавления - 12.01.2015 в 13:32
KolyvanOFF
Дата: Понедельник, 12.01.2015, 13:42 |
Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация:
7
±
Замечаний:
60% ±
Excel 2010
Gustav, Делаю ссылку на ячейку B16 - все норм. Как ссылаюсь на другую ячейку сразу вилы!
Gustav, Делаю ссылку на ячейку B16 - все норм. Как ссылаюсь на другую ячейку сразу вилы! KolyvanOFF
С уважением, Евгений
Ответить
Сообщение Gustav, Делаю ссылку на ячейку B16 - все норм. Как ссылаюсь на другую ячейку сразу вилы! Автор - KolyvanOFF Дата добавления - 12.01.2015 в 13:42
KolyvanOFF
Дата: Понедельник, 12.01.2015, 13:49 |
Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация:
7
±
Замечаний:
60% ±
Excel 2010
Друзья спасибо всем. После праздников вообще репа не варит. В ячейке были символы с которыми не сохраняются файлы. Вот и весь затык. Теперь все работает.
Друзья спасибо всем. После праздников вообще репа не варит. В ячейке были символы с которыми не сохраняются файлы. Вот и весь затык. Теперь все работает. KolyvanOFF
С уважением, Евгений
Ответить
Сообщение Друзья спасибо всем. После праздников вообще репа не варит. В ячейке были символы с которыми не сохраняются файлы. Вот и весь затык. Теперь все работает. Автор - KolyvanOFF Дата добавления - 12.01.2015 в 13:49