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

Вход

Регистрация

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

 

= Мир MS Excel/Сохранение в ПДФ - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир 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
 
Ответить
СообщениеЗдравствуйте, не могу найти ошибку сохраняет 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 в 03:05
Shurf Дата: Вторник, 10.10.2017, 04:44 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 40
Репутация: 7 ±
Замечаний: 0% ±

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


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

Автор - Shurf
Дата добавления - 10.10.2017 в 04:44
Ozzivlad Дата: Среда, 11.10.2017, 02:53 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
все вроде как правильно оформил только вот ответ удалили...
 
Ответить
Сообщениевсе вроде как правильно оформил только вот ответ удалили...

Автор - Ozzivlad
Дата добавления - 11.10.2017 в 02:53
Shurf Дата: Среда, 11.10.2017, 03:30 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 40
Репутация: 7 ±
Замечаний: 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
 
Ответить
Сообщение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:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение в ПДФ (Макросы/Sub)
Страница 1 из 11
Поиск:

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