Visual Basic For Applications Tips

ワークブックの列挙

Sub WorkBookNameEnum()
　　Dim wBook As Variant

　　For Each wBook In Workbooks
　　　　Debug.Print wBook.Name
　　Next
End Sub