COMatePLUS excel

[marcelx]

Hallo zusammen,

ich benutze COMatePLUS um einfache Excel-Datei zur erstellen.
Ich möchte die erste Zeile formatieren als fett und zentriert.
Die restliche Zellen möchte ich entweder linksbündig oder rechtsbündig.
Irgend wie habe ich es nicht geschafft.

Wäre dankbar über ein Tipps.

Gruß
MarcelX

[marcelx]

Nach lang suchen und probieren, habe ich es geschafft eine Zelle fett zu markieren:

Code: Alles auswählen

Style$="Bold"
ExcelObject\SetProperty("Selection\Font\FontStyle = '"+Style$+"'")

[Kiffi]

Kennst Du die Excel/COMate - Funktionssammlung von Falko? -> http://www.purebasic.fr/german/viewtopi ... 66#p239466

Damit kannst Du recht einfach Excel-Dateien bearbeiten.

Grüße ... Peter

[marcelx]

Danke Peter, ich hatte ohne die Funktionssammlung von Falko angefangen.
Für das Setzen "Fett" habe ich XLSFunc_SetFontStyle gefunden.

Gruß
MarcelX

[Kiffi]

und für die Ausrichtung (linksbündig, zentriert, rechtsbündig) sollte XLSFunc_SetFontAlignment() das richtige sein.

Grüße ... Peter

[marcelx]

Hallo,

ich versuche eine Zelle zu formatieren als zahl mit 3 Nachkommastellen.
In den Beispiel Test_Excel_Funktion.pb wird die sub XLSFunc_SetCellFormat so verwendet:

XLSFunc_SetCellFormat(NewExcelObject, "A16", "#.####"); für Dezimalzahl mit 3 Dezimalstellen

In der Excel (2007) stimmt das Format nicht !

Voran könnte es liegen.
Danke und Gruß
MarcelX

[Kiffi]

versuch mal

Code: Alles auswählen

XLSFunc_SetCellFormat(NewExcelObject, "A16", "0.000")

Grüße ... Peter

[Falko]

Vielleicht hatte ich da ein Formatzeichen # zuviel
eingefügt, wenn vier Nullen angezeigt wurden.
Ich habe das nun korrigiert. Mit meinem Office 2010
kann ich das leider nicht überprüfen

Gruß,
Falko

[marcelx]

Danke Falko und Kiffi für die Rückmeldung.

Ich habe die Zeile so geändert

Code: Alles auswählen

XLSFunc_SetCellFormat(NewExcelObject, "A16", "0.000")

was mir korrekt erscheint.
Wenn ich in der Excel-Datei an der Zelle A16 eine Kommazahl wie z.B. 5000,123 kommt immer die Anzeige 5.000

Das verstehe ich nicht.

Gruß
MarcelX

[Falko]

Versuchs mal so.

Code: Alles auswählen

XLSFunc_WriteCells(NewExcelObject, 16,1, "5000,21")
Debug COMate_GetLastErrorDescription()+"  XLSFunc_WriteCells"
XLSFunc_SetCellFormat(NewExcelObject, "A16", "#.###0,000"); für Dezimalzahl mit 3 Dezimalstellen
Debug COMate_GetLastErrorDescription()+"  XLSFunc_SetCellFormat"