【ExcelVBA】VBAからSQLServerに接続したとき起こるオートメーションエラーはタイムアウトが原因かも

SQLServerへの接続を含むVBAを実行すると「オートメーションエラー」が発生するようになった。
どうやらVBAに埋め込んでいるクエリの実行時間が長すぎるのが原因っぽい。

デフォルトだと実行時間が30秒を超えるとタイムアウトになるらしいので、以下のコードで120秒に延長。

Set con = CreateObject("ADODB.Connection")

con.CommandTimeout = 120

無事オートメーションエラーが解消されました。
ちなみに「0」を設定するとタイムアウトがなくなるらしい。