Excel Bordereinstellungen

[soulies]

hoi,

was passiert wenn du 'Selection' durch 'Range' ersetzt ?
(XLApp.Range.Borders(xlDiagonalDown).LineStyle := xlNone; ...)

cya

[ErdNussLocke]

Hi,

der Fehler "Mitglied nicht gefunden" kommt direkt in der ersten Macrozeile
(XLApp.Selection.Borders(xlDiagonalDown).LineStyle := xlNone;)

und wenn ich selection durch range ersetze, kommt ebenfalls in der ersten Zeile "unzulässige Parameterzahl" :-/

Allerdings wird auch weiter oben schon selection benutzt, also ist die Funktion doch zulässig, nur mit borders kommter nicht klar?

Thx und MFG
ErdNussLocke

[ErdNussLocke]

kann es sein das zu range noch irgendwas in [] muss?
so wirds beim sheet.range verwendet

[Reinhardtinho]

Schon über eckige Klammern versucht? (Borders[xl..])

[ErdNussLocke]

Das ist ja zum Verzweifeln :-/

Jetz kommt wieder das die Methode "borders" vom Automatisierungsprozess nicht unterstützt wird.
Gibt es vielleicht noch eine andere Art nach Excel zu exportieren, wo vllt einer schon eine Lösung hat :)

MFG
ErdNussLocke

[mirage228]

Delphi-Quellcode:

Worksheet.Range['A1:B4'].Borders[xlEdgeLeft].LineStyle := xlContinuous;
Worksheet.Range['A1:B4'].Borders[xlEdgeLeft].ColorIndex := xlColorIndexAutomatic;
Worksheet.Range['A1:B4'].Borders[xlEdgeLeft].Weight := xlThin;

Den Parameter des Range und die Borders musst Du für dich natürlich noch anpassen.

Viele Grüße

[ErdNussLocke]

funktioniert :)
Danke an alle!

[ErdNussLocke]

Hi,

weiter gehts ;)
Meine Frage diesmal: Ich habe jetzt das Stringgrid in einer schönen Tabelle verpackt nach Excel übergeben. Wie
kann ich jetzt über dieser Tabelle 2 oder 3 Zeilen einfügen, die nicht zur Tabelle gehören und wo ein anderer
Text (quasi eine Überschrift) eingefügt werden soll. (Das gleiche auch mit einer Fußzeile).
Wäre ne feine Sache wenn mir da wer helfen kann :)

Danke schonmal,

MfG
ErdNussLocke

[mkinzler]

Im Excelsheet?

[ErdNussLocke]

Der Code ist wie gesagt nicht von mir, und ich bin mit der Excelsache auch noch ganz neu im Geschäft.
Was brauch ich? Einen Befehl, der zunächst drei Zellen über der Tabelle einfügt. Aber wie und an welcher Stelle?
Muss es irgendwo hier mit rein?

Delphi-Quellcode:

    //Sheets befüllen 
    for M := 1 to BookCount do 
    begin 
        for N := 1 to SheetCount do 
        begin 
          //Daten aus Grid holen
          Data := VarArrayCreate([1, Grid.RowCount, 1, SheetColCount], varVariant);
          for I := 0 to SheetColCount - 1 do 
            for J := 0 to SheetRowCount - 1 do 
              if ((I+256*(N-1)) <= Grid.ColCount) and ((J+65536*(M-1)) <= Grid.RowCount) then
                Data[J + 1, I + 1] := Grid.Cells[I+256*(N-1), J+65536*(M-1)];

          XLApp.Worksheets[N].Select;
          XLApp.Workbooks[M].Worksheets[N].Name := SheetName + IntToStr(N);

Aber die Überschrift steht ja nicht mit im Grid. und danach geht schon die Formatierung der Tabelle los. Muss ich dann noch
einen ganze neuen Teil zur Befüllung einfügen?