Daten Export nach Excel mit mehr als 66.000 Datensätzen

[Andidreas]

lol ok, ich glaub ich hab meinen fehler ^^ bzw. ich hoffe !!!!

Delphi-Quellcode:

For i := 1 To 7 Do 
    Begin 
      iCell := i; 
      If (iRow < 65501) Then                                                          
      Begin                                                                          
        If i = 1 Then oleExcelSheets1.Cells[iRow, iCell].Value := Copy(sRow, 1, 2);  
        If i = 2 Then oleExcelSheets1.Cells[iRow, iCell].Value := Copy(sRow, 3, 9);  
        If i = 3 Then oleExcelSheets1.Cells[iRow, iCell].Value := Copy(sRow, 12, 9); 
        If i = 4 Then oleExcelSheets1.Cells[iRow, iCell].Value := Copy(sRow, 21, 4); 
        If i = 5 Then oleExcelSheets1.Cells[iRow, iCell].Value := Copy(sRow, 25, 4); 
        If i = 6 Then oleExcelSheets1.Cells[iRow, iCell].Value := Copy(sRow, 29, 4); 
        If i = 7 Then oleExcelSheets1.Cells[iRow, iCell].Value := Copy(sRow, 33, 3); 
      End                                                                            
      Else If (iRow >= 65501) Then                                                    
      Begin                                                                          
        If i = 1 Then oleExcelSheets2.Cells[iRow, iCell].Value := Copy(sRow, 1, 2);  
        If i = 2 Then oleExcelSheets2.Cells[iRow, iCell].Value := Copy(sRow, 3, 9);  
        If i = 3 Then oleExcelSheets2.Cells[iRow, iCell].Value := Copy(sRow, 12, 9); 
        If i = 4 Then oleExcelSheets2.Cells[iRow, iCell].Value := Copy(sRow, 21, 4); 
        If i = 5 Then oleExcelSheets2.Cells[iRow, iCell].Value := Copy(sRow, 25, 4); 
        If i = 6 Then oleExcelSheets2.Cells[iRow, iCell].Value := Copy(sRow, 29, 4); 
        If i = 7 Then oleExcelSheets2.Cells[iRow, iCell].Value := Copy(sRow, 33, 3); 
      End;                                                                            

    End;                                                                              

      iRow := iRow + 1; 

      //Set Progress in Pregress Bar 
      If iRow = iCount Then 
      Begin 
        ProgBar2.Position := Round((100 * iRow) / iAnzRec); 
        iCount := iCount + 100; 
      End; 

  End;

und zwar genau in der for schleife ^^
ich frag ja ab ob iRow >= 65501 ist wenn ja soll er im 2. tabellenblatt weitermachen...
aber ich verwende für das 2. tabellenblatt auch wieder iRow als zeilenzähler und prompt kriegt er die obengenannte fehlermeldung...
ich hab jetzt nen 2. zähler eingebaut, und normal sollte es jetzt dann glaub gehn
so siehts jetzt nämlich aus:

Delphi-Quellcode:

For i := 1 To 7 Do 
    Begin 
      iCell := i; 
      If (iRow < 65501) Then                                                          
      Begin                                                                          
        If i = 1 Then oleExcelSheets1.Cells[iRow, iCell].Value := Copy(sRow, 1, 2);  
        If i = 2 Then oleExcelSheets1.Cells[iRow, iCell].Value := Copy(sRow, 3, 9);  
        If i = 3 Then oleExcelSheets1.Cells[iRow, iCell].Value := Copy(sRow, 12, 9); 
        If i = 4 Then oleExcelSheets1.Cells[iRow, iCell].Value := Copy(sRow, 21, 4); 
        If i = 5 Then oleExcelSheets1.Cells[iRow, iCell].Value := Copy(sRow, 25, 4); 
        If i = 6 Then oleExcelSheets1.Cells[iRow, iCell].Value := Copy(sRow, 29, 4); 
        If i = 7 Then oleExcelSheets1.Cells[iRow, iCell].Value := Copy(sRow, 33, 3); 
      End                                                                            
      Else If (iRow >= 65501) Then                                                    
      Begin                                                                 
        If i = 1 Then oleExcelSheets2.Cells[iRow2, iCell].Value := Copy(sRow, 1, 2);  
        If i = 2 Then oleExcelSheets2.Cells[iRow2, iCell].Value := Copy(sRow, 3, 9);  
        If i = 3 Then oleExcelSheets2.Cells[iRow2, iCell].Value := Copy(sRow, 12, 9); 
        If i = 4 Then oleExcelSheets2.Cells[iRow2, iCell].Value := Copy(sRow, 21, 4); 
        If i = 5 Then oleExcelSheets2.Cells[iRow2, iCell].Value := Copy(sRow, 25, 4); 
        If i = 6 Then oleExcelSheets2.Cells[iRow2, iCell].Value := Copy(sRow, 29, 4); 
        If i = 7 Then oleExcelSheets2.Cells[iRow2, iCell].Value := Copy(sRow, 33, 3); 
        iRow2 := iRow2 + 1;      
      End;                                                                            

    End;                                                                              

      iRow := iRow + 1; 

      //Set Progress in Pregress Bar 
      If iRow = iCount Then 
      Begin 
        ProgBar2.Position := Round((100 * iRow) / iAnzRec); 
        iCount := iCount + 100; 
      End; 

  End;

edit: das erhöhen von iRow2 natürlich ausserhalb der if abfrage... sonst siehts komisch aus