Есть ли способ сохранить PDF-файл с именем пути к папке из файла Excel + VBA?

Question

Новое в этом. Я хочу сделать следующее. У меня есть файл Excel, который сохраняется в папке «X» (всегда разные), я должен распечатать PDF-файл из этого файла, и мне нужно назвать его «XFolder + VICPDFQuote», мне нужно сохранить этот PDF-файл в той же папке, где Превосходство есть. У меня есть следующий код, но я что-то упустил, так как файл сохранен в другой папке:

' Print_quote Macro

ActiveSheet.PageSetup.Orientation = xlPortrait
    Worksheets("Quote").PageSetup.PrintArea = "$H$6:$P$133"

        Sheets(Array("Cov", "Quote", "T&C VIC")).Select
    strFile = ThisWorkbook.Path & "\" & strFile


   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     ThisWorkbook.Path & "\" & FolderName & "VICPDFQuote", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True

 Sheets("Quote").Select

End Sub

Answer 1

Чтобы получить имя папки, содержащей файл, используйте FileSystemObject

With CreateObject("Scripting.FileSystemObject")
    Dim NewFileName As String
    NewFileName = .GetFile(ThisWorkbook.FullName).ParentFolder.Name & " VICPDFQuote.pdf"
End With