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.
Excel Überschrift einfügen [erledigt]
Moderator: Moderatoren
-
- 1000 working lines a day
- Beiträge: 525
- Registriert: Mi, 01. Feb 2006 16:22
- Wohnort: 06618 Naumburg
Excel Überschrift einfügen [erledigt]
Zuletzt geändert von peternmb am Fr, 16. Okt 2015 12:29, insgesamt 1-mal geändert.
-
- 1000 working lines a day
- Beiträge: 525
- Registriert: Mi, 01. Feb 2006 16:22
- Wohnort: 06618 Naumburg
Re: Excel Überschrift einfügen
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