求助关于EXCEL VBA SQL查询

fredjia

各位高手，
我上传的附件中包括2个excel文件，名字为“去除重复项2”里面VBA就可以运行，不会出错，但是名字为“去除重复项1”里面VBA代码就会出错，两者之间只是表格里面列的名字不一样，其他都一样，真是很奇怪！！！我是在找不错原因了，跪求高手帮忙解决！！！

看以下代码，每当运行到[A2].CopyFromRecordset conn.Execute(Sql)就出错，

Sub 按钮1_Click()
Application.ScreenUpdating = False
Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ActiveWorkbook.FullName
Range("A2:A1600").ClearContents
Sql = "select inspector from [sheet2$] " & _
      "where inspector <> '' group by inspector order by inspector"
     
[A2].CopyFromRecordset conn.Execute(Sql)---->运行后这个地方显示黄颜色，报错，需要调试

conn.Close
Set cnn = Nothing
Application.ScreenUpdating = True
End Sub

cathylu1983

我晕死！！你的去除重复项1的那个inspector在第二行呀 ，取消隐藏把第一行删除就可以了

fredjia

太谢谢楼上了，我不是很懂SQL，今天又学到了，原来列名称必须在第一行

shuyee

如果使用系统表,是这样的.第1行无值时,使用F1.....F256.是可以使用区域引用的,把区域定义为名称,就支持了,同样标题是首行.