VBAファイルのオープンが遅い

Question

Accessデータベースのモジュール内で作成されたExcelのインスタンスを使用して一連のExcelスプレッドシートを開こうとしています。ファイルを適切に開くことができます。ただし、実際にExcelを起動するための呼び出しにはかなりの時間がかかり、ファイルを開くにはさらに時間がかかります。ファイルの場所は問題ではありません（ローカルHDDをネットワークドライブとして開くときと同じです）。

何がそんなに長くかかっているかを調べるために、私はタイマーをロギングモジュールに追加しました。ファイルを開くには約2m30秒かかりますが、その間にホストアプリケーション（アクセス）はユーザーの入力に完全に反応しません。残りのスクリプトは10秒以内に実行されます。

Set OpenSpreadsheet = Excel.Workbooks.Open(Name, 2, False) 

を次のように私はこの線を中心にDebug.Print方法を使用して、標準Excel.Workbooks.Openコールを使用していますが、それは実行するために、この1ライン分の2分半かかりますと言います。

Excelファイルをすばやく開くためにできることはありますか？

EDIT：UpdateLinksはFalse、ReadOnlyはTrueです。他のすべてのオプションはデフォルト値のままです。

Answer 1

第1のアイデア：Excelオブジェクトで開く代わりに、ExcelへのODBC接続を備えたジェットドライバを使用できますか？はるかに高速かもしれません。

2番目の考え方：Excelアプリケーションオブジェクトを作成し、ルーチンの初めに一度だけインスタンス化してから、各スプレッドシートに対してExcel.Workbooks.Open（）とExcel.ActiveWorkbook.Close（）を使用してください。そうすれば、MS Excelアプリケーションを毎回 "再起動"することはありません。

Answer 2

@ BradCの推奨事項の2番目を引き出すには、複数の手順でExcelを使用する必要がある場合は、自己初期化グローバル関数を作成します。私は常にOfficeアプリケーションを自動化するためにレイトバインディングを使用します。

Public Function Excel(Optional bolCleanup As Boolean = False) As Object 
    Static objExcel As Object 

    If bolCleanup Then 
     If Not objExcel Is Nothing Then 
      Set objExcel = Nothing 
      Exit Function 
     End If 
    End If 
    If objExcel Is Nothing Then 
     Set objExcel = CreateObject("Excel.Application") 
    End If 
    Set Excel = objExcel 
    End Function 

その後、あなたはそれを初期化することなく、コードでそれを使用することができ、かつ単一のインスタンスは、Excelを使用する必要がある任意のコードが利用可能なままになります。

アプリをシャットダウンすると、Excel（True）を呼び出してクリーンアップします。

私はこれをOutlookとWordで常に行います。しかし、この種の処理に親切なことではないPDF Creatorなど、COM Creatorがうまく動作しないCOMアプリケーションがいくつかあります（無限ループで終了してしまいます。この方法でインスタンスを破壊する）。