Здравствуйте. Появилась необходимость выгрузить данные из SQL на рабочий лист. Делаю это путем "Данные-Из других источников-С сервера SQL сервер", но во время выполнения появляется "Непредвиденная ошибка". Если же просто нажать кнопку "Закрыть", то данные все равно выгружаются и выгружаются правильно.
Из-за чего может быть ошибка? Или как её можно скрыть (Application.DisplayAlerts = False не работает), так как выгрузка будет происходить с помощью макроса.
Ошибка появляется на данной строке кода:
Код
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
"OLEDB;Provider=********.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=*********;Use Procedure for Prepare=1;Aut" _
, _
"o Translate=True;Packet Size=4096;Workstation ID=*********;Use Encryption for Data=False;Tag with column collation when possibl" _
, "e=False;Initial Catalog=*********"), Destination:=Range("$A$1")).QueryTable
Из текстового файла с ошибкой: Error Message: Значение не попадает в ожидаемый диапазон. Stack Trace Message: Значение не попадает в ожидаемый диапазон.
p.s. В самый первый раз при аналогичном коде выгрузилось нормально и без ошибки, ошибка появилась на 2+ раз, но больше не пропадает, не важно в каком файле.