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ランキング
-
texで図と表を並べたい
-
共有フォルダの「共有のアクセ...
-
Functionの戻り値を配列にした...
-
Excel VBAでsub,dimは何の略?
-
パーソナルXLSBのfuctionを呼び...
-
C言語のサフィックスについて
-
三項でたとえば交換って
-
VBA public変数はどのようなこ...
-
ピッ、ってアルファベットでど...
-
文字列を配列に…。
-
テキストボックスを空白にする方法
-
visual basic初心者です。 visu...
-
テキストボックス内の簡単な計算
-
VB6でClickイベントを一時的に...
-
VC++ (byte)(col & 0xFF) の意味
-
subプロシージャーですか?sub...
-
EXCEL VBA 文字 アドレス 検...
-
RichTextBoxで指定行の色を自動...
-
エクセルVBAついて ①if•••••the...
-
ExcelのVBA。Staticな変数について
マンスリーランキングこのカテゴリの人気マンスリー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で入力数値について
おすすめ情報