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?