
ネットで調べて下記の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で質問しましょう!
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
動かなくなってしまった古いVBA...
-
「エクセルファイルが開いてい...
-
サブフォルダ含むフォルダ内の...
-
フォルダ内のファイルを上から...
-
Wordのプロパティ・総ページ数...
-
VBからExcelファイルを開くとき...
-
VBAでCSVファイルを読み込もう...
-
VB.Netソリューションでフォー...
-
EXCEL VBAを使ったファイル解析...
-
複数のワークブックのVBAを変更...
-
「AccessViolationException」...
-
ffftpでファイル取得が0バイト...
-
vbsでのアスタリスクとファイル...
-
エクセルのプロパティーでセキ...
-
ExcelブックをGoogleスプレッド...
-
エクセルで複数のコメントのサ...
-
エクセルvbaでdocuworksprinter...
-
【VBA】テキストファイルを指定...
-
Excelvbaでブックをコピー名前...
-
エクセルマクロで指定フォルダ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
動かなくなってしまった古いVBA...
-
AccessからOLEオブジェクト型の...
-
VBAでフォルダ内のhtmlファイル...
-
VB6でUTF-8ファイルの読取りを
-
サブフォルダ含むフォルダ内の...
-
EXCEL VBAを使ったファイル解析...
-
webブラウザからローカルファイ...
-
「エクセルファイルが開いてい...
-
タイムスタンプの更新の方法2
-
複数のワークブックのVBAを変更...
-
vbaサブフォルダーをワイルドカ...
-
VBAでCSVファイルを読み込もう...
-
ffftpでファイル取得が0バイト...
-
フォルダ階層・ファイル名・ペ...
-
【ACCESS VBA】アクセスからデ...
-
ExcelVBA 文字コード変換
-
excel マクロ PDF化の際のエラ...
-
FileDialog オブジェクトでファ...
-
Wordのプロパティ・総ページ数...
-
Accessのウインドウサイズの固定
おすすめ情報