У нас есть электронная таблица 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 была обновлена сегодня, или вообще каких-либо других изменений.
Кто-нибудь видел эту проблему раньше?