TOLeContainer und Excel Dateien im xlsx Format

Ramon · Beiträge: 107 WIN7 D6 Prof, D7 Prof, D 2009

Hallo zusammen,

ich habe ein kleines Problem mit einem TOleContainer und Excel Dateien.
XLS Dateien kann ich laden und speichern. XLSX Dateien sind aber nach dem Speichern defekt. Der Weg ist der selbe:

markieren

Delphi-Quelltext

1:
2:
3:

  ole.CreateObjectFromFile(sFile, False);
  // Ändern der Datei durch den Anwender
  ole.SaveAsDocument(sFile);

Installiert habe ich Office 2010 und Delphi 2009.
Langsam verzweifel ich ziemlich.

Gibt es vielleicht noch einen alternativen Weg aus dem OleContainer eine Excel Datei zu speichern?

Danke und Gruß
Ramon

Narses · Verfasst: Do 28.07.11 13:06

Moin!

Musste man nicht beim Speichern eine Dateiformatkonstante mitgeben, sonst bleibt das Format gleich? :gruebel:

Einfach nur den Dateinamen ändern interessiert Excel nicht die Bohne. :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Ramon · Beiträge: 107 WIN7 D6 Prof, D7 Prof, D 2009

Wenn weiß ich nicht wie. Die Datei ist aber auch defekt wenn ich sie in *.xls umbenenne.
Schau ich mir die Datei im Notepad an, finde ich zwischen den ganzen kryptischen Zeichen den Eintrag Excel.Sheet.12. Das müsste ja eigentlich stimmen.

Gibt es eine Möglichkeit das OleObject in eine TExcelApplication umzuwandeln?

Narses · Verfasst: Do 28.07.11 13:18

Moin!

Schau mal die Beiträge von user profile icon

Chemiker durch, der machte AFAIR ziemlich viel mit Excel+OLE. :idea:

Vielleicht schaut er ja auch beim nächsten Besuch mal hier in deinen Thread rein.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Ramon · Beiträge: 107 WIN7 D6 Prof, D7 Prof, D 2009

Hallo,

dank dir, aber ich glaube ich hab es jetzt.

XLSX Dateien speicher ich jetzt wie folgt:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var
  ExcelApplication : variant;
begin
  ole.DoVerb(ovShow);
  ExcelApplication := ole.OLEObject;
  ExcelApplication.SaveAs(sFile);

Have a nice day
Ramon

Chemiker · Verfasst: Fr 29.07.11 01:08

Hallo Ramon,

SaveAs ist eine Methode von Workbook und nicht von der Excel-Application. Beim Speichern müsste eigentlich eine Fehlermeldung kommen, dass SaveAs nicht unterstützt wird.
Das bedeutet, dass man das Workbook das gespeichert werden soll spezifizieren muss, dies kann man z. B. mit einem Index erreichen. Der Index entspricht der Position der Mappe1= Index1; Mappe2=Index2 usw.
Soll jetzt die Mappe1 gespeichert werden so muss sie mit dem Index angesprochen werden.
z.B.:

markieren

Delphi-Quelltext

1:	ExcelApplication.Workbooks[1].SaveAs(FileName:= MyFileName, Fileformat:= xlNormal);

Damit wird dann Deine Datei als .XLS Datei abgespeichert, soll die Datei als .XLSX abgespeichert werden, einfach das Fileformat weglassen.

Bis bald Chemiker

Ramon · Beiträge: 107 WIN7 D6 Prof, D7 Prof, D 2009

Hi,

ist ja keine ExcelApplication, nur ein Variant. Oder meintest du wegen dem Namen des Variants?
Wie komm ich denn an ein Objekt der Klasse TExcelApplication?

Bis jetzt scheint es zu funktionieren.

Danke und Gruß
Ramon

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme