Сохранение в ПДФ

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение в ПДФ (Макросы/Sub)

Сохранение в ПДФ

Ozzivlad

Дата: Вторник, 10.10.2017, 03:05 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2013

Здравствуйте, не могу найти ошибку сохраняет 2 листа из книги но они одинаковые... а должны быть разные)))
[vba]

Код

Sub SaveAsPdf()
Dim s As Long
For s = 1 To 2
Sheets(s).ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\pinok\Google Диск\Quotes_PDF" & "\" & Sheets(1).Name & " " & Sheets(1).Range("i6") & " (" & Sheets(1).Range("b8") & ")" & ".pdf", OpenAfterPublish:=True
Sheets(s).ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\pinok\Google Диск\Invoices_PDF" & "\" & Sheets(2).Name & " " & Sheets(2).Range("g6") & " (" & Sheets(1).Range("b8") & ")" & ".pdf"
Next
End Sub

[/vba]

если не сложно подскажите решение. спасибо.

Сообщение отредактировал Ozzivlad - Вторник, 10.10.2017, 09:30

Ответить

Shurf

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

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

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

Сообщений: 40

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

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

Excel 2010

Ozzivlad, Оформите пожалуйста код макроса в своём сообщение соответствующими тегами, Нажав ниже сообщения Правка, выделив код и нажав на кнопку "#", да и код нужно копировать из редактора VBA при русской языковой раскладке.
А по существу вашего вопроса, я думаю вам стоит [moder]Сначала оформить свое сообщение. Ответ удален администрацией[/moder]

Сообщение отредактировал _Boroda_ - Вторник, 10.10.2017, 09:10

Ответить

Ozzivlad

Дата: Среда, 11.10.2017, 02:53 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2013

все вроде как правильно оформил только вот ответ удалили...

Ответить

Shurf

Дата: Среда, 11.10.2017, 03:30 | Сообщение № 4

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

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

Сообщений: 40

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

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

Excel 2010

Ozzivlad, читайте тут способ 5
в вашем случае достаточно.
[vba]

Код

Sub SaveAsPDF()
     For i = 1 To 2
        Sheets(i).ExportAsFixedFormat Filename:=ThisWorkbook.Path & "\" & Sheets(i).Name & ".pdf", Type:=xlTypePDF
     Next i
End Sub

[/vba]
будет сохранять листы 1 и 2 в ПДФ с названием этих листов, в ту же папку где лежит документ Excel.

Сообщение отредактировал Shurf - Среда, 11.10.2017, 03:36

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение в ПДФ (Макросы/Sub)

Страница 1 из 1
1