如何通过VBA传递Power Query M代码？现有替换方案遇困

一、更简便的实现方式 #

• 用Chr(34)处理双引号：不用手动替换M代码里的双引号，直接在VBA字符串里用Chr(34)代替单个双引号。比如M代码中的"SalesData"，在VBA里写成Chr(34) & "SalesData" & Chr(34)；如果是短代码，也可以直接把M代码里的"改成""（VBA字符串中双引号用两个表示）。
• 借助Excel公式批量转义双引号：把M代码复制到Excel单元格，用公式=SUBSTITUTE(A1,"""","""""")把所有双引号替换成两个，再把结果复制到VBA的mFormula中，避免手动替换出错。
• 读取外部文本文件的M代码：把M代码单独存成.txt文件，用VBA直接读取文件内容作为mFormula，完全不用处理特殊字符，适合长代码场景。示例代码：

Dim mFormula As String
' 读取文本文件内容
Open "C:\Temp\MyMCode.txt" For Input As #1
mFormula = Input$(LOF(1), 1)
Close #1

' 添加查询
Set query1 = ActiveWorkbook.Queries.Add(Replace(tabName, "-", "") & tableCode, mFormula)

二、排查问题的最佳方法 #

• 先验证M代码本身的正确性：把mFormula的内容复制到Power Query编辑器中直接运行，确认M代码没有语法或逻辑错误，排除代码本身的问题。
• 输出mFormula到单元格检查：在VBA中添加Range("A1").Value = mFormula，把生成的字符串输出到Excel单元格，和原始M代码逐行对比，看是否有特殊字符被错误替换（比如#、{}、[]不需要替换，只有双引号需要处理）。
• 捕获VBA错误信息：添加错误捕获代码，明确报错原因，示例：

On Error Resume Next
Set query1 = ActiveWorkbook.Queries.Add(Replace(tabName, "-", "") & tableCode, mFormula)
If Err.Number <> 0 Then
    MsgBox "错误：" & Err.Description & vbCrLf & "错误代码：" & Err.Number
    Exit Sub
End If
On Error GoTo 0

• 分步调试VBA：在VBA编辑器中设置断点，运行时查看mFormula的实际值，重点检查引号、换行符等容易出错的位置，确认字符串拼接是否正确。

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