PureBoard

Verfasst: **11.08.2007 10:13**

Hallo,
habe versucht mit Hilfe des PureDisphelpers folgende Funktion zu realisieren.
Ich möchte die Anzahl der Reihen in einer Exeldatei zählen.
Der Exelbefehl lautet:

ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row

Mein Code:

Code: Alles auswählen

Procedure.l ReadCountRow(*obj)
  Protected ReturnValue.l, Resume.l
  dhGetValue("%T", @ReturnValue, *obj, ".ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row") 
  If ReturnValue
    Resume=PeekD(ReturnValue)
    ProcedureReturn Resume
  EndIf
EndProcedure

Der Dishelper gibt die Fehlermeldung aus: Die Methode Count würde nicht unterstützt.

Verfasst: **11.08.2007 10:27**

Code: Alles auswählen

#xlCellTypeLastCell = 11

Procedure.l ReadCountRow(*obj)
  Protected ReturnValue.l
  dhGetValue("%d", @ReturnValue, *obj, "ActiveSheet.Cells.SpecialCells(%d).Row", #xlCellTypeLastCell)
  ProcedureReturn ReturnValue
EndProcedure

Grüße ... Kiffi

Verfasst: **11.08.2007 10:54**

@Kiffi,
erstmal danke, die Procedure funzt super.

habe im Internet nach dieser Konstante gesucht "#xlCellTypeLastCell" und diesen Code für Exel gefunden:

LZ3 = Ws3.Cells.SpecialCells(xlCellTypeLastCell).Row
LS1 = Ws1.Cells.SpecialCells(xlCellTypeLastCell).Column

dementsprechend habe ich diese Procedure nach deinem Code geändert:

Code: Alles auswählen

;ActiveSheet.Cells(6, Columns.Count).End(xlToLeft).Column

Procedure.l ReadCountColumns(*obj)
  Protected ReturnValue.l
  dhGetValue("%d", @ReturnValue, *obj, "ActiveSheet.Cells.SpecialCells(%d).Columns", #xlCellTypeLastCell)
  ProcedureReturn ReturnValue
EndProcedure

Als Rückgabe bekomme ich die Zahl: 39255
Da ich 10 Spalten habe, sollte eigentlich als Zahl "10" zurückgegeben werden.

Verfasst: **11.08.2007 11:03**

Fehler gefunden: Column statt Columns
Wieder einer von diesen häßlichen Schreibfehlern.

PureBoard

Zählen der Reihen in Exel mit PureDisphelper

Zählen der Reihen in Exel mit PureDisphelper

Re: Zählen der Reihen in Exel mit PureDisphelper