For Each Dir関数 にてフォルダ、シートを回してシートを取得したい

Question

下記内容ですが、For Each にてフォルダ名の取得をし、Dir関数で各ファイルのシート名を取得しているつもりなのですが、Debug.Printにて何も出力されません。
エラー表記も出ていない状態ですなのが、どの部分を修正したら値を拾ってくるかご教授お願いいたします。

お手数おかけしますがよろしくお願いいたします。

Sub シート取得1()
Dim fso As FileSystemObject
Set fso = New FileSystemObject ' インスタンス化
Dim pfl As Folder
Set pfl = fso.GetFolder("C:\Users\08260\Desktop\試し\")
Dim foldername As String
Dim fl1 As Folder
'Dirで使用する変数達
Dim bookfile As String
Dim counter As String
Dim wb As Object
Dim i As Long


For Each fl1 In pfl.SubFolders
    foldername = fl1.Name
    bookfile = Dir("C:\Users\08260\Desktop\試し\" & foldername & "\") ' フォルダパスを取得
    
    Do While file <> ""
    counter = Worksheets.Count
        For i = 1 To counter
            sheetname = wb.Sheets(i).Name
        
        Debug.Print (sheetname) ' ファイルのパス (D:\Tips.txt) など
        
        Next
    bookfile = Dir()
    Loop
Next


' 後始末
Set fso = Nothing
End Sub

Answer 1

ざっと見た感じ、下記の修正でいけそうかな？（未検証）

For Each fl1 In pfl.SubFolders
    foldername = fl1.Name
-    bookfile = Dir("C:\Users\08260\Desktop\試し\" & foldername & "\") ' フォルダパスを取得
+    bookfile = Dir("C:\Users\08260\Desktop\試し\" & foldername & "*.xls*") 'ブック名を取得
-    Do While file <> ""
+    Do While bookfile <> ""
+        Set wb = Workbooks.Open("C:\Users\08260\Desktop\試し\" & foldername & "\" & bookfile)
-    counter = Worksheets.Count 
+    counter = wb.Worksheets.Count
        For i = 1 To counter
            sheetname = wb.Sheets(i).Name

        Debug.Print (sheetname) ' ファイルのパス (D:\Tips.txt) など

        Next
    bookfile = Dir()
    Loop
Next

Comments

[退会済みユーザー]

hatena19様
ご返信ありがとうございます。

いただいた内容で動きました。
ありがとうございます。

Answer 2

＞Do While file <> ""

Do While bookfile <> ""

では？

あれ？
でも該当したBookを開いていないのでWorkSheet情報が取れますかね？