Inoffizielles deutsches Xbase-Forum

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.

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

Inoffizielles deutsches Xbase-Forum

Excel Überschrift einfügen [erledigt]

Excel Überschrift einfügen [erledigt]

Re: Excel Überschrift einfügen