Einzelnen Beitrag anzeigen

BigAl

Registriert seit: 6. Sep 2008
Ort: Kehl
495 Beiträge
 
Delphi 12 Athens
 
#1

Excel Automation langsam ohne Internetzugang

  Alt 28. Mär 2023, 10:13
Hallo zusammen,

ich habe folgendes Problem:

Ich starte z.B. Excel mit
Excel := CreateOleObject('Excel.Application') Danach nutze ich das erzeugt Ole Object für diverse Interaktionen. Erzeugen von Worksheets, befüllen von Zellen usw. Alles ist im Prinzip sehr performant. Allerdings nur, solange der Rechner einen guten Internetzugang hat. Bin ich z.B. über langsames WLAN verbunden, dann hängt Excel am Anfang sehr lange ehe es wieder mit der normalen Performance weiter geht.

Interessant dabei ist, dass es solange schnell ist, bis ich zum ersten mal das Aussehen / Format einer Zelle ändere:
Delphi-Quellcode:
  Sheet := Excel.ActiveSheet;
  Sheet.Name := 'PARAMS';

  // General Parameters

  Sheet.Cells[Line, 1] := 'EXPORT PARAMETERS';
  Sheet.Cells[Line, 1].Font.Bold := True; // Hier eine laaaange Pause...
  Sheet.Range[Sheet.Cells[Line, 1], Sheet.Cells[Line, 2]].MergeCells := True;
In obigem Beispiel braucht Excel für die Zeile "Sheet.Cells[Line, 1].Font.Bold := True" extrem lange zur Ausführung (30 Sekunden oder so). Danach geht es mit vollem Tempo weiter, egal was ich mache.

Ich habe schon versucht alle Plugins zu deaktiviere, testweise mal verschiedene "Trusted"-Einstellungen deaktiviert usw.

Habe ich gar kein Internet, dann hängt er an oben genannter Stelle etwa eine Minute ehe es normal weiter geht. Da die Applikation auch offline genutzt wird ist das natürlich nicht gut.

Woran kann das liegen? Hat irgendwer eine Idee wie man den Hänger weg bekommt?
Man sollte nie so viel zu tun haben, dass man zum Nachdenken keine Zeit mehr hat. (G.C. Lichtenberg)
  Mit Zitat antworten Zitat