Макрос печатать листы в пдф, как сохранять название?
Dersarius
Дата: Понедельник, 16.03.2015, 22:28 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Ребят подскажите, через рекордер записал макрос, устраивает, но зараза не могу понять как прописать в этом макросе когда идет печать в ПДФ чтобы название файлов все всремя разное было, а то получается перезаписывает друг друга после печати =(((( В итоге вопрос =)))) как сделать что бы при выходе название все время менялось например 1, потом 2 и т.д =))) Извените за тупость, тяжко новичкам =(( И можно ли чтобы название с ячейки макрос брал в название файла прописывал? [vba]Код
Sub Макрос1() ' ' Макрос1 ' ' Sheets("лист1").Select Sheets("лист2").Visible = True Sheets("лист2").Select Range("J15:M15").Select ChDir _ "C:\Новая папка" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Новая папка\файл.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Range("A1:Y57").Select Sheets("лист2").Select ActiveWindow.SelectedSheets.Visible = False End Sub
[/vba]
Ребят подскажите, через рекордер записал макрос, устраивает, но зараза не могу понять как прописать в этом макросе когда идет печать в ПДФ чтобы название файлов все всремя разное было, а то получается перезаписывает друг друга после печати =(((( В итоге вопрос =)))) как сделать что бы при выходе название все время менялось например 1, потом 2 и т.д =))) Извените за тупость, тяжко новичкам =(( И можно ли чтобы название с ячейки макрос брал в название файла прописывал? [vba]Код
Sub Макрос1() ' ' Макрос1 ' ' Sheets("лист1").Select Sheets("лист2").Visible = True Sheets("лист2").Select Range("J15:M15").Select ChDir _ "C:\Новая папка" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Новая папка\файл.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Range("A1:Y57").Select Sheets("лист2").Select ActiveWindow.SelectedSheets.Visible = False End Sub
[/vba] Dersarius
Сообщение отредактировал Dersarius - Понедельник, 16.03.2015, 22:56
Ответить
Сообщение Ребят подскажите, через рекордер записал макрос, устраивает, но зараза не могу понять как прописать в этом макросе когда идет печать в ПДФ чтобы название файлов все всремя разное было, а то получается перезаписывает друг друга после печати =(((( В итоге вопрос =)))) как сделать что бы при выходе название все время менялось например 1, потом 2 и т.д =))) Извените за тупость, тяжко новичкам =(( И можно ли чтобы название с ячейки макрос брал в название файла прописывал? [vba]Код
Sub Макрос1() ' ' Макрос1 ' ' Sheets("лист1").Select Sheets("лист2").Visible = True Sheets("лист2").Select Range("J15:M15").Select ChDir _ "C:\Новая папка" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Новая папка\файл.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Range("A1:Y57").Select Sheets("лист2").Select ActiveWindow.SelectedSheets.Visible = False End Sub
[/vba] Автор - Dersarius Дата добавления - 16.03.2015 в 22:28
KSV
Дата: Вторник, 17.03.2015, 03:04 |
Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация:
255
±
Замечаний:
0% ±
Excel 2013
как сделать что бы при выходе название все время менялось например 1, потом 2 и т.д
например, так: [vba]Код
i = i + 1 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Новая папка\Файл_" & i & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=False
[/vba] а в самом начале, перед строкой "Sub Макрос1()", добавь: [vba][/vba] И можно ли чтобы название с ячейки макрос брал в название файла прописывал?
тогда, так: [vba]Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Новая папка\" & Sheets("лист2").Range("A1").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=False
[/vba] имя файла будет взято из ячейки A1 лист2 но если ячейка A1 будет пустая или содержать недопустимые символы, то при экспорте выдаст ошибку.
как сделать что бы при выходе название все время менялось например 1, потом 2 и т.д
например, так: [vba]Код
i = i + 1 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Новая папка\Файл_" & i & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=False
[/vba] а в самом начале, перед строкой "Sub Макрос1()", добавь: [vba][/vba] И можно ли чтобы название с ячейки макрос брал в название файла прописывал?
тогда, так: [vba]Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Новая папка\" & Sheets("лист2").Range("A1").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=False
[/vba] имя файла будет взято из ячейки A1 лист2 но если ячейка A1 будет пустая или содержать недопустимые символы, то при экспорте выдаст ошибку.KSV
KSV.VBA@gmail.com Яндекс.Деньги: 410011921213333
Сообщение отредактировал KSV - Вторник, 17.03.2015, 03:06
Ответить
Сообщение как сделать что бы при выходе название все время менялось например 1, потом 2 и т.д
например, так: [vba]Код
i = i + 1 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Новая папка\Файл_" & i & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=False
[/vba] а в самом начале, перед строкой "Sub Макрос1()", добавь: [vba][/vba] И можно ли чтобы название с ячейки макрос брал в название файла прописывал?
тогда, так: [vba]Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Новая папка\" & Sheets("лист2").Range("A1").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=False
[/vba] имя файла будет взято из ячейки A1 лист2 но если ячейка A1 будет пустая или содержать недопустимые символы, то при экспорте выдаст ошибку.Автор - KSV Дата добавления - 17.03.2015 в 03:04
Dersarius
Дата: Вторник, 17.03.2015, 10:45 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Спасибо большое помогло, а можно по этому макросу сделать чтобы с двух ячеек имя складывалось файла, например брать с А1 и В2 [vba]Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Новая папка\" & Sheets("лист2").Range("A1").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=False
[/vba]
Спасибо большое помогло, а можно по этому макросу сделать чтобы с двух ячеек имя складывалось файла, например брать с А1 и В2 [vba]Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Новая папка\" & Sheets("лист2").Range("A1").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=False
[/vba] Dersarius
Сообщение отредактировал Dersarius - Вторник, 17.03.2015, 10:57
Ответить
Сообщение Спасибо большое помогло, а можно по этому макросу сделать чтобы с двух ячеек имя складывалось файла, например брать с А1 и В2 [vba]Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Новая папка\" & Sheets("лист2").Range("A1").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=False
[/vba] Автор - Dersarius Дата добавления - 17.03.2015 в 10:45
KSV
Дата: Вторник, 17.03.2015, 11:17 |
Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация:
255
±
Замечаний:
0% ±
Excel 2013
чтобы с двух ячеек имя складывалось файла, например брать с А1 и В2
[vba]Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Новая папка\" & Sheets("лист2").Range("A1").Value & Sheets("лист2").Range("B2").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=False
[/vba]
чтобы с двух ячеек имя складывалось файла, например брать с А1 и В2
[vba]Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Новая папка\" & Sheets("лист2").Range("A1").Value & Sheets("лист2").Range("B2").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=False
[/vba]KSV
KSV.VBA@gmail.com Яндекс.Деньги: 410011921213333
Ответить
Сообщение чтобы с двух ячеек имя складывалось файла, например брать с А1 и В2
[vba]Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Новая папка\" & Sheets("лист2").Range("A1").Value & Sheets("лист2").Range("B2").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=False
[/vba]Автор - KSV Дата добавления - 17.03.2015 в 11:17
Dersarius
Дата: Вторник, 17.03.2015, 11:25 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Новая папка\" & Sheets("лист2").Range("A1").Value & Sheets("лист2").Range("B2").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=False
Ругается, Документ не сохранен. Возможно документ открыт или при сохранение возникла ошибка
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Новая папка\" & Sheets("лист2").Range("A1").Value & Sheets("лист2").Range("B2").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=False
Ругается, Документ не сохранен. Возможно документ открыт или при сохранение возникла ошибкаDersarius
Ответить
Сообщение ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Новая папка\" & Sheets("лист2").Range("A1").Value & Sheets("лист2").Range("B2").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=False
Ругается, Документ не сохранен. Возможно документ открыт или при сохранение возникла ошибкаАвтор - Dersarius Дата добавления - 17.03.2015 в 11:25
Dersarius
Дата: Вторник, 17.03.2015, 11:30 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Извиняюсь все нормально, не допустимое значение было в ячейки, спасибо все работает
Извиняюсь все нормально, не допустимое значение было в ячейки, спасибо все работает Dersarius
Ответить
Сообщение Извиняюсь все нормально, не допустимое значение было в ячейки, спасибо все работает Автор - Dersarius Дата добавления - 17.03.2015 в 11:30