Сотовая ссылка на powerquery

Question

У меня есть Power Query, в котором я пытаюсь получить ссылку в ячейке Z13 из листа "Shift Sched".По ссылке в Z13 я получу файл Excel, в котором у меня есть данные.Имя ячейки определяется как REFCELL

Вот ват, который я получил из записи макроса.Sub powerquery () '' powerquery Macro '

' Range ("W13"). Выберите ActiveWorkbook.Queries.Add Name: = "Расписания", формула: = _ "let" & Chr (13) & ""& Chr (10) &" Source = Excel.Workbook (Web.Contents ("" https://portal.ant.website.com/sites/wfl/Shift Расписания / Сдвиги и подробности Emp в wef 03 июня 2018-HYD.xlsx ""), null, true), "& Chr (13) &" "& Chr (10) &" Schedules_Sheet = Source {[Item = "" Schedules "", Kind = "" Sheet ""]} [Data], "& Chr (13) &"" & Chr (10) & "#" "Измененный тип" "= Table.TransformColumnTypes (Schedules_Sheet, {{" "Column1" ", введите текст}, {" "Column2" ", введите" & _ "text},{"" Column3 "", введите текст}, {"" Column4 "", введите любой}, {"" Column5 "", введите текст}, {"" Column6 "", введите текст}, {"" Column7 "", введите любой}, {"" Column8 "", введите любой}, {"" Column9 "", введите текст}, {"" Column10 "", введите текст}, {"" Column11 "", введите текст}, {"" Column12 "", введите текст}, {"" Column13 "", введите текст}, {"" Column14 "", введите текст}, {"" Column15 "", введите текст}, {"" Column16 "",type "& _" text}, {"" Column17 "", введите text}, {"" Column18 "", введите text}, {"" Column19 "",введите любой}, {"" Column20 "", введите текст}, {"" Column21 "", введите текст}, {"" Column22 "", введите текст}, {"" Column23 "", введите любой}, {""Column24" ", введите любой}, {" "Column25" ", введите любой}, {" "Column26" ", введите любой}, {" "Column27" ", введите любой}, {" "Column28" ", введителюбой}, {"" Column29 "", введите любой}, {"" Column30 "", ty "& _" pe any}, {"" Column31 "", введите текст}, {"" Column32 "", введите любой}, {"" Column33 "", введите текст}, {"" Column34 "", введите текст}, {"" Column35 "", введите текст}, {"" Column36 "", введите любой}, {"" Column37"", введите текст}, {"" Column38 "", введите текст}, {"" Column39 "", введите любой}, {"" Column40 "", введите любой}, {"" Column41 "", введите любой}, {"" Column42 "", введите текст}, {"" Column43 "", введите любой}}) "& Chr (13) &" "& Chr (10) &" in "& Chr (13) &" "& Chr (10) & "#" "C" & _ "Повешенный тип" "" Sheets.Add After: = ActiveSheet With ActiveSheet.ListObjects.Add (SourceType: = 0, Source: = _ "OLEDB; Поставщик = Microsoft.Mashup.OleDb.1; Источник данных = $ Workbook $; Расположение = Расписания; Расширенные свойства = "" "" "_, Назначение: = Диапазон (" $ A $ 1 ")). QueryTable .CommandType = xlCmdSql .CommandText = Array ("SELECT * FROM [Schedules]") .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeavePawnSwordSellSwordSellSwordSellSwordSells.True .RefreshPeriod = 0 .PreserveColumnInfo = False .ListObject.DisplayName = "Schedules_2" .Refresh BackgroundQuery: = False End с Selection.ListObject.QueryTable.Refresh BackgroundQuery: = False End Sub

** Это не работаетдля меня, потому что ссылка постоянно меняется в зависимости от даты экс.03 июня 2018. Ссылка должна быть взята из ячейки z13 в листе «Shift Sched» и загружена в новый лист.

Answer 1

Это почти все связано с получением кавычек "" в нужном месте для правильной сборки строки запроса.Попробуйте это:

ActiveWorkbook.Queries.Add _
    Name:="Schedules", _
    Formula:="let" & vbCr & _
            vbTab & "MyURL = Excel.CurrentWorkbook(){[Name=""REFCELL""]}[Content][Column1]{0}," & vbCr & _
            vbTab & "Source = Web.Page(Web.Contents(MyURL))" & vbCr & _
            "in Source"