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.
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
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