Excel speichern

[vesila]

Guten Abend DaCoda,

ich habe die Anwendung in einem separaten Projekt getestet und wie zu erwarten,
funtioniert sie.

Die unit tbofficeUtils habe ich dann in meine Anwendung eingebunden und entsprechend zugewiesen var ExcFile: TExcelFile; um auf die Prozeduren zugreifen zu können.

Mit nachfolender Prozedur lese ich die Exceltabelle ein.

Delphi-Quellcode:

procedure TVermkal.DateiOeffnenAccept(Sender: TObject);
 var
      DatSatzname :String;
begin
DatSatzName := DateiOeffnen.Dialog.FileName;
Statbar(DatSatzName);
excel := CreateOleObject('Excel.Application');// Excel ˆffnen
wb := excel.Workbooks.Open(DatSatzName);
excel.visible :=true;
ladeflg:= true;
testpfad :=DatSatzName;
end;

Mit dieser Prozedur will die aktualisierte Datei speichern

Delphi-Quellcode:

procedure TVermkal.SpeichernAccept(Sender: TObject);

begin
 testpfad:=Speichern.Dialog.FileName;   
 Excfile.ExportFile(testpfad);
end;

In der Zeile  if not VarIsNull(FWorkbook) then begin wird eine Exception der Klasse EAccessViolation aufgerufen
Zugriffsverletzung an Adresse xxxx Lesen von Adresse xxxx.

Wie muss ich den Aufruf Excfile.ExportFile(testpfad); in die
SpeichernAccept Prozedur einbinden.

Viele Grüße und einen schönen Wochenanfang
Vesila

[Blup]

FWorkBook wird nicht korrekt zugewiesen.

Delphi-Quellcode:

FWorkBook := FApplication.WorkBooks.Add(xlWBATWorksheet);
..

Ersetzen durch

Delphi-Quellcode:

{fügt das neue WorkBook am Anfang der Liste ein:}
FApplication.WorkBooks.Add(xlWBATWorksheet);
FWorkBook := FApplication.Workbooks[1];
..

[DaCoda]

So wie Blup schrieb. Hast du einfach nur die korrekte Zuweisung vergessen.

Und ein paar TRY...EXCEPT Blöcke für die Fehlerbehandlung wären auch gut...

Viel Erfolg mit deinem Projekt.

LG
Thorsten