Officeバージョン違いによるExcel ActiveXのパフォーマンスについて

Question

vbスクリプトでExcelファイル処理しています。

Officeを2010->365にアップデートしたところ、処理時間が延びてしまいました。

確認した環境と結果は以下です。（時間は相対値として参照ください）

1. windows7 64bit SP1 + Office2010　　　　【45秒】
2. windows7 64bit SP1 + Office365ProPlus　【330秒】
3. windows10 64bit  +  Office365ProPlus　　【210秒】

vbスクリプトの処理としては

テンプレートExcelファイルの各項目を探して、値をセットする内容です。

***********************************************************

  Set Excel = CreateObject("Excel.Application")

  Set WorkBook = Excel.Workbooks.Open(filename)

  Set WorkSheet = WorkBook.Worksheets(0)

  '以下の2行の設定内容が多数繰り返されます

  Set objLevel = WorkSheet.rows("1:100").Find("LEVEL")

  WorkSheet.Cells(objLevel.Row,objLevel.Column).Offset(0,1).Value = "PRODUCT-LEVEL"

  WorkBook.Sheets(0).SaveAs filename

  WorkBook.Save

  WorkBook.Close

***********************************************************

以下について情報ございましたら、ご教示頂けると助かります。

・Office365で上記スクリプト処理が遅くなる要因はありますでしょうか？

・Office365の設定で改善する可能性はありますでしょうか？

　　→Excelオプションの「ハードウェアグラフィックアクセラレータを無効にする」にチェックを入れて試しましたが、効果なし

・Officeバージョンによる違いがある場合、コード修正で改善する可能性はありますでしょうか？

よろしくお願いいたします。

Answer 1

ZKN_ISさん、こんにちは。

参考情報となりますが、以下のスレッドを確認してみてはいかがでしょう。

・excel2016のマクロ処理が超遅い

・Windows7,Windows10 エクセル2016 VBAの処理が遅い

・Excel VBAの処理スピードについて

また、VBA に関する話題は、開発者向けの＜**Msdnフォーラム**＞で情報を集めてみると良いと思いますよ。

■Msdnフォーラム（VBA)

Answer 2

Makapuさん、こんにちは。

参考情報ありがとうございました。非常に助かりました。

今までVisible、DisplayAlerts プロパティはFalseにしていたのですが、

今回、ScreenUpdating プロパティもFalseにすることでかなり早くなりました。

  Set Excel = CreateObject("Excel.Application")

  Excel.Visible = False

  Excel.DisplayAlerts = False

  Excel.ScreenUpdating = False　★

他にも高速化できそうな情報がありましたので、試してみます。

ご教示ありがとうございました。