-PR-
  • すぐに回答を!
  • 質問No.4141776
解決
済み

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

  • 閲覧数1719
  • ありがとう数3
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 42% (25/59)

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

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

よろしくお願いいたします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル14

ベストアンサー率 31% (4939/15540)

幾つか方法があります。
(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, "\"))
お礼コメント
Rin-u_u

お礼率 42% (25/59)

ご丁寧な回答ありがとうございました。
投稿日時 - 2008-06-30 23:52:31
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ