Excelブックのフォルダ名（パス名）を調べる

＜分類：値取得＞
＜使用例：Excelブックのフォルダ名を調べる＞
＜プログラム例＞

Sub このExcelブックのフォルダ名を調べる()
   Dim s As String

  'ThisWorkbook.Pathは、ファイル名は含まれない
   s = ThisWorkbook.Path
   MsgBox ("このExcelブックのフォルダ名は" & s & "です")

End Sub