Excel-Datei mit Delphi formatieren mit Hilfe der Excel-Makros

[Michael Schyroky]

Hallo, wie kann ich den VBA-Code der Excel-Makros nach Delphi übersetzen? Gibt es hierfür entsprechende Literatur?

Bis jetzt habe ich es nur geschafft, Gitternetzlinien zu setzen, bestimmte Zeilen farbig zu hinterlegen und auch Rahmen zu erzeugen.

Wie kann ich aber die Kopf- und Fuss-Zeilen bearbeiten? Das Makro lifert z.B. für das linke Feld in der Kopfzeile den folgenden VBA-Code (Text in Arial, Höhe=12 und einfach unterstrichen):


...
ActiveSheet.PageSetup.LeftHeader = "&""Arial,Fett""&12&UText"
...

Wer kann mir hierfür eine Antwort geben?

Danke. Gruss Michael

[Andreas Kosch]

Hallo,

das folgende Beispiel setzt den Text für die Kopfzeile:
<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
aLCID : Integer;
begin
aLCID := GetUserDefaultLCID;
ExcelApplication1.Connect;
ExcelApplication1.Visible[aLCID] := True;
ExcelApplication1.UserControl := True;
ExcelApplication1.Workbooks.Open(cXLS_FileName, False, False,
EmptyParam,'',False,False,EmptyParam,
EmptyParam,false,false,EmptyParam,false,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveW orkBook);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets.It em[1] as _Worksheet);
ExcelWorksheet1.PageSetup.LeftHeader := 'Test für die Kopfzeile';
ShowMessage('Fertig');
ExcelWorksheet1.Disconnect;
ExcelWorkbook1.Close(False);
ExcelWorkbook1.Disconnect;
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
end;
</pre&gt

[Michael Schyroky]

Hallo,

danke für das Beispiel.

Wie aber kann ich jetzt den Text in der Kopfzeile formatieren?
Ich würde ihn gerne wie folgt formatieren:
- fetter Text
- 12 Pixel hoch
- unterstrichen

in VBA (Excel-Makro) sieht das so aus:
ExcelWorksheet1.PageSetup.LeftHeader = "&""Arial,Fett""&12&UText"

Ich weis aber nicht, wie ich den VBA-Code interpretieren kann, da
ich keine Ahnung von VB habe.

Gruss und Danke
Michae

[Andreas Kosch]

Hallo,

der folgende Aufruf formatiert die Kopfzeile mit einer 14-Punkt-Schriftart in Fettschrift und Unterstrichen:
<pre>
ExcelWorksheet1.PageSetup.LeftHeader := '&14 &T &F Kopfzeilen-Text';
</pre&gt

[Michael Schyroky]

Hallo,

habe die Zeile für Fettschrift und Unterstreichung bei mir
erfolgreich eingebaut. Hat prima geklappt.

Danke für die Info.

Mit freundlichem Gruss
Michae

[allesklarw]

Hallo,

Es wurde geklärt, wie man die Größe ändert und unterstreicht, usw.

Aber wie kann man die Schriftart ändern???



P.s.: bin neu hier.
Ihr hab mir schon viele male geholfen.
Danke.

[allesklarw]

Hallo,

bin mit meinem Problem leider noch nicht weiter gekommen.
Kann mir denn niemand helfen?

Nochmal zur Auffrischung:

Das hier will ich machen:

ActiveSheet.PageSetup.LeftHeader = "&""Arial,Fett""&12&UText"

Andreas Kosh hat gezeigt, dass man damit
ExcelWorksheet1.PageSetup.LeftHeader := '&14 &T &F Kopfzeilen-Text';
die Schriftgröße usw. ändern kann.

Aber wie kann ich die Schirftart ändern?
Würde in die Kopfzeile gerne Courier New verwenden.

Würde mich freuen, wenn mir jemand helfen kann.
Vielen Dank

[Bernd Schulz]

Hallo!

Ohne es getestet zu haben, probier mal:

ExcelWorksheet1.PageSetup.LeftHeader := '&"Arial,Fett" &14 &T &F Kopfzeilen-Text';
Vielleicht auch mal ohne die "

BYE BERND

[allesklarw]

Super!!!
Hat funktioniert.

Und ich hab gedacht, ich hätte schon alle ' und " Kombinationen versucht. :-)

Vielen Dank.