[求助] 如何返回excel表的列名，并且排除列名为空的列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

做了一个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

此处需要排除列名为空的列

主题：[求助] 如何返回excel表的列名，并且排除列名为空的列