vb读取excel数据去掉空行解决办法

2012-02-25

vb读取excel数据去掉空行各位大哥大姐们，我遇到一个小麻烦，在网上找了很久也没有个确切的答案，就想问问大

vb读取excel数据去掉空行
各位大哥大姐们，我遇到一个小麻烦，在网上找了很久也没有个确切的答案，就想问问大家，我用adodb链接excel，读取出excel的数据放在dataset里，把dataset的值直接绑定到窗体上的dataGrid了，但是execel上面有数据，下面有很多空的行，一起读到了dataGrid上了，我想问，怎么把这些空行在程序里去掉？

[解决办法]
select * from [sheet1$] where 第一个字段不<>""

[解决办法]
很多空行是不是你敲过回车的?

[解决办法]
excel中无标题列（即全部为数据时）如下，如有标题列，标题列名称<>NULL
dataset应该是vb.net的东西，不过出库方法是一样的。

VB code

Private Sub Command1_Click()    Dim cn As New ADODB.Connection    Dim rs As New ADODB.Recordset    cn.CursorLocation = adUseClient    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\1\123.xls;Extended Properties='Excel 8.0;HDR=no;IMEX=1'"    Set rs = cn.Execute("Select * From [Sheet1$] where f1<>NULL")    Set DataGrid1.DataSource = rs  End Sub
[解决办法]
得到rs后，遍历轻空空格，再附给datagrid
[解决办法]
用这个 xlExcel.ActiveSheet.UsedRange.Rows.Count 确定EXCEL表格中数据的行数。
[解决办法]
帮忙顶一下喽

热点排行