VBA 大量のファイル

Question

VBAで170くらいあるファイルを、ループで1つづつ開いてセルの値を取得したいのですが、全てのファイルを処理するのに、時間が凄くかかってしまいます。
高速で処理できる方法はないでしょうか？
ファイルを開く処理は以下にしています。

Application.ScreenUpdating = False

Set open_file = Workbooks.Open(Filename:=file_path & "¥" & book, UpdateLinks:=False)

ThisWorkbooks.Activate

Application.ScreenUpdating = True

Comments

[TanakaHiroaki]

過去の質問「VBAファイル操作の高速化」が参考になるかもしれません。
https://teratail.com/questions/153304

[meg_]

> 時間が凄くかかってしまいます。
何秒かかっていますか？

[takasima20]

参照手順がそんなに複雑じゃないなら、Excelファイルをなんかツールでテキスト化してからやったら?

Answer 1

Workbooks.Open でブックを開くのは重い処理ですので、ブックを開かずにデータを取得する方法を検討しましょう。

下記の私の回答で、ブックを開かずにデータを取得するいくつかの方法を紹介しています。

VBA - ブックを開かずデータを取得したい｜teratail

上記の外部参照を使う方法が比較的簡単な割に高速です。