ネットで調べて下記のVBAでファイル名が取得できるみたいなんですができません。何か間違っているところありますか?いろいろ調べて他のコードも試したのですができません。そもそもガイル名を取得するさいになにか特殊な設定等ありますか?
Sub GetFileName()
Dim FileName As String
Dim Path As String
Dim i As Long
' このファイルがあるフォルダーのパスを取得
Path = ThisWorkbook.Path
' フォルダ内のエクセルファイル名を取得して貼り付ける
FileName = Dir(Panh & "\ファイル\" & "*.xlsx")
'ファイル名を各行の初期値を設定
i = 2
'該当するファイルがなくなるまでループ
Do While FileName <> ""
'ファイル名をセルに入力
Cells(i, 1) = FileName
'次のファイルを取得
FileName = Dir()
'iをカウントアップ
i = i + 1
Loop
End Sub
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんにちは
>FileName = Dir(Panh & "\ファイル\" & "*.xlsx")
の指定パスは意図通りなのでしょうか・・
少なくとも、Panh は Path のタイポのような気がしますけれど・・
ご質問文の説明からすると、「\ファイル\」ってのも不明ですけれど・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) 一つのフォルダーに50個のエクセルファイルがあります。 各ファイルにはAとBのシートがあります。 5 2 2023/10/03 16:25
- Visual Basic(VBA) VBA 1 2024/02/03 22:51
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) コードを直していただきたいです。 以下のコードはネットで拾ったものをほんの少しいじった物なのですが、 7 2024/01/10 22:50
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Cellsのコードが打てません
Visual Basic(VBA)
-
引数に数値、文字列の混在
Visual Basic(VBA)
-
メールの件名をデコードしたい
Visual Basic(VBA)
-
-
4
for 文の 繰り返し処理に使えるのかどうかについて
Visual Basic(VBA)
-
5
以下のコードを実行しても、オブジェクト変数または、withブロック変数が設定されていませんとエラーが
Visual Basic(VBA)
-
6
VBA コード
Visual Basic(VBA)
-
7
VBA(えくせる)ってなんでメンテできない人が多いんですか?
Excel(エクセル)
-
8
エクセルVBAの配列について
Visual Basic(VBA)
-
9
VBEを開くのにコマンド名が「Visual Basic」な理由はなぜ?
Visual Basic(VBA)
-
10
エクセルで有効桁数を確認する方法
Excel(エクセル)
-
11
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
12
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
-
13
コードを直していただきたいです。 以下のコードはネットで拾ったものをほんの少しいじった物なのですが、
Visual Basic(VBA)
-
14
マクロのエラー
Visual Basic(VBA)
-
15
近似した文字列を置換するエクセル関数またはVBAについて
Visual Basic(VBA)
-
16
メールの件名のセットでエラーになる原因がわかりません
Visual Basic(VBA)
-
17
Excel関数またはVBAでの質問になります
Visual Basic(VBA)
-
18
【ExcelVBA】インデックスが有効範囲にありません。の理由が分かりません
Visual Basic(VBA)
-
19
Excel 大なり小なりを表すとき、 例えば「10以上」なら、>=10 と表せますが、 この10の部
Excel(エクセル)
-
20
VBのWPFとはなんでしょうか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelのVBAコードについて教え...
-
FileDialog オブジェクトでファ...
-
c# で作成したアプリをある拡張...
-
ファイルを開く時間測定のスク...
-
Excel VBA Outlookメールにエ...
-
「AccessViolationException」...
-
ExcelVBA 文字コード変換
-
エクセルのVBAで開いている...
-
サブフォルダ含むフォルダ内の...
-
VBAで次のような処理をできるか...
-
VBA ディレクトリ名をワイルド...
-
動かなくなってしまった古いVBA...
-
excel マクロ PDF化の際のエラ...
-
更新日が指定日以降のファイル取得
-
vbaに詳しい方教えてください!...
-
ffftpでファイル取得が0バイト...
-
フォルダ内のファイル存在監視...
-
vbsでのアスタリスクとファイル...
-
VBからExcelファイルを開くとき...
-
webブラウザからローカルファイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vbaサブフォルダーをワイルドカ...
-
動かなくなってしまった古いVBA...
-
ffftpでファイル取得が0バイト...
-
FileDialog オブジェクトでファ...
-
サブフォルダ含むフォルダ内の...
-
「エクセルファイルが開いてい...
-
Accessのウインドウサイズの固定
-
excel マクロ PDF化の際のエラ...
-
ExcelVBA 文字コード変換
-
AccessからOLEオブジェクト型の...
-
VBAでフォルダ内のhtmlファイル...
-
【VBAマクロ初心者】Excel VBA...
-
VBからExcelファイルを開くとき...
-
「AccessViolationException」...
-
【ACCESS VBA】アクセスからデ...
-
VB6でUTF-8ファイルの読取りを
-
ファイルを開く時間測定のスク...
-
複数のワークブックのVBAを変更...
-
VB.net XMLの作成方法 Iniの代替
-
エクセルのVBAで開いている...
おすすめ情報