Соединение ADODB с VBA перестало работать

У нас есть электронная таблица Exccel, используемая для управления ротацией инженеров службы поддержки в нерабочее время. Некоторое время назад я добавил немного кода VBA, который автоматически перенаправляет номера телефонов службы поддержки на телефон инженера в нерабочее время.

Это достигается путем подключения к базе данных, управляемой операторами телефонной связи, и обновления номера переадресации.

Сегодня днем ​​он внезапно перестает работать на центральном сервере:

Dim Db As ADODB.Connection

Sub ConnectDatabase()
  Set Db = New ADODB.Connection
  Db.Open "SupportMobileDb"
End Sub

Код останавливается на строке New ADODB.Connection и сообщает:

Run-time error '430':
Class does not support Automation or does not support expected
interface

Я все еще могу запустить макрос на своем Ноутбук, и он работает правильно. А на центральном сервере я все еще могу использовать Excel и правильно подключаться к источнику данных. Он просто больше не будет работать через VBA на этом сервере.

Макрос работал правильно в 9 утра и переадресовал все телефоны в офис, но макрос переадресации 5 вечера для персонала не работал. Я не вижу, чтобы Windows была обновлена ​​сегодня, или вообще каких-либо других изменений.

Кто-нибудь видел эту проблему раньше?

7
задан asc99c 7 October 2011 в 17:15
поделиться