请求高手解答，十万火急

byz2012

     。。。。。。。。。前面创建连接数据源省略
  sql = "select * from [汇总表$]"
     Set Rs = New ADODB.Recordset
     Rs.Open sql, Cnn, adOpenKeyset, adLockBatchOptimistic    运行到这里提示创建了过多字段
问题是这样的，我有好多excel表格要处理，有些表格有效列数不多，但是后面插入了大量空列(手动删除空列工作量太大)，导致该问题的出现
每个表格的有效列数不尽相同，没有办法写一条查询语句，能读取不同列数的表格到记录集,请大家指教，不胜感激!!!!!!!

忘得快

呵呵，要上传附件请高手帮忙。

hehex

Select 支持选取范围的
比如 sql = "select * from [汇总表$A3:T100]
那么就是读取你A3 到T100 区域内的数值了。
你要知道非空列的最终列号很简单
假设读取当前表以excel 2003 为例
假设你要读取的数据表的表头在第3行，那么有效列数为
cells(3,256).end(xltoleft).column
假设以第一列来读取有效行数 range("a65536").end(xlup).row
那么你的读取有效数据区域就应该是 Range("a3",cells(range("a65536").end(xlup).row,cells(3,256).end(xltoleft).column))
因为sql 里是用select * from [shtname$A3:xx] 这种方式使用的。
还是很简单把你得到的右下单元格对象的地址返回来就是：Cells(range("a65536").end(xlup).row,cells(3,256).end(xltoleft).column).Address(0,0) 返回相对引用地址，其实绝对引用也是一样的。
把上面得到的地址赋进一个字符串变量里面比如说是s 吧
你的sql 语句改为：
sql= "Select * from [汇总表$A3:" & s & "]"
就是读取该表的有效字段区域了。楼主的程度应该比较不差，所以我写的代码比较粗略和复杂，希望楼主能够理解我的意思, 就不写一个demo 了。

忘得快

hehex 发表于 2013-1-15 20:06
Select 支持选取范围的
比如 sql = "select * from [汇总表$A3:T100]
那么就是读取你A3 到T100 区域内的数 ...

呵呵，学习了