Moin,
Habe diesen Code in VB(Excel) und möchte dieses aus Delphi übergeben.
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
| Sub Kopfzeile_ansprechen()
With ActiveSheet.PageSetup .LeftHeader = "TEST" .CenterHeader = "Test1" .RightHeader = "Test2" .LeftFooter = "TEst3" .CenterFooter = "Test4" .RightFooter = "Test5" End With End Sub |
Mit dem Übersetzen ins Delphisch ist für mich als Amateur nicht so einfach, denn ich probiere aber auch mit Codevervollständigung klappt es nicht so.
In Word habe ich es so gemacht:
Delphi-Quelltext
1: 2:
| WordApplication1.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader; WordApplication1.Selection.TypeText( Edit1.Text ); |
Aber in Excel klappt es mit diesm Muster nicht.
Habe es so angefangen: Und komme nicht wirklich weeiter.
Delphi-Quelltext
1:
| ExcelWorksheet1.Pagesetup.LeftHeader.TypeText( Edit1.Text ); |
Aber:[Fehler] Unit1.pas(84): Record, Objekt oder Klassentyp erforderlich
Bedarf unbedingt Hilfe denn dies muss bis MONTAG fertig werden.
mfg
Lexmy3