Excel - die Zeilennummer abfragen

eg-sat

Hallo zusammen,

ich möchte aus einer Excel Tabelle auslesen wie viele Zeilen beschrieben wurden.
Ein Python Script schreibt Daten aus einem Scanner in die Tabelle und ich brauche dann die Anzahl der Zeilen.

Wahrscheinlich kann ich das über UDF irgendwie rauskriegen, aber ich schaffe es nicht.

Das Ganze lief auch schon, wurde aber auf dem alten Rechner mit ;$artikel_anz = _ExcelReadSheetToArray($oExcel) gemacht.

Danke für Hilfe,

eg-sat

Code

_push_listview("Öffne Ecxel Fenster")
		 Local $oExcel = _Excel_Open()
		 Local $workbook = @ScriptDir & "\Mappe1.xlsx"
		 Local $artikel_anz = _Excel_BookOpen($oExcel, $workbook, Default, Default, True)




		 ;Warte auf ecxel Fenster
		 _push_listview("Warte auf Excel Fenster")
		 WinActivate("Mappe1 - Excel")
		 WinWaitActive("Mappe1")
		 _push_listview("Ecxel Fenster geöffnet und aktiv")


		 ; Ecxel fertig also starte Pyton Import
		 _push_listview("Starte Import-Script (Python)")
		 ShellExecute("Barcode_V2.py", "", @ScriptDir, "open")
		 _push_listview("Script gestartet - 8 Sek. Pause")
		 Sleep(8000)


		 ;Lese Daten in 2D Array
		 _push_listview("Lese Artikelnummern ein")
		 $artikel_anz = _ExcelRangeRead($oExcel)
         _push_listview ($artikel_anz)




		 Sleep(500)

Alles anzeigen

**water**

Geh mal in das Wiki. Hier wird die Frage beantwortet: https://www.autoitscript.com/wiki/Excel_Range

eg-sat

Danke, habe es mit dem und anderen Posts hinbekommen.
(oder auch nicht, es kommt zumindest mal kein Fehler mehr).

So:

Local $iLastUsedRow = $oWorkbook.ActiveSheet.UsedRange.Rows.Count

Ich nehme an, dass in der iLastUsedRow nun die Zahl der letzten Zeile steht.
Jetzt möchte ich mit einer For -next schleife bis dahin zählen.
Kommt aber immer :Subscript used on non-accessible variable
Muss ich die $iLastUsedRow dazu umwandlen ? Ich dachte es wäre schon eine Zahl. ?

**water**

.UsedRange.Rows.Count gibt Dir nur die ANZAHL der Zeilen im benutzten Bereich an.
Beispiel:
Benutzer Bereich von A3:D7 gibt Dir den Wert 5 zurück. Wie man das Problem umgeht, siehe im Wiki (Link dazu in meinem vorigen Post).

eg-sat

Habe es auch schon so probiert:

Local $oRange = $oWorkbook.ActiveSheet.UsedRange.SpecialCells($xlCellTypeLastCell)

Local $artikel_anz = StringTrimLeft($oRange, 1)

und dann

For $i = 1 To $artikel_anz[0][0]

Krieg aber immer die: Subscript used on non-accessible variable

**water**

Die von Dir angegebene Zeile

Code

Local $oRange = $oWorkbook.ActiveSheet.UsedRange.SpecialCells($xlCellTypeLastCell)

gibt Dir ein Range Objekt zurück. Wenn Du die Adresse dieser Zelle willst, dann musst Du noch ".Address" hinten anhängen.

Ich denke aber, Du solltest Dich mehr mit Excel und dem Objektmodell beschäftigen. Derzeit sieht es doch sehr nach Trial & Error aus. Ein gutes Buch hilft da sicher

eg-sat

Hehe, ja, oder jemand fragen der sich damit auskennt.
Kann man dich buchen?

**water**

Nicht wirklich.
Außer Du bist 1,80m, schlank, sportlich, weiblich, gutaussehend und nennst eine Whisky Destillerie Dein Eigen

eg-sat

Nö, nicht wirklich.

Also frag ich hier mal, gibts jemand der das gegen Bezahlung umbauen kann ?
Ich bin zu doof

**water**

Sieh und lerne

Code

#include <Excel.au3>


Global $oExcel = _Excel_Open()
Global $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\test.xlsx")
Global $iLastRow = $oWorkbook.ActiveSheet.UsedRange.SpecialCells($xlCellTypeLastCell).Row
MsgBox(0, "Ergebnis", "Letzte benutze Zeile: " & $iLastRow)