| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助] 如何返回excel表的列名，并且排除列名为空的列 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=48007) |
| -- 作者：bahamute -- 发布时间：2014/3/21 9:57:00 -- [求助] 如何返回excel表的列名，并且排除列名为空的列 做了一个excel导入窗口，如果保持excel表与数据库表格式完全一样，导入没有问题，但在实际使用时，有时格式看起来一直，导入也经常报错，提示index超出范围，用messagebox一弹，发现提示excel表列数为255，行数为18000多行，也就是说整个表横到边竖到底都被认为有数据，但实际只有19列数据，最多1000行，这种情况怎么处理？ 如何返回excel表列名，并且排除列名为空的列
代码如下（借鉴了论坛狐友的代码）， Dim r As Row Dim Book As New
XLS.Book(e.Form.Controls("TextBox11").value) Dim Sheet As XLS.Sheet =
Book.Sheets(e.sender.value) For i = 0 To Sheet.Cols.count – 1 r = t.AddNew() r（"名称"）= Sheet(0,i).Value 此处需要排除列名为空的列
Next |
| -- 作者：Bin -- 发布时间：2014/3/21 10:11:00 -- 说明表格有问题 1.手动清楚排名为空的列行. 2.代码清除. 3.直接用代码导入,判断一下如果是空值就不导入了. 4.最好的办法,从源头解决问题,这个Excel文件为何不正常,是人为,还是导出文件的这个程序有问题?
|