Developing.ru

Код: Выделить всё

function SaveAsExcelFile(stringGrid: TstringGrid; FileName: string): Boolean;
const
  xlWBATWorksheet = -4167; 
var 
  Row, Col: Integer; 
  GridPrevFile: string;
  XLApp, Sheet: OLEVariant;
begin
  Result := False;
  XLApp  := CreateOleObject('Excel.Application'); 
  try
    XLApp.Visible := False;
    XLApp.Workbooks.Add(xlWBatWorkSheet);
    Sheet      := XLApp.Workbooks[1].WorkSheets[1];
    Sheet.Name := 'My Sheet Name';
    for col := 0 to stringGrid.ColCount - 1 do
      for row := 0 to stringGrid.RowCount - 1 do
      begin
        Sheet.Cells[row + 1, col + 1] := stringGrid.Cells[col, row];
        //showmessage(stringgrid.Cells[col, row]);
      end;
    try
      XLApp.Workbooks[1].SaveAs(FileName);
      Result := True;
    except 
      // Error ?
    end;
  finally
    if not VarIsEmpty(XLApp) then
    begin 
      XLApp.DisplayAlerts := False; 
      XLApp.Quit;
      XLAPP := Unassigned;
      Sheet := Unassigned;
    end;
  end;
end;