VBA-код для изменения запроса XLS исходного приглашения

Question

Я искал простой код vba, открывающий запрос источника изменений для запроса, представляющего собой лист xls. У меня есть много шагов запроса, которые мне нужно делать каждый раз, когда меняется источник. Поэтому в основном я хотел бы иметь макрос, который выполняет эти шаги вручную для определенного имени запроса (у меня их несколько в рабочей книге): в режиме редактирования запроса нажмите кнопку изменения источника: источник * Макрос 1003 *

должен открыть приглашение, чтобы я мог вручную выбрать файл xls: screen

также, данные могут быть на листе, имя которого отличается от предыдущего, поэтому мне также нужно перейти к нужному листу / таблице, чтобы также было удобно открывать подсказку «навигация», чтобы я мог вручную выбрать: кнопка нагивация

Answer 1

Создайте ячейку в книге Excel, которая содержит полный путь к нужному имени файла, например c: \ temp \ directory \ subdirectory \ filename.xlsx и присвойте этой ячейке имя диапазона, здесь «TheFilename» в моем примере

Создайте ячейку в книге Excel, которая содержит имя нужной вкладки ввода с именем файла, например Sheet1 , и присвойте этой ячейке имя диапазона, здесь в моем примере «TheSheet»

Используйте эти имена диапазонов в powerquery в качестве переменных с использованием синтаксиса

Excel.CurrentWorkbook(){[Name="rangeName"]}[Content]{0}[Column1]

, как в этом примере

let
TheFilename = Excel.CurrentWorkbook(){[Name="TheFilename"]}[Content]{0}[Column1],
TheSheet= Excel.CurrentWorkbook(){[Name="TheSheet"]}[Content]{0}[Column1],
Source = Excel.Workbook(File.Contents(TheFilename), null, true),
Data = Source{[Item=TheSheet,Kind="Sheet"]}[Data]
in Data