【マクロの成長記録：17日目】ブック・シートの操作の練習

どーもKiyotomoです！

今日はいつもより少しだけ早く終わりました。
久々23時半には寝たいとことです。

本日もマクロ頑張ります

今日の問題

練習問題17（ブック・シートの操作の練習）｜VBA練習問題

ブック・シートの操作の練習

こちら、使えればマクロ出来る人っぽいシリーズですね。
一つのエクセルで複数のエクセルを操作するのは
まさしく"自動化"という感じがしてテンションが上がります

記載したコード

Sub 練習17()
　Dim Path As Variant
　Dim Book As Variant
　Dim i As Long
　i = 3
　Path = "C:\Users\kiyop\OneDrive\デスクトップ\マクロ練習フォルダ\"
　Book = Dir(Path & "*.xls*")
　Do Until Book = ""
　　Workbooks.Open Path & Book
　　Workbooks("練習1.xlsm").Worksheets("練習18").Cells(i, 1) = 　　ActiveWorkbook.Name
　　i = i + 1
　　Book = Dir()
　　Loop
　End Sub

こちらで複数のファイルの立上げ⇒ファイル名取得はいけました。
ただ、シート名が上手く取れませんでした。。

For Each ws In wb.Sheets
　wsAns.Cells(j, 2) = ws.Name
　　j = j + 1

こんな感じで各シート名を取得する必要がありました。
For Each inをマスターする必要がありそうです。

今日はここまで！
だんだん難しくなってきた為、
1回に時間がかかるようになってきました。。

忙しさに負けず自己成長頑張ります！
最後まで読んで頂きありがとうございましたー！