VBAエクセル・・・フォルダ名を取得する

質問

VBA初心者です。
マクロで、ヘッダー部分にフォルダ名を入力したいのですが、
どのように取得すればよいでしょうか？

ThisWorkbook.Path　にすると、パスが出てきますが、
\C:\***\△△△\○○○\XXX.xls
だとすると、「○○○」だけを入力したいのですが・・・

よろしくお願いいたします。

回答No.1

hana-hana3 · ベストアンサー

幾つか方法があります。
（C:\ABC.xlsの場合は修正の必要あり）

Dim tmp As String
Dim ary As Variant

tmp = ThisWorkbook.Path
'Split を使う
ary = Split(tmp, "\")
MsgBox ary(UBound(ary))
'文字列関数を使う
MsgBox Right(tmp, Len(tmp) - InStrRev(tmp, "\"))

お礼

ご丁寧な回答ありがとうございました。