[浏览完整版]
标题：请教下，有关Excel中的行数及列数问题？
1楼
baoxyang 发表于：2009/12/16 8:49:00Dim 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万多行，列数还是不和实际相符，请指教，如何获得实际行数及列数？
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万多行，列数还是不和实际相符，请指教，如何获得实际行数及列数？
2楼
狐狸爸爸 发表于：2009/12/16 9:48:00我也不知道
3楼
yangming 发表于：2009/12/16 10:37:00估计是你的EXCEL表中的格式问题，比如，你的表中的单元格的格式中的列的格式是所有列，或是大于实际列，那当然与实际列数不同了。我想你可能是点了全选的按钮进行格式操作的，不然怎么会有六万多行呢
要不，就上传你的EXCEL文件看看？
要不，就上传你的EXCEL文件看看？
[此贴子已经被作者于2009-12-16 10:38:00编辑过]
4楼
baoxyang 发表于：2009/12/17 8:38:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:book1.rar |
5楼
baoxyang 发表于：2009/12/17 8:45:00行数及列数应跟格式是无关的，只是包含内容的行与列才对
6楼
易狐 发表于：2009/12/17 9:16:00除非贺老师增加结束行、结束列标记的方法！
7楼
reachtone 发表于：2009/12/17 9:32:00这个问题一直存在，估计暂时无法找出很好的解决办法。
8楼
yangming 发表于：2009/12/17 10:59:009楼
baoxyang 发表于：2009/12/17 15:51:00这个是可以的，不知何原因？有的可以有的不可以。谢杨版
10楼
yangming 发表于：2009/12/17 16:12:00以下是引用baoxyang在2009-12-17 15:51:00的发言：
这个是可以的，不知何原因？有的可以有的不可以。谢杨版
还是格式的问题，你原来的文件的第一列做过列宽的设置，是选择全列的，所以表的第一列的所有行的格式都变了，我改了列宽后，就没问题了