以文本方式查看主题

-  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=129606)
--  作者：hzcaqjf
--  发布时间：2019/1/2 16:04:00
--  [求助]如何获取excel表中某列最后非空单元格的值?
比喻如何获取sheet表中第2列最后有内容一行的值?
相当于vba中Sheets(1).[b65536].End(xlUp).Row的值.

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim Book As New XLS.Book(dlg.FileName)
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)  
   ?????
end if 
--  作者：有点甜
--  发布时间：2019/1/2 16:23:00
--  

比如

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim r = ws.cells(65536,2).End(MsExcel.XlDirection.xlUp).Row
msgbox(r)

App.quit