ich habe da einen sehr seltsamen Effekt:
Code: Alles auswählen
nCurRow := 2
lDoShift := .F.
xValue := oSheet:Cells(nCurRow, 1):Value
WHILE xValue <> NIL .AND. nCurRow <= nMaxRows
oProgressDia:NewLine("Zeile " + LTrim(Str(nCurRow)) + " von " + LTrim(Str(nMaxRows)))
WriteLineIntegra(oSheet, nCurRow, lDoShift)
nCurRow ++
xValue := oSheet:Cells(nCurRow, 1):value
END
Lasse ich das Programm im Debugger laufen, wird die Datei komplett gelesen und verarbeitet.
Lasse ich das Programm ohne Debugger laufen, hängt das Programm bei der 28. Zeilen und reagiert nicht mehr.
Die Excel-Datei wird durch einen Export aus einem DWH erzeugt und lässt sich in MS Office 2010 ohne Probleme oder Fehlerhinweise laden.
Nun brauche ich eine gute Idee ...