Excel VBA: Сохранение по имени из ячейки в .pdf с помощью макроса

[davidoff22]

Добрый день! Подскажите пожалуйста - файл расположен на сетевом диске - необходим макрос, при выполнении которого область печать сохраняется в формате пдф, в определенную директорию с именем из ячейки а17.

Вот такой код - пишет ошибку 1004:

Макрос

Sub макр()
'
' макр Макрос
'

'
Dim a
a = Sheets("Счет").[a17].Value
    ChDir "\\Asu11-pc\e\Счета за проживание гостям"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "\\Asu11-pc\e\Счета за проживание гостям\" & a & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

[свернуть]

Помогите. Спасибо.

[Администратор]

Макрос

Sub макрос()
   
    Dim FileName As String
   
    ' Запись в переменную имени файла без расширения.
    FileName = Sheets("Счет").[a17].Value
   
    ' Печать в pdf области печати.
    Range(ActiveSheet.PageSetup.PrintArea).ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "\\Asu11-pc\e\Счета за проживание гостям\" & FileName & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
       
End Sub

[свернуть]

[davidoff22]

Все работает на УРА! СПАСИБО!