各位老师：我是新手
如标题
有一张excel表格在sheet1中 b列有若干数据，采用VBA语法
Sub 表（）
Dim a as string
a=Worksheets("sheet1").Range(“b1048576").End(xlUp).Row
msgbos a
End sub
可以获得b列最后一个非空单元格的行号

问题是，采用vb6.0后，怎样实现？因为“End(xlUp) “在vb6.0中是不认的。
望各位指点，盼复，谢谢。

是不认 .end 这个属性，还是 不认  xlup 这个常量。
如果不认这个常量的话，那么你到 EXCEL 中，输出这个 XLUP 常量看看值就是了。
然后照样填进去就可以了。
-4162

引用microsoft excel xx.x Object Library
(xx.x为版本号)
另外，直接从excel的vba中拷过来的代码可能要略做调整才能用，如workseet不能直接使用

[ 本帖最后由 jiashie 于 2011-6-2 09:18 编辑 ]

已经引用了microsoft excel 14.x Object Library（我装的是excel2010版）。
已经试过vb6.0 不支持end属性，我想知道vb6.0里面有和VBA中End(xlUp)相同（或相近）的用法的吗？

这里不知道表有多少行，暂设为200吧
Private Sub Command1_Click()
dim i as integer
CommonDialog1.Action = 1
Dim oexcel, oworkbooks, newbook, newsheet, s As String
Set oexcel = CreateObject("Excel.application")
Set oworkbooks = oexcel.workbooks
Set newbook = oworkbooks.Open(CommonDialog1.FileName）
Set newsheet = newbook.worksheets(1)
for i=1 to 200
  if newsheet.cells(2, i)="" then  exit sub
  s=newsheet.cells(2, i)
next i
end sub

楼上的思路非常好，但有个问题就是如果表超过200行呢？所以我建议不要用for循环加IF判断，直接用DO循环来判断

对啊，谢谢指导

使用ADO

Public Function Read_Excel _
         (ByVal sFile _
          As String) As Long
      On Error GoTo fix_err
      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim sconn As String

      rs.CursorLocation = adUseClient
      rs.CursorType = adOpenKeyset
      rs.LockType = adLockBatchOptimistic

      sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
      rs.Open "SELECT * FROM [sheet1$]", sconn, 1, 1
     Read_Excel = rs.RecordCount '就是记录数

      Set rs = Nothing
      Exit Function
fix_err:
      Debug.Print Err.Description + " " + _
                  Err.Source, vbCritical, "Import"
      Err.Clear
End Function

用法是 Me.Caption = Read_Excel(App.Path & "\2145.xls")

好像有一个counta的函数，知道一种有多少行数据