Excel Überschrift einfügen [erledigt]

Einbindung von Office-Komponenten wie Word, Excel usw.

Moderator: Moderatoren

Excel Überschrift einfügen [erledigt]

Beitragvon peternmb » Sa, 10. Okt 2015 15: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 11:29, insgesamt 1-mal geändert.
peternmb
Rekursionen-Architekt
Rekursionen-Architekt
 
Beiträge: 416
Registriert: Mi, 01. Feb 2006 16:22
Wohnort: 06618 Naumburg

Re: Excel Überschrift einfügen

Beitragvon peternmb » Fr, 16. Okt 2015 11: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
peternmb
Rekursionen-Architekt
Rekursionen-Architekt
 
Beiträge: 416
Registriert: Mi, 01. Feb 2006 16:22
Wohnort: 06618 Naumburg


Zurück zu MS Office

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast