如何用VBA跨工作簿执行参数化Power Query（免复制M代码）

方法1：直接引用源工作簿的查询作为函数 #

在目标工作簿的Power Query编辑器中，通过M代码直接加载源工作簿的查询集合，调用指定函数：

1. 打开目标工作簿，进入Power Query编辑器
2. 新建空白查询，输入以下M代码（替换路径为你的源工作簿实际路径）：

   // 加载源工作簿的所有查询
   Source = Excel.Workbook(File.Contents("C:\实际路径\你的源工作簿.xlsx"), null, true),
   QueriesTable = Source{[Item="Queries", Kind="Queries"]}[Data],
   // 获取目标工作簿首工作表的表格
   TargetTable = Excel.CurrentWorkbook(){[Name=Excel.CurrentWorkbook(){[Kind="Sheet"]}[Name]{0}]}[Content],
   // 调用源工作簿中的Fxquery函数
   Result = QueriesTable{[Name="Fxquery"]}[Value](TargetTable)
   

3. 点击关闭并上载，将结果加载到目标工作簿。后续源工作簿的Fxquery更新后，刷新目标工作簿数据即可同步逻辑。

方法2：通过Power Pivot将源查询转为可调用的模型函数 #

若需要更直观的调用方式，可借助Power Pivot封装源查询为模型函数：

1. 打开源工作簿，启用Power Pivot加载项（未启用的话在Excel选项中添加）
2. 进入Power Pivot窗口，找到Fxquery查询，右键选择创建函数，确认参数Tab的类型为Table
3. 保存源工作簿，切换到目标工作簿：
   • 点击数据选项卡 → 获取数据 → 从文件 → 从Excel工作簿
   • 选择源工作簿，在导航器中找到Fxquery函数，点击调用
   • 在参数输入框中，选择目标工作簿的首工作表表格作为输入，确认后加载结果

关键注意事项 #

• 源工作簿路径建议用相对路径（如".\源工作簿.xlsx"），避免文件移动导致引用失效
• 确保目标工作簿对源工作簿所在路径有读取权限
• 源工作簿的查询修改后，目标工作簿只需刷新数据即可应用最新逻辑，无需手动复制M代码

内容的提问来源于stack exchange，提问作者EmmBr