Вы можете установить свойство CommandType, только если значение свойства QueryType для таблицы запросов или кэша сводной таблицы равно xlOLEDBQuery, то есть enum 5.
Это не относится к вашему запросу.На самом деле, эта строка даже не существует в исходном коде.Возможно, вы пытались объединить скрипты?Если это так, будьте осторожны при объединении кода подключения, чтобы типы были одинаковыми.
Если вы добавите в строку отладки, чтобы получить QueryType
Debug.Print .QueryType
.Name = "receipts"
, вы получитевернуть enum 6 обратно.Вы можете посмотреть это с помощью проводника объектов:
Как и следовало ожидать из спецификации соединения:
ActiveSheet.QueryTables.Add(Connection:="TEXT;