Excel에 데이터 넣고 저장하기

uses  
  .., ComObj;

var
  ExcelObj: OleVariant;
  WorkBook: OleVariant;
  WorkSheet: OleVariant;
begin
  ExcelObj := CreateOLEObject('Excel.Application');
  ExcelObj.DisplayAlerts := False;
  
  WorkBook := ExcelObj.Workbooks.Add; //통합문서를 생성합니다.
  WorkSheet := WorkBook.WorkSheets[1]; //Sheet를 선택합니다.

  //엑셀에 데이터를 입력합니다.
  WorkSheet.Cells[1, 1].Value := 'test';
  WorkSheet.Cells[2, 1].Value := 'excel';
  WorkSheet.Cells[3, 1].Value := '1234';
  
  WorkBook.SaveAs('C:\TestExcel.xlsx'); //다른 이름으로 저장합니다.

  ExcelObj.Quit; //종료
  
  WorkSheet := unAssigned;
  WorkBook := unAssigned;
  ExcelObj := unAssigned;
end;

2019/04/15 - [Delphi/꿀팁] - 프로그램으로 엑셀 검색하기

2019/04/18 - [Delphi/꿀팁] - 프로그램에 Excel 데이터 읽어오기