Power Query如何设置便捷方式让用户选择查询应用的目标文件？

优先推荐无宏方案，不需要调整Excel安全设置，兼容性最好，电脑操作基础弱的同事拿到就能用。

方案1：零代码自带交互（无需宏，最稳妥） #

配置步骤 #

• 第一步：创建带文件选择能力的参数
  打开你做好的查询文件，进入Power Query编辑器，点击顶部「主页」>「管理参数」>「新建参数」，按下面要求设置：
  • 参数名称：目标结果文件
  • 数据类型：选「文本」
  • 建议值：选「文件路径」（这一步是核心，选完后参数自带文件选择弹窗入口）
  • 当前值：先选你原来测试用的X:\foo\foo.txt当示例即可
• 第二步：替换原查询的硬编码路径
  打开你原来写好的清洗查询，把Source步骤里写死的文件路径，替换成刚才新建的参数，修改后的M代码如下：

  let
  Source = Table.FromColumns({Lines.FromBinary(File.Contents(目标结果文件), null, null, 1252)}),
  #"Removed Top Rows2" = Table.Skip(Source,32),
  #"Removed Bottom Rows" = Table.RemoveLastN(#"Removed Top Rows2",16),
  #"Other Steps" = ...
  

• 第三步：把操作入口放到显眼位置，降低操作门槛
  回到Excel普通工作表界面，找个空白的显眼位置，输入提示文字：操作步骤：1. 点旁边单元格选自己的txt结果文件 2. 点顶部「数据」选项卡的「全部刷新」即可
  点击「数据」选项卡>「查询和连接」，右侧弹出的面板里找到刚才建的目标结果文件参数，右键选「加载到」，勾选「仅创建连接」，确定后再右键这个参数，选「加载到」>「表」，放到提示文字旁边的单元格即可。这个单元格旁边会自动带一个小文件夹图标，点了就直接弹出文件选择框。

同事端操作流程 #

拿到你发的文件后只需要两步：

1. 点参数单元格旁边的文件夹图标，选自己生成的txt结果文件
2. 点「数据」>「全部刷新」，清洗完的结果会自动生成，全程不需要碰Power Query编辑器，也不用改任何代码。

方案2：一键按钮交互（需启用宏，操作更简单） #

如果想要实现点按钮直接弹选文件框、选完自动刷新的效果，只需要加几行简单VBA代码，不需要复杂逻辑：

• 点Excel「开发工具」>「插入」>选第一个表单控件（按钮），在工作表显眼位置拖动画一个按钮，改按钮文字为「点我选择结果文件」
• 给按钮指定新宏，宏代码如下：

  Sub 选文件并刷新()
      Dim selectFile As String
      ' 弹出txt文件选择框，只显示txt格式文件
      selectFile = Application.GetOpenFilename("系统结果文件(*.txt),*.txt", , "选择你的结果文件")
      ' 用户点取消就直接退出，不报错
      If selectFile = "False" Then Exit Sub
      ' 把选好的路径更新到之前建的参数里
      ThisWorkbook.Queries("目标结果文件").Formula = "=""" & selectFile & """"
      ' 自动刷新查询出结果
      ThisWorkbook.RefreshAll
  End Sub
  

• 保存文件的时候选xlsm格式（启用宏的工作簿），发给同事的时候提醒下第一次打开点顶部的「启用内容」就行。同事用的时候只需要点按钮、选自己的txt文件，等1-2秒结果就自动出来，连刷新都不用手动点。

注意：如果实验室电脑有宏限制，直接用方案1即可，不需要改安全设置，不会被杀毒软件拦截。

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