Excel导入多CSV文件宏报错1004：路径需为有效绝对路径

我之前也踩过这个坑——宏录制的代码用硬编码路径跑得好好的，换成变量就卡在.Refresh BackgroundQuery:=False这行报错。本质是Power Query的M语言字符串转义规则，和VBA变量传递到M公式的衔接出了问题，给你两个实用的解决方案：

方案1：动态构建完整的Power Query M公式 #

这种方法最稳妥，直接跳过录制宏里的硬编码逻辑，用VBA动态生成包含变量路径的M代码：

Sub ImportCsvWithDynamicPath()
    Dim csvPath As String
    Dim mFormula As String
    
    ' 替换成你的动态路径（也可以从单元格读取：csvPath = Range("A1").Value）
    csvPath = "C:\Documents and Settings\Parents\Downloads\DBO.csv"
    
    ' 构建M公式：注意VBA里用""代表M语言里的单个"
    mFormula = "let " & _
        "Source = Csv.Document(File.Contents(""" & csvPath & """),[Delimiter="","", Encoding=1252, QuoteStyle=QuoteStyle.Csv]), " & _
        "'Promoted Headers' = Table.PromoteHeaders(Source, [PromoteAllScalars=true]), " & _
        "'Changed Type' = Table.TransformColumnTypes('Promoted Headers',{{""ID"", Int64.Type}, {""Name"", type text}, {""Date"", type date}}) " & _
        "in 'Changed Type'"
    
    ' 清理同名旧查询（避免冲突）
    On Error Resume Next
    ActiveWorkbook.Queries("Dynamic_CSV_Import").Delete
    On Error GoTo 0
    
    ' 添加新查询并加载到工作表
    ActiveWorkbook.Queries.Add Name:="Dynamic_CSV_Import", Formula:=mFormula
    
    With ActiveSheet.QueryTables.Add(Connection:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Dynamic_CSV_Import;Extended Properties=""""" _
        , Destination:=Range("$A$1"))
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [Dynamic_CSV_Import]")
        .Name = "Dynamic_CSV_Import"
        .Refresh BackgroundQuery:=False
    End With
End Sub

关键注意点： #

• 双引号转义：VBA中要生成M语言的字符串，必须用""代替单个"，所以File.Contents(""" & csvPath & """)最终会被解析为M语言的File.Contents("你的实际路径")。
• 匹配原始步骤：把'Promoted Headers'和'Changed Type'部分替换成你录制宏里的实际步骤，保证数据处理逻辑和之前一致。

方案2：修改现有查询的路径（适合已有录制好的查询） #

如果你已经有录制好的Power Query查询，只想替换路径，可以直接修改查询的Formula属性：

Sub UpdateExistingQueryPath()
    Dim csvPath As String
    Dim targetQuery As WorkbookQuery
    
    csvPath = "C:\New\Path\To\Your\File.csv"
    Set targetQuery = ActiveWorkbook.Queries("DBO") ' 替换成你的查询名称
    
    ' 精准替换原公式中的硬编码路径
    targetQuery.Formula = Replace(targetQuery.Formula, _
        "File.Contents(""C:\Documents and Settings\Parents\Downloads\DBO.csv"")", _
        "File.Contents(""" & csvPath & """)")
    
    ' 刷新查询
    ActiveSheet.QueryTables("DBO").Refresh BackgroundQuery:=False
End Sub

常见错误原因： #

1. 未转义双引号：直接写File.Contents(csvPath)会被M语言当成变量，而非字符串；写File.Contents("csvPath")则会把"csvPath"当成字面路径。
2. 修改了错误的代码段：录制宏里的Connection字符串只是指向Power Query查询的引用，真正的路径藏在查询的Formula里，修改Connection没用。
3. 路径含特殊字符：只要用双引号包裹路径（转义后），空格、中文等特殊字符都能被正确解析。

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