Excel 2010中Power Query关联表生成筛选表VBA报错求助

核心问题分析与修正 #

你提供的代码行存在语法错误与兼容性问题，以下是具体修正方案：

1. 修复语法与引号嵌套问题 #

原代码存在多余数组包裹、引号嵌套错误和无效右括号，直接将CommandText赋值为字符串而非数组，并调整引号逻辑：

' 修正后的代码，用单引号包裹筛选值，同时处理值中的单引号避免报错
tmplo.QueryTable.CommandText = "SELECT * FROM [" & Output_Query & "] WHERE [Filter] = '" & Replace(itm.Name, "'", "''") & "'"

• 去掉Array()包裹：Excel 2010中单行SQL语句无需用数组传递，直接赋值字符串即可
• 替换双引号为单引号：避免VBA与SQL的引号冲突，同时用Replace函数将筛选值中的单引号替换为两个单引号，防止SQL语法错误

2. 确保Power Query数据源名称正确 #

确认Output_Query是Power Query输出表的准确名称（包括空格、特殊字符都要完整匹配），如果表名包含特殊字符，必须用方括号[]包裹，这部分原代码处理正确，但需验证名称是否与Power Query生成的表名完全一致。

3. 补充QueryTable连接兼容性处理 #

Excel 2010中调用Power Query数据源时，需确保连接字符串正确指向工作簿内的Power Query表，完整的QueryTable创建示例：

Dim qt As QueryTable
Dim connStr As String
Dim destSheet As Worksheet

' 创建新工作表
Set destSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
destSheet.Name = itm.Name

' 构建Power Query数据源连接字符串
connStr = "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=" & Output_Query

' 创建QueryTable并执行筛选
Set qt = destSheet.QueryTables.Add(Connection:=connStr, Destination:=destSheet.Range("A1"))
qt.CommandText = "SELECT * FROM [" & Output_Query & "] WHERE [Filter] = '" & Replace(itm.Name, "'", "''") & "'"
qt.Refresh BackgroundQuery:=False
' 可选：设置表样式
qt.ListObject.TableStyle = "TableStyleMedium2"

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