Страницы: 1
RSS
Непредвиденная ошибка при выгрузке данных из SQL на лист
 
Здравствуйте. Появилась необходимость выгрузить данные из 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+ раз, но больше не пропадает, не важно в каком файле.
Изменено: Андрей Нечитаев - 05.08.2022 10:12:17
 
Сперва пишите сроку:
On Error Resume Next
Потом ваш код, где возникает ошибка
Потом ниже вашего кода с ошибкой пишите
On Error GoTo 0
 
New, Не помогло, так же появляется. Ошибка не в коде появляется, как понял, поэтому и не работает, так как без макросов тоже появляется.
 
К сожалению, больше ничем не помогу. Может придут специалисты по Power Query и что подскажут
 
Попробовал по разному выгружать, ошибки иногда такие:

Error Message:
Исключение из HRESULT: 0x800A03EC
Stack Trace Message:
Исключение из HRESULT: 0x800A03EC
 
Проблему решил.
Страницы: 1
Наверх