Foros Club Delphi - Ver Mensaje Individual

kapcomx · #3 03-06-2015

Hola compañero espero te sirva este ejemplo

Código Delphi [-]procedure TfListArticulo.Button1Click(Sender: TObject);
  var
    Excelfile:OleVariant;
    aBook: _WORKBOOK;
    aSheet: _WORKSHEET;
    begin

    ExcelApplication1.connect;

    aBook:= ExcelApplication1.workbooks.add(EmptyParam,0);

    aSheet:= ExcelApplication1.sheets[aBook.Sheets.Count] as _WORKSHEET;
    aBook.Sheets.Add(NULL,aSheet,NULL,NULL,0);

    aSheet:= ExcelApplication1.sheets[aBook.Sheets.Count] as _WORKSHEET;
    asheet.Name:='Ultima hoja';

    ExcelApplication1.visible[0]:=true;
    ExcelApplication1.disconnect;

end;

Saludos...