Excel-Sheet mit Delphi verändern

[PPaB]

Ich habe schon viel probiert, aber ich schaff es einfach nicht in Excel etwas zu verändern (Fett schreiben, Färben, Zellen fixieren...). Ich kann zwar in ein Excel-Dokument etwas eintragen, aber das andere klappt einfach nicht.
Hat da jemand eine Idee?

MfG
PPaB

[dominikkv]

Zeige uns doch, wie dus versuchst, und was dann nicht klappt.

Ansonsten kann ich dir nur dieses Tutorial geben: http://www.delphi-treff.de/tutorials...von-ms-office/

[PPaB]

habs jetzt soweit:

Delphi-Quellcode:

procedure TLieder.Excel1Click(Sender: TObject);
var Excel: Variant;
    I, J, K, L, M, N, P: integer;
    Speicherort: String;
begin
M := 13;
FindAllFiles(ExtractFilePath(Application.Exename)+'Gottesdienste/', '*.*',False);

if Excelspeichern.Execute then begin
    try
      excel := CreateOleObject('Excel.Application');
      excel.visible := False;
    except
      ShowMessage('Excel konnte nicht gestartet werden !');
    end;
    Excel.Workbooks.Add;
    for J:=0 to 11
      do begin
      Excel.Cells[1,J+1].Value :=StringGrid3.Cells[J,0];
        for I := 1 to StringGrid3.RowCount-1
        do Excel.Cells[I+2,J+1].Value :=StringGrid3.Cells[J,I];
      end;
        For N := 0 to Listbox3.Count-1 do
        begin
        Listbox2.Items.LoadFromFile(ExtractFilePath(Application.Exename)+'Gottesdienste/'+ Listbox3.Items[N]);
        M := M+1;
        Excel.Cells[1,M].Value := Copy(Listbox3.Items[N],1,Length(Listbox3.Items[N])-4);
        For P := 1 to SGBesucher.RowCount -1 do
          If SGBesucher.Cells[0,P] = Copy(Listbox3.Items[N],1,Length(Listbox3.Items[N])-4) then
              Excel.Cells[2,M].Value := SGBesucher.Cells[4,P];

        for K := 0 to Listbox2.Count - 1 do
        begin
          for L := 1 to StringGrid3.RowCount - 1 do
          begin
            If StringGrid3.Cells[0,L] = Listbox2.Items[K] then
              Excel.Cells[L+2,M].Value := 'x';
          end;
        end;
        end;
    Speicherort := Excelspeichern.FileName;
    Excel.ActiveWorkbook.SaveAs(Speicherort);
    Excel.Quit;
    Excel := Unassigned;
end;
end;

Hab aber keinen Ansatz, wie ich die erste Zeile immer in Fett umändern kann und die ganzen "x" sollten eine andere Farbe (Rot) haben.

[sx2008]

Delphi-Quellcode:

Excel.Cells[1,1].Font.Color := RGB(clRed); // Zellentext rot färben
// oder auch
Excel.Cells[1,1].Interior.ColorIndex := 3; // Zelle rot färben
//
Excel.Cells[1,1].Font.Bold := True; // Schrift fett

mehr zu Excel-Objekten

[PPaB]

Oh cool, danke

Noch eine Idee, wie man Zellen fixieren kann?

[Chemiker]

Hallo PPaB,

zeichne Dir in Excel einen Macro auf, dann kann man Erkennen welche Befehle erforderlich sind um die Zellen zu fixieren.

Bis bald Chemiker

[PPaB]

@Chemiker: Wie kann ich das machen? Weiß nicht, wie ich Makros aufzeichnen kann?

MSDN ist ja ganz schön, finde dort aber nicht, wie ich die Schriftgröße verändern kann.
Kann mir da vielleicht noch jemand helfen?

Edit: Ah und ich müsste noch auf dem gesamten Sheet die optimale Breite ermitteln. Geht das auch mit den Makros oder einfacher?

So danke an alle, habs jetzt rausbekommen mit den Makros.

http://www.delphipraxis.net/internal...t.php?p=296956

Hier wirds auch ganz gut erklärt.

Eine Frage hab ich noch. Wie kann ich erst in Delphi während dem laufen des Programms die Zellen zum markieren bestimmen.

Delphi-Quellcode:

Excel.Range['M3:AC' + IntToStr(I)].Select;

So kann ich zwar die Zahl selbst bestimmen, aber ich möchte auch statt dem 'AC' eine Variable eingeben.
Da ich diese aber nur als Zahl habe, wollte ich fragen, wie man dies ändern kann, sodass ich diese Zellen alle markieren kann?

[PPaB]

Jedemand eine Idee, wie ich das anstellen könnte?

[anubis2k5]

Hallo PPaB!

So ganz verstehe ich deine letzte Frage nicht... Du kannst doch auch die Spalten über Variabeln ansprechen:

Delphi-Quellcode:

...
var tmpStr: String;
...
tmpStr := 'AA';  {kann an einer anderen Stelle im Code liegen}

Excel.Range['M3:tmpStr' + IntToStr(I)].Select;

Oder versuch doch noch einmal die Frage anders zu stellen ;-)

[Andidreas]

wenn ich das richtig verstehe, dann hast hast du den spaltenwert (z.B. 'AC') als integer wert...
wennd em so ist würde ich vorschlagen das du das alphabet in einem array hinterlegst...
denn array kannst du dann so oft durch lesen bis du den gleichen wert wie in deinem integer wert hast...
davor solltest du aber deinen wert durch 26 teilen wegen den spalten mit 2 buchstaben ;-)