per VB letzte befüllte zeile in excel auslesen

[-cta-]

hallo!

ich möchte per vb6.0 die erste zelle der letzten, befüllten zeile einer excel-datei auslesen...

wie mache ich das?

[Diablo999]

So in etwa:

  Dim oXLS As Excel.Application

  Dim oWB As Workbook

  Dim oWS As Worksheet

  Dim nLastRow As Long

  Dim szText As String


  Set oXLS = New Excel.Application


  ' Die beiden auf false setzen wenn du nicht mehr debuggst, dann kann

  ' der benutzer nicht mehr das Excel beeinflussen

  oXLS.Visible = True

  oXLS.Interactive = True


  ' Die Datei öffnen...

  Set oWB = oXLS.Workbooks.Open("i:\1.xls")

  Set oWS = oWB.Worksheets(1)


  ' letzte Beschriebene Zeiele ermitteln

  nLastRow = oWS.UsedRange.Rows(oWS.UsedRange.Rows.Count)


  ' Den Inhalt auslesen

  szText = oWS.Cells(nLastRow, 1).Value


  ' Excel wieder schön beenden

  oXLS.Quit

  Set oXLS = Nothing

Alles klar?

Gruß

Diablo999