occ********

2022/7/6 23:04

11回答

VBAについて質問です。

VBAについて質問です。 フォルダにマクロ付きブックを保存し、サブフォルダにあるファイル名｢1000_｣で始まるExcelファイル（1000_*****.xlsx）以外のファイルを一括して削除したいです。 詳細については、画像をご参照ください。 どうぞよろしくお願いいたします。 ※画像の｢フォルダ名①～⑥｣はイメージの為につけた名前ですので、実際の作業は別のフォルダ名で行います。

画像

Visual Basic・23閲覧

ベストアンサー

0
ggrks

カテゴリマスター

2022/7/6 23:27

Sub Example() Const ファイル名パターン$ = "1000_*.xlsx" Dim 親フォルダパス$ 親フォルダパス = ThisWorkbook.Path Dim fso As Object, folder As Object, file As Object Set fso = CreateObject("Scripting.FileSystemObject") For Each folder In fso.GetFolder(親フォルダパス).SubFolders For Each file In folder.Files If Not file.Name Like ファイル名パターン Then fso.Deletefile file End If Next Next End Sub

ThanksImg質問者からのお礼コメント

早々にご回答をいただき、ありがとうございました。 出来ました！大変、助かりました。

お礼日時：7/7 0:01