Непредвиденная ошибка Excel при создании таблицы запросов

#excel #vba

Вопрос:

Я получаю неожиданную ошибку при создании таблицы запросов в MS Excel. сообщение об ошибке


Трассировка стека:

bei Microsoft.Давить.Клиент.Excel.База функций NativeExcelFunctionsBase.ValidateResult(результат Int32, ожидаемые значения Int32 [])

bei Microsoft.Давить.Клиент.Excel.NativeExcelFunctionsMSI.Microsoft.Давить.Клиент.Превосходить.inativeexcelфункции.Свойства GetConnectionProperties(указатель рабочей книги IntPtr, имя строкового соединения)

bei Microsoft.Давить.Клиент.Excel.NativeEventHandler.<>c__DisplayClass27.b__25()

bei Microsoft.Мэшап,Ведущий.Документ.Исключения из правил.HandleExceptions(IExceptionHandler, исключение, действие, действие)

Это мой код:

     With Tabelle1.ListObjects.Add(xlSrcExternal, Source:=Connectionstring, Destination:=Range("$A$2")).QueryTable
    .CommandType = xlCmdSql
    .CommandText = "SELECT * FROM MySchema.MyTable"
    .RowNumbers = True
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    .ListObject.DisplayName = "MyTable"
    .Refresh BackgroundQuery:=False
End With
 

Подключение к базе данных работает, и Excel также загружает данные таблицы на мой рабочий лист, но я всегда получаю сообщение об ошибке.
Кто-нибудь может догадаться о проблеме ?

Комментарии:

1. Вы должны включить сообщение об ошибке в свой вопрос в виде текста, и было бы неплохо также предоставить перевод на английский язык, чтобы мы могли его просмотреть.