如何判断EXCEL有几行数据?? 用ADO或DAO,将数据源设置为该EXCEL的某张表,然后检索出recordset.recordcount的值就知道EXCEL中有几行了。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 那是不可以的,你会发现recordset.recordcount的值是-1,我也在做这个东东。只能用 Do ' Get the next value. new_value = Trim$(excel_sheet.Cells(row, 1)) ' See if it's blank. If Len(new_value) = 0 Then Exit Do Loop 为什么要循环?你可以用SQL语句直接导入的呀? recordset.recordcount的值是-1是因為你的recordset的參數不對,這樣rstXls.open "select .....",cnnXls,adopenstatic,adlockreadonly就可以用recordset.recordcount了sula_azoth(力力昂) 的方法不好,因為如果Excel表中有空數據就會出錯,而ado可以自動檢查,建議使用ado 去下载微软的官方例子:http://support.microsoft.com/default.aspx?scid=KB;en-us;q278973 就是,同意 sindyzhou(比較菜) ,正确的读,是可以知道记录总数的。 转移积分! 不让VB程序报错,用MSGBOX来代替! 做了一个外贸行业的订单表43个字段,各位会不会觉得太过分了。。(希望有经验的人士进来指点一下) 请教:关于在邮件收发工具启动时先进行邮件检索的技术 一个新手问题 这是一个图片移动的效果!看看有没有更简单的办法 vb中时间控件的问题 基础求教 如何设置datagrid的标题行文字为居中。 无影石,我再送你300分! 学习VB关键学什么 敬请赐教------------------------------------------------------- 关于 On Error Resume Next 如何使用 ?
Do
' Get the next value.
new_value = Trim$(excel_sheet.Cells(row, 1)) ' See if it's blank.
If Len(new_value) = 0 Then Exit Do
Loop
你可以用SQL语句直接导入的呀?
這樣
rstXls.open "select .....",cnnXls,adopenstatic,adlockreadonly
就可以用recordset.recordcount了sula_azoth(力力昂) 的方法不好,因為如果Excel表中有空數據就會出錯,而ado可以自動檢查,建議使用ado
http://support.microsoft.com/default.aspx?scid=KB;en-us;q278973