当前位置: 代码迷 >> Office >> Excel这段VBA代码,哪里有错,请问
  详细解决方案

Excel这段VBA代码,哪里有错,请问

热度:476   发布时间:2016-05-05 05:38:05.0
Excel这段VBA代码,哪里有错,请教!
本帖最后由 smallsmallbird_cb 于 2012-07-31 21:23:46 编辑
一个朋友,写了一段代码,如下:
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
  相关解决方案