Макрос печатать листы в пдф, как сохранять название?

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос печатать листы в пдф, как сохранять название? (Макросы/Sub)

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]

Сообщение отредактировал Dersarius - Понедельник, 16.03.2015, 22:56

Ответить

KSV

Дата: Вторник, 17.03.2015, 03:04 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

Цитата Dersarius, 16.03.2015 в 22:28, в сообщении № 1

как сделать что бы при выходе название все время менялось например 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]

Код

Dim i As Long

[/vba]

Цитата Dersarius, 16.03.2015 в 22:28, в сообщении № 1

И можно ли чтобы название с ячейки макрос брал в название файла прописывал?

тогда, так:
[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.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Сообщение отредактировал KSV - Вторник, 17.03.2015, 03:06

Ответить

Dersarius

Дата: Вторник, 17.03.2015, 10:45 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Спасибо большое помогло, а можно по этому макросу сделать чтобы с двух ячеек имя складывалось файла, например брать с А1 и В2

[vba]

Код

[/vba]

Сообщение отредактировал Dersarius - Вторник, 17.03.2015, 10:57

Ответить

KSV

Дата: Вторник, 17.03.2015, 11:17 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

Цитата Dersarius, 17.03.2015 в 10:45, в сообщении № 3

чтобы с двух ячеек имя складывалось файла, например брать с А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]