- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教下，有关Excel中的行数及列数问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5521)
-- 发布时间：2009/12/16 8:49:00
-- 请教下，有关Excel中的行数及列数问题？
Dim dlg As New OpenFileDialog
dim f1,c1,r1 as string
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
f1 = dlg.FileName
If f1<> " " then
Dim Book As New XLS.Book(f1)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
r1 = Sheet.Rows.Count
c1 = Sheet.Cols.Count
messagebox.show(r1)
messagebox.show(c1)
end if
end if
得到的r1与实际行数（47行）不相符，显示为6万多行，列数还是不和实际相符，请指教，如何获得实际行数及列数？
-- 发布时间：2009/12/16 9:48:00
--
我也不知道
-- 发布时间：2009/12/16 10:37:00
--
估计是你的EXCEL表中的格式问题，比如，你的表中的单元格的格式中的列的格式是所有列，或是大于实际列，那当然与实际列数不同了。我想你可能是点了全选的按钮进行格式操作的，不然怎么会有六万多行呢
要不，就上传你的EXCEL文件看看？
[此贴子已经被作者于2009-12-16 10:38:00编辑过]
-- 发布时间：2009/12/17 8:38:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:book1.rar |
-- 发布时间：2009/12/17 8:45:00
--
行数及列数应跟格式是无关的，只是包含内容的行与列才对
-- 发布时间：2009/12/17 9:16:00
--
除非贺老师增加结束行、结束列标记的方法！
-- 发布时间：2009/12/17 9:32:00
--
这个问题一直存在，估计暂时无法找出很好的解决办法。
-- 发布时间：2009/12/17 10:59:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:book1.rar |
试试这个
-- 发布时间：2009/12/17 15:51:00
--
这个是可以的，不知何原因？有的可以有的不可以。谢杨版
-- 发布时间：2009/12/17 16:12:00
--
以下是引用baoxyang在2009-12-17 15:51:00的发言：
这个是可以的，不知何原因？有的可以有的不可以。谢杨版
还是格式的问题，你原来的文件的第一列做过列宽的设置，是选择全列的，所以表的第一列的所有行的格式都变了，我改了列宽后，就没问题了