|
【質問】
ただいま、別の質問で質問させていただいていますが、それを解決する前に
聞きたいことがあります。
『test』フォルダー内に複数あるエクセルを順次開き、それぞれのエクセルの
シート名を調べるコードですが、bufのエクセルが対象になりません。
どこがいけないのか教えて下さい。
Private Sub CommandButton1_Click()
Dim buf As String
Dim sh As Worksheet
Const path = "C:\Users\○●\Desktop\test\"
buf = Dir(path & "*.xls")
Do While buf <> ""
Workbooks(" & buf & ").Open
MsgBox "ブック名は『" & buf & "』です"
MsgBox "アクティブブックは『" & ActiveWorkbook.Name & "』です"
For Each sh In Worksheets
Workbooks(" & buf & ").sh.Select
MsgBox "シート名は『" & Workbooks(" & buf & ").sh.Name & "』です"
Next sh
buf = Dir()
Loop
End Sub
|
|