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

私に聞いて！

質問する

詳細検索

-PR-

解決済みの質問

質問No.4141776

▼

Rin-u_u

すぐに回答を！

お気に入り投稿に追加する (0人が追加しました)

回答数1

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

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

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

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

投稿日時 - 2008-06-30 22:34:04

通報する

ブックマーク▼

メールで紹介

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

回答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, "\"))

投稿日時 - 2008-06-30 23:11:25

通報する

この回答を支持する

(現在0人が支持しています)

お礼

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

投稿日時 - 2008-06-30 23:52:31

この質問は役に立ちましたか？

2人が「このQ&Aが役に立った」と投票しています

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

詳細検索

関連キーワード
フォルダ
ヘッダー
入力
マクロ
As

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

詳細検索

もっと聞いてみる

質問する

関連するQ&A

question

ThisWorkbook.PathについてExcel2007のテンプレートファイルxltmでThisWorkbook.Path を利用す...
question

ThisWorkbook.PathについてExcel2007のテンプレートファイルxltmでThisWorkbook.Path を利用す...
question

【Excel VBA】ThisWorkbook モジュールのマクロExcel2003を使用しています。 39枚のシートから成るBook1のThisWorkbo...

回答募集中

aunswer

VBA でxmlの全要素・属性の読み込みお世話になります。 ExcelのVBAを使用して、xmlファイルの全要素・全属性を読み込み、...
aunswer

【EXCEL2010 VBA】　部分的書式設定初心者ながら医療業務用マクロを作っています。テキストボックス内の１行目のみ取消線を解除する方...
aunswer

自身が記述された標準モジュールを常に参照する方法標準モジュール名を指定せず、自身が記述された標準モジュールを常に参照する方法例えば A...