procedure TForm1.Button1Click(Sender: TObject); var Excel, Workbook, Worksheet: OleVariant; begin Excel := CreateOLEObject('Excel.Application'); try WorkBook := Excel.WorkBooks.Open('c:\temp\ws.xls'); WorkSheet := WorkBook.Worksheets.Item['Sheet1']; WorkSheet.Range['A1', 'A1'].Value := Now; finally Excel.Quit; Worksheet := Unassigned; Workbook := Unassigned; Excel := Unassigned; end; end;
Disclaimer The opinions expressed herein are my own personal opinions and do not represent my employer's view in any way.