Excel Überschrift einfügen [erledigt]

Einbindung von Office-Komponenten wie Word, Excel usw.

Moderator: Moderatoren

Antworten
peternmb
1000 working lines a day
1000 working lines a day
Beiträge: 525
Registriert: Mi, 01. Feb 2006 16:22
Wohnort: 06618 Naumburg

Excel Überschrift einfügen [erledigt]

Beitrag von peternmb »

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
1000 working lines a day
1000 working lines a day
Beiträge: 525
Registriert: Mi, 01. Feb 2006 16:22
Wohnort: 06618 Naumburg

Re: Excel Überschrift einfügen

Beitrag von peternmb »

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