Проблема с сохранением в формате pdf - неправильное расположение

Question

У меня тоже проблема, когда я сохраняю, он сохраняет, где находится основной файл c excel. помогите пожалуйста ^^

Sub Save PDF()

Dim filePath As String
Dim filename As String
filePath = "C:\Users\lasha\Documents\"
filename = Sheets("Form").Range("D2")
Sheets("Form").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=filename, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

Answer 1

Решил сам с собой ^^ filename: = filePath & filename, который был изменен, и он работает.

Sub Save PDF
    Dim filePath As String
    Dim filename As String
    filePath = "C:\Users\lasha\Documents\"
    filename = Sheets("Form").Range("D2")
    Sheets("Form").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=filePath & filename, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            True
    End Sub