델파이 엑셀(Excel) 수식 포함 저장하기

델파이 엑셀(Excel) 수식 포함 저장하기

 

uses

.., ComObj;

 

procedure TForm1.Button2Click(Sender: TObject);

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 := '123';

WorkSheet.Cells[2, 1].Value := '222';

WorkSheet.Cells[3, 1].Value := '1234';

WorkSheet.Cells[4, 1].Formula := '=SUM(A1:A3)';

WorkBook.SaveAs('C:\TestExcel.xlsx'); //다른 이름으로 저장합니다.

ExcelObj.Quit; //종료

WorkSheet := unAssigned;

WorkBook := unAssigned;

ExcelObj := unAssigned;

end;