Excel中Microsoft Query：使用单元格值定义数据源

嘿，刚接触Microsoft Query完全不用慌，咱们一步步搞定你这个共享文件夹仪表板的文件合并需求～

1. 先把路径变成可复用的「变量」 #

你把目标路径存在Sheet1(A1)，直接在Query里引用单元格有点麻烦，先给这个单元格定义个名称，方便后续调用：

• 选中Sheet1的A1单元格，点击公式栏左侧的名称框（就是显示单元格地址的那个输入框），输入一个好记的名字比如TargetFolderPath，回车确认。
• 这样不管后续路径怎么改，只要更新A1的值，所有引用这个名称的地方都会自动同步，特别适合多用户共享的场景。

2. 用参数化Microsoft Query获取文件夹文件列表 #

接下来要让Query动态读取A1的路径，抓取目录下的所有文件：

• 打开Excel的「数据」选项卡，点击「自其他来源」→「来自Microsoft Query」。
• 在弹出的「选择数据源」窗口，选<新数据源>，点击确定；接着选择「Microsoft Jet 4.0 OLE DB Provider」，点下一步。
• 进入Query的查询设计器后，点击「视图」→「SQL视图」，输入以下SQL语句：

  SELECT FileName, FilePath FROM FileSystem WHERE FilePath = ?
  

  弹出「输入参数值」窗口后，点「参数」按钮，设置参数的数据源为Sheet1!A1（选「从单元格获取值」，然后指定Sheet1的A1）。
  这样Query就会自动读取A1的路径，返回该目录下的所有文件列表。

3. 合并文件到Excel（手动+自动化两种方式） #

方式一：手动合并（适合少量文件） #

有了文件列表后，你可以逐个选中文件，用Query导入每个文件的数据，然后手动复制粘贴到同一个工作表。不过这种方式太麻烦，更推荐下面的自动化方法。

方式二：VBA+Microsoft Query自动合并 #

共享文件夹环境下，手动操作容易出错，写个简单的VBA宏能一键完成合并：

• 按下Alt+F11打开VBA编辑器，插入一个新模块，粘贴以下代码：

  Sub MergeFilesFromTargetFolder()
      Dim targetPath As String
      Dim mergeSheet As Worksheet
      Dim qry As QueryTable
      Dim sqlCommand As String
      
      ' 获取Sheet1(A1)的目标路径
      targetPath = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
      ' 指定存放合并结果的工作表（提前建好，比如叫「合并数据」）
      Set mergeSheet = ThisWorkbook.Sheets("合并数据")
      
      ' 清空旧数据（可选）
      mergeSheet.Cells.Clear
      
      ' 构建SQL语句：合并目标路径下所有xlsx文件的Sheet1数据
      ' 若要合并xls文件，把「Excel 12.0 Xml」改成「Excel 8.0」
      sqlCommand = "SELECT * FROM [Excel 12.0 Xml;HDR=YES;IMEX=1;DATABASE=" & targetPath & "\*.xlsx].[Sheet1$]"
      
      ' 创建QueryTable并导入合并数据
      Set qry = mergeSheet.QueryTables.Add( _
          Connection:="OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & targetPath & ";", _
          Destination:=mergeSheet.Range("A1"))
      
      qry.CommandText = sqlCommand
      qry.BackgroundQuery = False ' 等待查询完成再继续
      qry.Refresh ' 执行查询
      
      ' 清理临时QueryTable（可选，避免重复创建）
      qry.Delete
      
      MsgBox "文件合并完成！", vbInformation
  End Sub
  

• 注意：确保所有用户的Excel安装了ACE OLEDB驱动（Office 2010及以上默认自带，要注意32/64位和Excel版本匹配）；代码里的Sheet1$要改成你实际要合并的工作表名称，合并数据改成你用来存结果的工作表名。

4. 多用户共享的关键注意事项 #

• 用UNC路径（比如\\服务器名称\共享文件夹\）代替本地映射盘符（比如Z:\），因为不同用户的盘符映射可能不一样，UNC路径更稳定通用。
• 确保所有用户都有共享文件夹的读写权限，不然Query无法读取文件或写入数据。
• 提醒用户不要随意修改Sheet1(A1)的路径格式，最好用复制粘贴的方式更新路径，避免手动输入出错。
• 如果要合并不同格式的文件（比如xls、csv），要调整SQL语句里的文件格式参数，比如csv对应text;HDR=YES;FMT=Delimited。

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