VBからExcelファイルを開くときの再計算の解除方法

質問

VB6.0からExcelファイルを開くときに、
再計算処理が走ってしまい、
大きなファイルの場合とても時間がかかってしまっています。

開く前に、再計算は行わないで開く。
などの設定はできませんか？

Dim xlsObj As Excel.Application

' ココに入れてもまだExcelオブジェクトが生成されていないのでエラー
//xlsObj.Calculation = xlCalculationManual

Set xlsFile = xlsObj.Workbooks.Open(ファイルパス)

' ココに入れたらファイル開いて再計算処理が走ったあとなので、すでに手遅れ。
//xlsObj.Calculation = xlCalculationManual

なにかいい案がありましたら、
教えてください。

回答No.3

noname#27115

Dim xlsObj As New Excel.Application
　xlsObj.Calculation = xlCalculationManual
　Set xlsFile = xlsObj.Workbooks.Open(ファイルパス)

宣言時にNewを使ってオブジェクトを作成してどうでしょうか？

テストはしていません。。すみません。m(__)m

回答No.2

chibita_papa

> ココに入れてもまだExcelオブジェクトが生成されていないのでエラー

★ここで、ダミーのファイルを開く又は、新規ワークシートを作成
xlsObj.Calculation = xlCalculationManual
Set xlsFile = xlsObj.Workbooks.Open(ファイルパス)
★時ほどのダミーのブックを閉じる

ではどうでしょうか

回答No.1

sacoman

VBでコントロールせずに、対象ファイルのオプション設定で
計算方法を"手動"に設定して保存しておく事は出来ないでしょうか？

お礼

回答ありがとうございます。

今回の対象ファイルはお客様側の既存のシステムで作成されるものであり、そのファイルの設定を変更することはできません。

さらに、そのファイル数も莫大なものであり、
手作業での手動設定への変更なども考えておりません。