VBA宏插入Power Query出现命名冲突、Range选择失败错误咨询

错误根因 #

• 新增的冲突处理代码中使用了wb.Sheets("Sheet1").Range("Sheet1[#All]").Select语句，[#All]是Excel结构化表的专用引用语法，只有表名为Sheet1时才有效，而你创建的表名为Table1，该引用无效导致Power Query的数据源指向错误，触发「Source未识别」报错。
• 后续修改为wb.Sheets("Sheet1").Range("Table1[#All]").Select后报错，是因为VBA不允许选中非活动工作表的区域，且Select属于冗余操作，本身极易引发上下文错误。
• 你粘贴的Power Query M代码为截断状态，缺少结尾的in子句闭合语法，也会导致查询创建失败。

修复代码 #

前置冲突清理逻辑 #

替换你之前新增的错误冲突处理代码，放在所有逻辑最前面：

Dim ws As Worksheet
Dim lo As ListObject
' 清理已存在的同名查询
On Error Resume Next
ActiveWorkbook.Queries("Table1").Delete
On Error GoTo 0
' 绑定数据源工作表，清理旧的同名结构化表
Set ws = ThisWorkbook.Worksheets("Sheet1")
For Each lo In ws.ListObjects
    If lo.Name = "Table1" Then lo.Delete
Next lo

替换原创建表+查询的冗余代码 #

去掉所有Select相关语句，直接操作对象：

' 直接在指定区域创建结构化表
Set lo = ws.ListObjects.Add(xlSrcRange, ws.Range("$A$1:$EJ$500"), , xlYes)
lo.Name = "Table1"

' 补全后的Power Query M公式，注意保留你原有列配置，最后补充in闭合逻辑
Dim mFormula As String
mFormula = "let" & vbCrLf & _
"    Source = Excel.CurrentWorkbook(){[Name=""Table1""]}[Content]," & vbCrLf & _
' 此处粘贴你原有的列类型转换、空值替换逻辑
"    #""Changed Type"" = Table.TransformColumnTypes(Source,{你原有的所有列配置})," & vbCrLf & _
"    #""Replaced Value"" = Table.ReplaceValue(#""Changed Type"",null,"""",Replacer.ReplaceValue,{你原有的所有列名})" & vbCrLf & _
' 必须补充in子句闭合M代码
"in" & vbCrLf & _
"    #""Replaced Value"""

' 创建新查询
ActiveWorkbook.Queries.Add Name:="Table1", Formula:=mFormula

调整查询加载逻辑 #

' 新建工作表加载查询结果
Dim newWs As Worksheet
Set newWs = ActiveWorkbook.Worksheets.Add
With newWs.ListObjects.Add(SourceType:=0, Source:= _
    "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Table1"";Extended Properties=""""" _
    , Destination:=newWs.Range("$A$1")).QueryTable
    .CommandType = xlCmdSql
    .CommandText = Array("SELECT * FROM [Table1]")
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    .ListObject.DisplayName = "Table1__2"
    .Refresh BackgroundQuery:=False
End With

注意事项 #

• 必须补全M代码的闭合逻辑，截断的M代码会直接触发Power Query语法错误
• 尽量直接绑定工作表、表对象，避免使用ActiveSheet、Select等依赖上下文的操作，减少运行异常概率

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