Сохранение книги в PDF

Дата: Пятница, 07.06.2019, 14:17 | Сообщение № 1

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

Добрый день, участникам форума!

Тема не новая, но прежде чем обратиться перепробовал разные (возможно не все) варианты.

Давно работаю с одним макросом который сохраняет файл в Excel формате:
[vba]

Код

Public Function Книга_Назнач_Сохранить(ByVal str As String, Optional ByVal msg As String)
    ' Тестом НЕ покрыта

    Dim appDispAlert As Boolean
    appDispAlert = Application.DisplayAlerts

    Application.DisplayAlerts = False

    Ws_Dest.Parent.SaveAs ThisWorkBook.Path & "\@ Статус по развитию системы КПЭ_" & _
            str & _
            " на " & Date & ".xlsb", xlExcel12

    Application.DisplayAlerts = appDispAlert

End Function

[/vba]

Пытаюсь адаптировать под сохранение в PDF так:

[vba]

Код

Public Function Книга_Назнач_Сохранить(ByVal str As String, Optional ByVal msg As String)
    ' Тестом НЕ покрыта

    Dim appDispAlert As Boolean
    appDispAlert = Application.DisplayAlerts

    Application.DisplayAlerts = False

    Ws_Dest.Parent.SaveAs ThisWorkBook.Path & "\@ Статус по развитию системы КПЭ_" & _
            str & _
            " на " & Date & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False

    Application.DisplayAlerts = appDispAlert

End Function

[/vba]

Debug ругается на:
[vba]

Код

Ws_Dest.Parent.SaveAs ThisWorkBook.Path & "\@ Статус по развитию системы КПЭ_" & _
str & _
" на " & Date & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False

[/vba]

Подскажите, пожалуйста, где ошибаюсь?

Код

[/vba]

Пытаюсь адаптировать под сохранение в PDF так:

[vba]

Код

Public Function Книга_Назнач_Сохранить(ByVal str As String, Optional ByVal msg As String)
    ' Тестом НЕ покрыта

    Dim appDispAlert As Boolean
    appDispAlert = Application.DisplayAlerts

    Application.DisplayAlerts = False

    Ws_Dest.Parent.SaveAs ThisWorkBook.Path & "\@ Статус по развитию системы КПЭ_" & _
            str & _
            " на " & Date & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False

    Application.DisplayAlerts = appDispAlert

End Function

[/vba]

Debug ругается на:
[vba]

Код

[/vba]

Подскажите, пожалуйста, где ошибаюсь?Anis625

СообщениеДобрый день, участникам форума!

Тема не новая, но прежде чем обратиться перепробовал разные (возможно не все) варианты.

Давно работаю с одним макросом который сохраняет файл в Excel формате:
[vba]

Код

[/vba]

Пытаюсь адаптировать под сохранение в PDF так:

[vba]

Код

Public Function Книга_Назнач_Сохранить(ByVal str As String, Optional ByVal msg As String)
    ' Тестом НЕ покрыта

    Dim appDispAlert As Boolean
    appDispAlert = Application.DisplayAlerts

    Application.DisplayAlerts = False

    Ws_Dest.Parent.SaveAs ThisWorkBook.Path & "\@ Статус по развитию системы КПЭ_" & _
            str & _
            " на " & Date & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False

    Application.DisplayAlerts = appDispAlert

End Function

[/vba]

Debug ругается на:
[vba]

Код

[/vba]

Подскажите, пожалуйста, где ошибаюсь?

Автор - Anis625
Дата добавления - 07.06.2019 в 14:17

Дата: Пятница, 07.06.2019, 14:23 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Запишите макрорекодером сохранение книги в ПДФ и посмотрите. Самый простой путь
Получится примерно вот так
[vba]

Код

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Моя\Стереть\7878.pdf", Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Дата: Пятница, 07.06.2019, 14:29 | Сообщение № 3

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

_Boroda_,

Не нарушая конструкции кода по формированию имени файла (т.к. этот код связан с другими кодами) попробовал заменить концовку:

ругается все равно на эту часть:

[vba]

Код

Ws_Dest.Parent.SaveAs ThisWorkBook.Path & "\@ Статус по развитию системы КПЭ_" & _
            str & _
            " на " & Date & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
        :=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

[/vba]

Дата: Пятница, 07.06.2019, 14:36 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Может Вы все-таки напишете как ругается?
Что такое Ws_Dest?
Как Вы вызываете функцию?
Что такое для нее str?
Зачем там msg?
Где кусок Type?
Чтобы всех этих вопросов не было, нужно файл прикладывать

Дата: Пятница, 07.06.2019, 15:59 | Сообщение № 5

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

Удалось оптимизировать файл

К сообщению приложен файл: __-_-.xlsb (50.6 Kb)

Дата: Пятница, 07.06.2019, 16:21 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Попробуйте вот так
[vba]

Код

Public Function Книга_Назнач_Сохранить(ByVal str As String, Optional ByVal msg As String)
    Dim appDispAlert As Boolean
    appDispAlert = Application.DisplayAlerts
    Application.DisplayAlerts = False
    fn_ = ThisWorkBook.Path & "\@ Статус по развитию системы КПЭ_" & str & " на " & Date & ".pdf"
    Ws_Dest.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        fn_, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Application.DisplayAlerts = appDispAlert
End Function

[/vba]

Дата: Пятница, 07.06.2019, 16:37 | Сообщение № 7

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

_Boroda_,

ругается
желтым выделяет первую строку:
[vba]

Код

Public Function Книга_Назнач_Сохранить(ByVal str As String, Optional ByVal msg As String)

[/vba]

и синим
[vba]

Код

fn_ =

[/vba]

Сообщение отредактировал Anis625 - Пятница, 07.06.2019, 16:46

Дата: Суббота, 08.06.2019, 08:57 | Сообщение № 8

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

_Boroda_,

нашел свой старый рабочий файл, в котором из Excel вывожу в PDF:
[vba]

Код

Sub Создать_PDF()
    Dim arrSelSheets(), i As Long
    Application.ScreenUpdating = False

    ReDim arrSelSheets(1 To ActiveWindow.SelectedSheets.Count)
    For i = 1 To UBound(arrSelSheets)
        arrSelSheets(i) = ActiveWindow.SelectedSheets(i).Name
    Next

    'здесь укажите, какие листы нужно сохранить в PDF
    Worksheets(Array("Карта КПЭ_год", "Мониторинг КПЭ_ежекв", "Оценка", "Мониторинг КП_ежекв", "Оценка проектов (по году)")).Select

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        (Left(ActiveWorkbook.FullName, InStrRev(ActiveWorkbook.FullName, ".")) & "pdf"), Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

    Worksheets(arrSelSheets).Select

    Application.ScreenUpdating = True
    MsgBox "ГОТОВО!" & vbCrLf & "Excel файл тоже необходимо прикрепить в СЭД", vbInformation
End Sub

[/vba]

попробовал его адаптировать под текущую задачу - не срабатывает =(

InExSu

Дата: Суббота, 15.06.2019, 01:27 | Сообщение № 9

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

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

Сообщений: 648

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

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

Excel 2010, 365

Привет!
Попробуйте перед

Цитата _Boroda_, 07.06.2019 в 16:21, в сообщении № 6 ()

fn_ = ThisWorkBook.Path ' ...

вставить строку
[vba]

Код

Dim fn_ As String

[/vba]

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Дата: Вторник, 18.06.2019, 18:22 | Сообщение № 10

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

InExSu,

Только добрался до файла.
Файл почти отлично сохраняет в PDF =) Только перед тем как сохранить в PDF выходит сообщение "Вы хотите сохранить изменения в файле Книга 1?" и номер файла каждый раз увеличивается с каждым файлом. Даже если заново делаю отсчет продолжается (на трех строчках тестирую пять раз сделал дошел до файла номер №15). Нажимаю не сохранять сохраняется PDF. Попробовал сохранить - получается делает копию в excel.

Дата: Среда, 19.06.2019, 10:11 | Сообщение № 11

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
Не в одном месте добавки сделал, поэтому здесь не кладу код

К сообщению приложен файл: -1-1.xlsb (52.3 Kb)

Дата: Пятница, 21.06.2019, 10:41 | Сообщение № 12

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

_Boroda_,

Код попробовал сразу. Получилось написать только сейчас.

Как раз то что доктор прописал. Все работает отлично. И спасибо за вишенку на торте в виде финального сообщения =)

Получилось отлично. Спасибо Всем за помощь.