- ベストアンサー
VBAエクセル・・・フォルダ名を取得する
VBA初心者です。 マクロで、ヘッダー部分にフォルダ名を入力したいのですが、 どのように取得すればよいでしょうか？ ThisWorkbook.Path にすると、パスが出てきますが、 \C:\***\△△△\○○○\XXX.xls だとすると、「○○○」だけを入力したいのですが・・・ よろしくお願いいたします。
- Rin-u_u
- お礼率42% (25/59)
- Visual Basic
- 回答数1
- ありがとう数3
- みんなの回答 （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, "\"))
関連するQ&A
- LBoundでフォルダ名を取得したい。
マクロで、フォルダ名を取得したいのですが、 どのように取得すればよいでしょうか？ ThisWorkbook.Pathでパスを取得して \C:\***\△△△\○○○\XXX.xls だとすると、「△△△」だけを入力したいのです。 「△△△」は必ずCドライブから2階層下に あります。 パス名 = ThisWorkbook.Path tmp = Split(パス名, "\") MsgBox tmp(LBound(tmp)) としたところ「D」とうドライブ名が取得できたので MsgBox tmp(LBound(tmp,2))としてみたのですが、うまく 「△△△」の部分が取得できません。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- ExcelのVBAでの複数階層からのフォルダ名の取得
ExcelのVBAでの複数階層からのフォルダ名の取得 下記階層に対して以下の処理をExcelのVBAで行うにはどしたら良いか、 申し訳ありませんが、どうか教えて頂きたく思います。 C:\test1 ├\aaa\ddd │ ├\xxx1\ │ └\yyy2\ │ ├\bbb\ddd │ └\xxx3\ │ │ └\ccc\ddd ├\xxx4\ ├\xxx5\ └\zzz6\ 1 C:\test1を指定する 2 1で指定した中にある各\dddフォルダ内にあるフォルダ名を順に取得する 3 2で取得したフォルダ名をExcelのSheet1のA1から順に書き出す Excel A B C D E 1 xxx1 2 yyy2 3 xxx3 4 xxx4 5 xxx5 6 zzz6 7 8 9 Sheet1 Sheet2 Sheet3 勉強不足で申し訳ありません。 どうぞ宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルのVBAについて
エクセルのVBAについて教えて下さい。 エクセルのVBAでプログラムを組んでいるのですが、一つわからないことがあるのです。 マクロが実行(オープン)されるファイル名（ファイルパス）をVBAで取得するためにはどうすればいいでしょうか？ たとえば、マクロが実行されるファイルがC:\テスト.xlsならば "C:\テスト.xls"を取得したいと考えています。 どなたかご教授お願い致します。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- フォルダ内にあるファイル名を取得するVBA
エクセル2010を使用しています。 VBA（マクロ）で以下の作業を実行したいと考えていますが、 初心者につき、ご教示いただけますでしょうか。 「マクロ」ファイルにある「実行」Sheetというにある「実行」ボタンで L2に入力したパス内にあるファイル（.xlsや.xlsmや.xlsbが混在しますが、基本的には全てエクセルファイル）のファイル名を K8から下へ取得したいのですが・・ 参考にしたコードでは うまく動作しませんでした。 以下では、L2のパスを参照するのも組めていないため、コード内に直接パスを書き込んでいますが 実際は、パスを変動させて使いたいので、L2を参照できるようになると助かります。 ※パスは、質問用に仮置きで「パス」としています。 Sub Sample() Dim buf As String, cnt As Long Const Path As String = "パス" buf = Dir(Path & "*.*") Do While buf <> "" cnt = cnt + 8 Cells(cnt, 11) = buf buf = Dir() Loop End Sub また、このコードでは 実行ファイル自体のファイル名も取得してしまうようなので、 実行ファイル以外のファイル名を取得したいです。 ご指導のほど、よろしくお願い致します。
- ベストアンサー
- Visual Basic
- フォルダ名だけを取得するVBA
VBAを使ったエクセルテンプレート適用ツールを作成しているのですが そのVBAのことで教えてください。 現在自作のフォーム上にあるテキストボックスにフルパスが入っているとします（添付図参照）。 ＊この前提は必須と考えてください。 次に作成ボタンをクリックすると Step1 新しいブックが開かれ行幅や書式などが自動で調整されます。 Step2 ブックの保存ダイアログが自動で開きます。 ただし、保存ダイアログが開いた時点で自作フォーム中の テキストボックスで指定したフルパスに移動しており、 且つ移動先のフォルダ名（<-注意！！フルパス名ではありません！！）と 同じ文字列をファイル名入力欄に自動で入力されるようにします。 ex) D:\MyProject\Project01\TaskA\にブックを作成し保存する場合、 保存ダイアログのファイル名欄にTaskAとだけ書く。 マクロ自体はここでストップし、これ以降はユーザーがそのファイルメモで 保存してよいかどうかを判断し、問題なければ手動でダイアログ上の「保存」ボタンを押します。 問題はStep2で、保存先のフォルダ名と同じ文字列を保存ダイアログのファイル名に記入するには どのようなコードを書いたらよいでしょうか。 私自身としては下記の二案を考えているのですがそれぞれについて疑問があるので教えてください。 案1 作成ボタンを押した時点でテキストボックスに書かれているフルパスの文字列から 末尾にあるフォルダ名だけを取得して変数に代入し、これを保存ダイアログの ファイル名欄に反映させる。 疑問：テキストボックスのValue値に書かれているフルパスを示す文字列から 末尾のフォルダ名だけを取得するためのコードは何と書けばよいのでしょうか？ 案2 ブックの保存ダイアログが開いて保存先のパスに移動してから今保存ダイアログで 開いているフォルダ名を取得する。 疑問：今アクティブになっているブックが保存されているフォルダ名だけを取得する 方法なら確かあったような気がしています。 しかし今保存ダイアログで表示されているフォルダ名を取得するコードは何と 書けばよいのでしょうか？ そもそもそういったコードや操作自体VBAにあるのでしょうか？
- 締切済み
- Excel（エクセル）
- VBAでパスを取得しファイル名を入力するには
EXCEL2003です。同じフォルダにVBAマクロとデータのcsvファイルがあります。このとき、マクロでパスを取得し、次にcsvファイル名を手入力あるいはそのフォルダの詳細表示からファイルをクリックすればデータを取り込めるようにしたいのですが、どなたかマクロを教えてくれないでしょうか。か。
- ベストアンサー
- オフィス系ソフト
- フォルダ内のフォルダ名を取得したい。
VBAで Filename = Dir(Path, vbNormal)を使用すると、ファイル名が取得されます。（VBA一部掲載） フォルダ内の直下のフォルダ名のみ取得したいときはどうすれば、よいでしょうか。 宜しくお願いします。
- ベストアンサー
- Visual Basic
- ExcelのVBAでフォルダ名の取得
お世話になります。 タイトルのままなんですが、 ＶＢＡでフォルダのフルパスを取得したいのですが出来るでしょうか？ ファイルのフルパスは FN = Application.GetOpenFilename で取得出来たのですが 同じ様に ダイアログから選択する様に出来るでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでパスの￥マークについて
このマクロを記述したBOOKと同じフォルダー内にある、シート001.xls を開くマクロです。 同一フォルダーにあるのですから、このような記述になると思います。 Sub kakunin1() Workbooks.Open (ThisWorkbook.Path & "\" & "シート001.xls") End Sub しかし、以下の３つはすべてシート001.xls を開くことができました。 Sub kakunin2() Workbooks.Open (ThisWorkbook.Path & "\" & "\" & "シート001.xls") End Sub Sub kakunin3() Workbooks.Open (ThisWorkbook.Path & "\" & "\" & "\" & "シート001.xls") End Sub Sub kakunin4() Workbooks.Open (ThisWorkbook.Path & "\" & "\" & "\" & "\" & "\" & "\" & "シート001.xls") End Sub パスの￥マークは階層をあらわすのだと思っていましたがいくつ重ねてもなぜ開くのでしょうか？非常に初歩的な質問だと思いますが、ご教示いただければ幸いです。
- ベストアンサー
- オフィス系ソフト
- VBA アクティブなセルのシート名を取得したい
エクセル2010使用です。 VBAで、アクティブなセルのあるシート名を取得する方法を教えてください。 マクロ.xls （マクロシートA1） ←今回のマクロを書き込んだファイル 参照.xls （参照シートA1） 入力.xls （入力シートF3） この3つのエクセルファイルを開きます。 （ ）内はそれぞれの前面にあるシート名と選択されたセルです。 入力シートのF3にカーソルをおいて下記マクロを実行すると MsgBox ActiveSheet.Name & ActiveCell.Address 「マクロシート F3」と返されます・・・ ほしい結果は「入力シート F3」なんです。 このような場合にアクティブセルのあるシート名を取得する方法があれば教えてください。 よろしくお願いいたします。
- ベストアンサー
- Excel（エクセル）
お礼
ご丁寧な回答ありがとうございました。