一个朋友，写了一段代码，如下：
Sub 查询方法一()
Set CONN = CreateObject("ADODB.Connection")
CONN.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select 村民,乡镇,户数,常驻人口数 from [sheet1$a1:h402] where 类别 = 1"
Sheets("sheet2").[A1].CopyFromRecordset CONN.Execute(Sql)
CONN.Close: Set CONN = Nothing
End Sub
可是运行报错。
他要实现的功能是：
把同一个工作薄中 第一个工作薄 满足条件 类别=1的 放到本工作薄中的第二个工作表中
------解决思路----------------------
代码是没错，没问题，测试也可以得到数据
报错提示是什么
------解决思路----------------------
代码没错，报什么错误呢？
试着把中文加[]试试
------解决思路----------------------
我怀疑你的元数据缺少了一些这样命名的列，或者当前sheet不是正确数据的sheet