主题：请教下，有关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万多行，列数还是不和实际相符，请指教，如何获得实际行数及列数？

我也不知道

估计是你的EXCEL表中的格式问题，比如，你的表中的单元格的格式中的列的格式是所有列，或是大于实际列，那当然与实际列数不同了。我想你可能是点了全选的按钮进行格式操作的，不然怎么会有六万多行呢
要不，就上传你的EXCEL文件看看？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:book1.rar

行数及列数应跟格式是无关的，只是包含内容的行与列才对

除非贺老师增加结束行、结束列标记的方法！

这个问题一直存在，估计暂时无法找出很好的解决办法。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:book1.rar

试试这个

这个是可以的，不知何原因？有的可以有的不可以。谢杨版

还是格式的问题，你原来的文件的第一列做过列宽的设置，是选择全列的，所以表的第一列的所有行的格式都变了，我改了列宽后，就没问题了