-PR-
  • すぐに回答を!
  • 2008-06-30 22:34:04
  • 質問No.4141776
解決
済み

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

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

お礼率 42% (25/59)

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

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

よろしくお願いいたします。
  • 回答数1
  • 気になる数0
  • みんなの回答(全1件)

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

    • 2008-06-30 23:11:25
    • 回答No.1
    hana-hana3 レベル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
    • ありがとう数0
    -PR-
    -PR-
    • 回答数1
    • 気になる数0
    • ありがとう数2
    • ありがとう
    • なるほど、役に立ったなど
      感じた思いを「ありがとう」で
      伝えてください
    • 質問する
    • 専門家・企業を含めた、
      多くの人々が答えてくれます
    こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
    このQ&Aにはまだコメントがありません。
    あなたの思ったこと、知っていることをここにコメントしてみましょう。

    関連するQ&A

    -PR-
    -PR-

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

    別のキーワードで再検索する
    -PR-
    -PR-
    -PR-

    特集


    -PR-

    ピックアップ

    -PR-
    ページ先頭へ