用于更改查询xls源提示的vba代码

Question

我正在搜索一个简单的vba代码，该代码打开xls表查询的更改源提示。每次更改源时，我都需要执行许多查询步骤。因此，基本上，我希望有一个宏为某个查询名称手动执行这些步骤(我在工作簿中有很多(：在查询编辑模式中，单击源更改按钮：源

宏应该打开提示，这样我就可以手动选择xls文件：屏幕

此外，数据可能位于与以前名称不同的工作表中，因此我还必须导航到正确的工作表/表，以便打开"导航"提示也很好，这样我就可以手动选择：按钮nagivation

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