[SeЯgey]

Экспортировать TStringGrid в Excel-файл

Код который я использую

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

uses    ComObj;    function RefToCell(ARow, ACol: Integer): string;  begin    Result := Chr(Ord('A') + ACol - 1) + IntToStr(ARow);  end;    function SaveAsExcelFile(AGrid: TStringGrid; ASheetName, AFileName: string): Boolean;  const    xlWBATWorksheet = -4167;  var    Row, Col: Integer;    GridPrevFile: string;    XLApp, Sheet, Data: OLEVariant;    i, j: Integer;  begin    // Prepare Data   Data := VarArrayCreate([1, AGrid.RowCount, 1, AGrid.ColCount], varVariant);    for i := 0 to AGrid.ColCount - 1 do      for j := 0 to AGrid.RowCount - 1 do        Data[j + 1, i + 1] := AGrid.Cells[i, j];    // Create Excel-OLE Object   Result := False;    XLApp := CreateOleObject('Excel.Application');    try      // Hide Excel     XLApp.Visible := False;      // Add new Workbook     XLApp.Workbooks.Add(xlWBatWorkSheet);      Sheet := XLApp.Workbooks[1].WorkSheets[1];      Sheet.Name := ASheetName;      // Fill up the sheet     Sheet.Range[RefToCell(1, 1), RefToCell(AGrid.RowCount,        AGrid.ColCount)].Value := Data;      // Save Excel Worksheet     try        XLApp.Workbooks[1].SaveAs(AFileName);        Result := True;      except        // Error ?     end;    finally      // Quit Excel     if not VarIsEmpty(XLApp) then      begin        XLApp.DisplayAlerts := False;        XLApp.Quit;        XLAPP := Unassigned;        Sheet := Unassigned;      end;    end;  end;    // Example:   procedure TForm1.Button1Click(Sender: TObject);  begin    if SaveAsExcelFile(stringGrid1, 'My Stringgrid Data', 'c:\MyExcelFile.xls') then      ShowMessage('StringGrid saved!');  end;

Как сделать чтобы у меня несколько строниц было в excel и в них данные из нескольких stringgrid
И как экспортировать в тот же файл графики соответственно (компонент chart)