Сохранение по имени из ячейки - VBA

Формулировка задачи:

Sub macros1()
'
' macros1 macros
'
 
'
ChDir "\\Asu11-pc\e\schet"
Dim a
a = Sheets("List").[a17].Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "\\Asu11-pc\e\schet" & a & ".pdf", Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

Что не так? Причем если убрать

 & a &

все работает, но результат неправильный. Нужно чтоб сохранялось по значению ячейки A17 Постоянно выдает 1004 - Возможно файл открыт или произошла ошибка при сохранении

Решение задачи: «Сохранение по имени из ячейки»

textual
                            Листинг программы 
                        
                            ChDir "\\Asu11-pc\e\Счета за проживание гостям"

Оцени полезность:

8 голосов , оценка 4.5 из 5

Похожие ответы