Letzte Zeile aus Excel 2007 mit Access VBA auslesen

[Muhtar99]

Ich möchte aus einer TAbelle in Excel die anzahl (max. Zeile) auslesen

dim ws as object
.
.
.

ws.Sheets(1).Cells(ws.Sheets(1).Rows.Count, 1).End(xlUp).Row

funkt nicht

wie kann ich es schnell auslesen( Excel und Access version 2007)


Besten Dank im Voraus

[DF6GL]

Hallo,

und was soll man bei diesem Codefragment denn sagen können?

WAS "funkt" nicht??


Was bedeutet "schnell" ?

[Muhtar99]

Hallo,


dies der code unter access


Option Compare Database
Dim ws As Object
Dim xlWB As Object
Dim anzahl As Long


Sub exportexcel()
    Set ws = CreateObject("Excel.Application")
    Set xlWB = ws.workbooks.Open("U:\Eigene Dateien\Aufgabengebiete\Provisionenkommunikation\201001 Provisionenkommunikation FH Januar_v3.xlsx", , , , "")
    ws.worksheets(1).Activate

    Debug.Print ws.Sheets(1).Cells(ws.Sheets(1).Rows.Count, 1).End(xlUp).Row
   
   


bei dubug.print kommt laufzeitfehler 1004 (Anwendungs- oder objektdefinierter Fehler



Also ich kann in Excel die Anzahl der Zeile (in Spalte A ) nicht ermitteln.


Schnell bedeutet, so schnell wie möglich 


Danke im Voraus

[DF6GL]

Hallo,


ersetz mal ws durch xlWB bei debug.print