No.1ベストアンサー
- 回答日時:
sub macro1()
dim FSO As Object
dim myFolder
dim myFile
dim n As Long
set FSO = createobject("Scripting.FileSystemObject")
worksheets.add
range("A1:C1") = array("Folder", "File", "Extension")
n = 2
for each myfolder In FSO.getfolder(thisworkbook.path).subfolders
cells(n, "A") = myfolder.name
if myfolder.files.count > 1 then
for each myfile in myfolder.files
cells(n, "B") = split(myfile.name, ".")(0)
cells(n, "C") = split(myfile.name, ".")(1)
n = n + 1
next
else
n = n + 1
end if
next
set FSO = nothing
end sub
FileSystemObjectとDirをネットで検索して、どちらも使えるように練習してみて下さい。
この回答への補足
お礼が遅れてすみません。
サブフォルダにファイルが1個しかないと、ファイル名を表示しなかったので下記の通り“=”を入れました。
if myfolder.files.count >= 1 then
また、ファイル名に“.”が含まれると誤表示されるので、BC列のコードは書き換えました。
これからも練習に励みたいと思います。(すぐ質問しちゃいますけど。。。)
ありがとうございました^^
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/10/26 17:14
- ソフトウェア フォルダ内の全サブフォルダ内のファイルパスをサブフォルダ毎に行を分けてリスト化したい 1 2022/11/13 10:27
- Excel(エクセル) 【VBA】フォルダAにある2つのファイルの内1つを、フォルダBへ。もう1つを、フォルダBへ移動したい 6 2022/07/26 08:51
- Visual Basic(VBA) Excel VBA ファイル取得について フォルダの中に、ファイル名“会議“を含むファイルが1つまた 9 2022/10/12 01:18
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Access(アクセス) Access VBA を利用して、フォルダ内のファイルの名称を変更したい 1 2023/08/03 08:27
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル初心者です 関数の入れ...
-
Microsoft1Officeの互換ソフト...
-
Excel ピボットテーブルで日付...
-
エクセル関数を教えてください
-
【マクロ】その時、その時で変...
-
【マクロ】読取専用のファイル...
-
LOOKUP関数を使えばいいのでし...
-
エクセル 白黒印刷で白線を印刷...
-
【関数】先頭だけにある、半角...
-
【関数】適切な文字数の数字を...
-
Excelのチェックボックスの使い...
-
エクセルでの作業計算方法について
-
Excelのpivotについて質問です
-
WPS OFFICEでの縦書きについて
-
時間によってファイル名が変わ...
-
エクセルのセルに同じ大きさの...
-
Aというブックの1というシート...
-
エクセルの順位別一覧表の自動...
-
西暦や和暦の表示をyyyymmdd表...
-
【マクロ】エクセルにかいてあ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
texで図と表を並べたい
-
三項でたとえば交換って
-
VBA public変数はどのようなこ...
-
C#のループでtextboxに値を入れ...
-
VBAでcallで呼び出したsubを終...
-
他のフォームから別のフォーム...
-
C言語のサフィックスについて
-
レコードセットにnullの場合
-
エクセルVBAでテキストボッ...
-
Functionの戻り値を配列にした...
-
プログラムの素朴な質問です 分...
-
VB.NETでのイベントの途中終了
-
sublimit textっていうエディタ...
-
アクセスできない保護レベルエ...
-
チェックボックスを操作できな...
-
String型の値にスラッシュをつ...
-
Excel VBAでsub,dimは何の略?
-
ClickとChangeイベントの違いは...
-
visual basic初心者です。 visu...
-
VBAで入力数値について
おすすめ情報