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!