マクロでフォルダ内の全てのExcelファイルを開くには？

Excelのマクロ機能で、マクロを実行すると、あるフォルダ内にある全てのExcelファイルを開くことってできますでしょうか？

No.1 ベストアンサー 回答者： ham_kamo 回答日時： 2006/12/13 16:48

ちょうどこの間作ったのがありました。

同じフォルダにあるExcelファイルのうち、開いてないものを全て開きます。もしフォルダを指定したいのであれば、
　　FileName = Dir("*.xls")
の行の前に
　　Chdir("フォルダ名")
を挿入してください。

Sub OpenAllBooks()
　　Dim FileName As String
　　Dim OpenedBook As Workbook
　　Dim IsBookOpen As Boolean
　　
　　FileName = Dir("*.xls")
　　Do While FileName <> ""
　　　　If FileName <> ThisWorkbook.Name Then
　　　　　　IsBookOpen = False
　　　　　　For Each OpenedBook In Workbooks
　　　　　　　　If OpenedBook.Name = FileName Then
　　　　　　　　　　IsBookOpen = True
　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　Next
　　　　　　If IsBookOpen = False Then
　　　　　　　　Workbooks.Open (FileName)
　　　　　　End If
　　　　End If
　　　　FileName = Dir()
　　Loop
End Sub

この回答へのお礼

教えて頂いた実行したら、うまくいきました。
助かりました。有難うございます！！

お礼日時：2006/12/14 10:12