CSV Datei in Excel importieren

[DelphiManiac]

Hallo, danke,

probiere das gleich mal,

habe nur irgendwie das Problem, dass das zeilenweise Einfügen der Werte in die Excelvorlage bei einem
Sheet (~65500 DS) mehr als 30 sec dauert,

das mal 5 würde dann insgesamt fast 4 min daueren, deswegen such ich einen weg die CSV Dateien zu importieren,
anstatt sie zeilenweise einzufügen, so wie es bisher mache:

Delphi-Quellcode:

rocedure WriteDataToExcel(Vorlage:String;Filename:string);
var Excel: Variant;
  I: Integer;
begin
  try
    // Ole Objekt erstellen und öffnen
    Excel:=CreateOleObject('Excel.Application');
    // Excel Fenster sichtbar machen
    Excel.Visible:=true;
  //  Excel.SaveData := False;
    // Neue Arbeitsmappe erstellen
    Excel.Workbooks.Open(Vorlage);
    // In Zelle A1 schreiben
//    Excel.Cells[1,1].Value:='!!!!!!!!!!!!!!!!!!!!!!!!!!!!';
    try
//      Excel.activesheet.name := 'Datalogging1';
      for I := 0 to 65531 do
      begin
        Excel.Cells[i+3,1].Value:=IntToStr(i);
        Application.ProcessMessages;
      end;

      // Testen ob das Excelsheet 'Übergabedaten' vorhanden ist
//      Excel.Sheets('Übergabedaten').Select;

    except
//      Exception.Create('<Tabelle Übergabgedaten existiert nicht>');
    end;
    Excel.DisplayAlerts:=false;
  finally
    Excel.Quit;
  end;
end;

...
Vielen Dank!