dポイントプレゼントキャンペーン実施中！

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

解決済

  • 質問者：Rin-u_u
  • 質問日時：
  • 回答数：1件

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

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (1件)

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, "\"))
    • good
    • 0
    • 件
通報する
この回答へのお礼

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

通報する
お礼日時：2008/06/30 23:52

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報