-PR-
Rin-u_u

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

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

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

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

    • 2008-06-30 23:11:25
    • 回答No.1
    幾つか方法があります。
    (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, "\"))
    お礼コメント
    ご丁寧な回答ありがとうございました。
    投稿日時 - 2008-06-30 23:52:31
    • ありがとう数0
    -PR-
    -PR-
    • 回答数1
    • 気になる数0
    • ありがとう数2
    • ありがとう
    • なるほど、役に立ったなど
      感じた思いを「ありがとう」で
      伝えてください
    • 質問する
    • 知りたいこと、悩んでいることを
      投稿してみましょう
    こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
    このQ&Aにはまだコメントがありません。
    あなたの思ったこと、知っていることをここにコメントしてみましょう。

    関連するQ&A

    -PR-
    -PR-

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

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

    特集


    成功のポイントとは?M&Aで経営の不安を解決!

    -PR-

    ピックアップ

    -PR-
    ページ先頭へ