Excel VBAについて、 フォルダ内のファイルを全て開きたい場合、 FSOを使えば、Dirは使わ

Excel VBAについて、
フォルダ内のファイルを全て開きたい場合、
FSOを使えば、Dirは使わなくてもいい
ーという記事を見ました。

下記コードについて
Dirを使わずにどのようにしたらいいでしょうか？

宜しくお願い致します。

'FileSystemObjectオブジェクト
Dim fso As FileSystemObject
Set fso = New FileSystemObject

Dim A As String, B As String
A = ThisWorkbook.Path & "\dta"
B = Dir(A & "\*")
Do While B <> ""
Workbooks.Open Filename:=A & "\" & B
B = Dir()
Call シート非表示
Loop

No.1 ベストアンサー 回答者： fujillin 回答日時： 2023/01/27 14:44

こんにちは

指定フォルダー直下の全ファイルを対象とするので良ければこんな感じ。

Sub Sample()
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
For Each f In fso.getfolder(ThisWorkbook.path & "\dta").Files

'各ファイルを順に処理する
MsgBox f.Name

Next f
End Sub


※ 詳しくは以下を参照。
https://learn.microsoft.com/ja-jp/office/vba/lan …

この回答へのお礼

ありがとうございます！解決しました!!!

お礼日時：2023/01/29 19:05