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ベストアンサー
- 回答日時:
こんにちは
指定フォルダー直下の全ファイルを対象とするので良ければこんな感じ。
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 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Android VBA、フォルダのパスに環境文字 ㉑ があり、VBAが機能しません。 2 2022/07/27 09:16
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで作成するメール(開封確認...
-
Excelでフィルタをかけると警告...
-
VBAで Set wb = Sheets(1).Cop...
-
エクセルマクロエラー「'Cells'...
-
エクセルVBAでcode128のバー...
-
Excel VBA Collection.add で R...
-
[VBA]CDOメッセージ送信エラー
-
エクセルVBAで配列内に空白デー...
-
vbsのFolderExistsで部分一致を...
-
VBScriptでファイルの日時順(降...
-
Excelのシート上にtextboxを作...
-
コンパイルすると「メソッドま...
-
VBで引数にDictionaryオブジェ...
-
オブジェクト名が同じ図形の変更
-
配列にしたセル範囲でのコメン...
-
VBAで既に開いている別アプリケ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
エクセルのVBAの標準モジュール...
-
VBAで既に開いている別アプリケ...
-
VBAで Set wb = Sheets(1).Cop...
-
テキストボックス中の文字列の...
-
PowerPointVBAでスライドマスタ...
-
エクセルマクロエラー「'Cells'...
-
VBAからPDFファイルにパスワー...
-
Excelでフィルタをかけると警告...
-
オブジェクトが見つかりません
-
ある文字列が全て数字であるか...
-
EXCEL VBA オートシェイプナン...
-
[VBA]CDOメッセージ送信エラー
-
VBAで作成するメール(開封確認...
-
VBAについてです。 初心者です...
-
VBA:オートシェイプの線の長...
-
VBで引数にDictionaryオブジェ...
-
AccessVBAで「dim dbs as datab...
おすすめ情報