如何选择对应Power Query加载不同格式CSV至Excel分析表

1. 改造Power Query实现参数化数据源 #

每个对应不同格式的Power Query（以下简称PQ）需要改成接受动态文件路径，而非固定路径：

• 打开PQ编辑器，点击「主页」>「管理参数」>「新建参数」，命名为SourceFilePath，类型选「文本」，允许空值。
• 修改PQ的数据源代码，把固定文件路径替换为参数：
  原固定路径代码示例：

  Source = Csv.Document(File.Contents("C:\固定路径\sample.csv"), [Delimiter=",", Encoding=65001])
  

  改为参数化代码：

  Source = Csv.Document(File.Contents(SourceFilePath), [Delimiter=",", Encoding=65001])
  

• 确保每个PQ的最终输出列结构完全统一（标签行+读数列），关闭编辑器时选择「仅创建连接」，不要自动加载到单独工作表/表格。

2. 编写VBA实现按钮触发与数据加载 #

按Alt+F11打开VBA编辑器，插入模块后添加以下代码：

通用函数：获取CSV文件路径 #

Function GetCSVFilePath() As String
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Title = "选择CSV输入文件"
        .Filters.Clear
        .Filters.Add "CSV文件", "*.csv"
        .AllowMultiSelect = False
        If .Show = -1 Then
            GetCSVFilePath = .SelectedItems(1)
        Else
            GetCSVFilePath = ""
        End If
    End With
    Set fd = Nothing
End Function

格式专属数据加载子过程（示例） #

以下是对应格式1的按钮触发代码，其他格式复制后修改PQ名称即可：

Sub LoadFormat1Data()
    Dim filePath As String
    Dim targetQuery As WorkbookQuery
    Dim workingWs As Worksheet
    
    ' 获取选中文件路径，无选择则退出
    filePath = GetCSVFilePath()
    If filePath = "" Then Exit Sub
    
    ' 指向对应格式的PQ
    Set targetQuery = ThisWorkbook.Queries("Query_Format1") ' 替换为你的PQ名称
    
    ' 更新PQ的文件路径参数
    targetQuery.Formula = Replace(targetQuery.Formula, "SourceFilePath=""", "SourceFilePath=""" & filePath & """")
    
    ' 刷新PQ并加载到Working表
    Set workingWs = ThisWorkbook.Worksheets("Working")
    workingWs.Cells.Clear ' 清空旧数据
    
    With targetQuery.ListObject.QueryTable
        .Destination = workingWs.Range("A1")
        .Refresh BackgroundQuery:=False ' 等待刷新完成
        .ListObject.Unlist ' 转为普通单元格，保留纯数据（可选）
    End With
    
    ' 强制刷新所有图表
    ThisWorkbook.RefreshAll
End Sub

3. 绑定按钮到VBA过程 #

回到Excel界面，在Input工作表插入形状（如矩形），设置按钮文字（例如「导入格式1数据」），右键点击形状>「指定宏」，选择对应格式的加载子过程即可，其他格式按钮重复此操作。

4. 图表自动更新保障 #

在Working表创建图表时直接选择数据区域，每次数据被覆盖后Excel会自动识别新数据范围更新图表；若需更稳定的动态数据源，可通过定义名称（用OFFSET函数）绑定图表数据。

关键注意事项 #

• 所有PQ的最终输出列结构必须完全一致，否则会出现数据加载错位问题。
• 确保PQ参数替换逻辑准确，避免路径字符串转义错误。
• 刷新PQ时设置BackgroundQuery:=False，确保数据加载完成后再执行后续操作。

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