Das Forentreffen 2018 findet am 20./21. April in Dresden statt. Weitere Infos hier
Zur Homepage des Deutschsprachige Xbase-Entwickler e. V.
Xbase++-Wiki des Deutschsprachige Xbase-Entwickler e. V.

Excel Überschrift einfügen [erledigt]

Einbindung von Office-Komponenten wie Word, Excel usw.

Moderator: Moderatoren

Antworten
peternmb
Rekursionen-Architekt
Rekursionen-Architekt
Beiträge: 431
Registriert: Mi, 01. Feb 2006 16:22
Wohnort: 06618 Naumburg

Excel Überschrift einfügen [erledigt]

Beitrag von peternmb » Sa, 10. Okt 2015 16:52

Hallo,

vielleicht kann mir jemand einen Tipp geben,
wie ich in meine per xBase erstellte Tabelle noch eine linksbündige Überschrift die über alle Spalten geht einfügen kann.

Vielen Dank.
Zuletzt geändert von peternmb am Fr, 16. Okt 2015 12:29, insgesamt 1-mal geändert.

peternmb
Rekursionen-Architekt
Rekursionen-Architekt
Beiträge: 431
Registriert: Mi, 01. Feb 2006 16:22
Wohnort: 06618 Naumburg

Re: Excel Überschrift einfügen

Beitrag von peternmb » Fr, 16. Okt 2015 12:29

Konnte ich nach einigem probieren jetzt selber lösen:

Code: Alles auswählen

oBook  := oExcel:workbooks:Open(Hauptpfad+"\MeineDBF.DBF")
oSheet := oBook:ActiveSheet
//
// Zeile einfügen
oSheet:Cells(1,1):EntireRow:Insert
oRange:= oSheet:Range("A1:BB1")
// Zellen verbinden
oRange:MergeCells = .T.
// Überschrift eintragen
oSheet:Cells(1,1):Value := "Überschrift"
// Überschrtift linksbündig ausrichten
oSheet:Cells(1,1):HorizontalAlignment = xlLeft 

Antworten