フォルダ内の全てのファイル開く時間短縮の方法

質問

Excelのマクロを使ってフォルダ内の全てのファイルを開く以下のコードを利用しているのですが（教えてgoo！で教えて頂いたコードです）、ファイル数が１０個くらいあるため全部開くのに１分くらいかかってしまいます。
もっと時間を短縮することはできませんでしょうか？

Sub OpenAllBook()
　　Dim FileName As String
　　Dim OpenedBook As Workbook
　　Dim IsBookOpen As Boolean

　　ChDir ("フォルダ名")
　　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

回答No.1

nrb · ベストアンサー

もっと時間を短縮することはできませんでしょうか？

　読み込みは早いですよ
　ただ、読み込んだデータをセルの中に入れるの時間が掛かるのです
　これで時間を食っているので・・・・
　マクロでは解決できない問題です

　解決するには
　CPUの処理能力を上げる
　メモリーが少ない時には増やす
　しか　無いです

　うちのファイル　馬鹿大きいの８MBのファイルを開けると
　１分程度はCPU１００％にされて開くまで掛かりますよ
　１M程度項目全セル数２００００程度で数秒は開くのに掛かる

　まあ、エクセル自体の処理スピードの問題なのでマクロじゃどうにもなりません