Как исправить Expression.Error: во время оценки была обнаружена циклическая ссылка - PullRequest
0 голосов
/ 24 октября 2019

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

ActiveWorkbook.Queries.Add Name:=strName, Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=" & strName & "]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Date"", type any}, {""Time"", type any}, {""Call"", type any}, {""Greet"", type any}, {""Listen"", type any}, {""Engage"", type any}, {""Act"", type any}, {""Deliver"", type any}, {""Invite Back"", type any}, {""Total Score"", Int64.T" & _
        "ype}, {""Notes"", type any}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    CurrentWorkbook.Connections.Add2 strName, _
    "Connection to the " & strName & "query in the workbook.", _
    "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=" & strName & ";Extended Properties="_
  , "" & strName & "", 6, True, False

Where strName = InputBox("Enter Name")

Может кто-нибудь помочь мне найти / исправить циклическую ссылку?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...