델파이에서 엑셀로 데이터 출력하는 간단한 예제

델파이에서 엑셀로 데이터 출력하는 간단한 예제

맨 위의 uses에는 "ComObj"를 추가 해야된다.

procedure TForm1.Button1Click(Sender: TObject);
var
  Excel: OleVariant;
  WorkBook: OleVariant;
  WorkSheet: OleVariant;

  i : integer;

begin

  Excel := CreateOleObject('Excel.Application');
  Excel.Visible := True;

  // 워크북 추가
  Excel.WorkBooks.Add;
  WorkBook := Excel.ActiveWorkBook;

  // 워크시트 추가
  Workbook.sheets.add;

  try
    // 작업할  워크시트 선택
    WorkSheet := WorkBook.WorkSheets[1];

    // 셀에 데이터 입력
    for I := 1 to 100 do
    begin
      WorkSheet.Cells[i,1].Value:= IntToStr(i);
      WorkSheet.Cells[i,2].Value:= 'TEST-' + IntToStr(i);;
    end;

    // 워크북 저장
    WorkBook.SaveAs(Filename:='c:\ExcelOutputTest.xls');

  finally
    // 워크북 닫기
    WorkBook.close;
    WorkBook:=unAssigned;
    WorkSheet:=unAssigned;
    // 엑셀 종료
    Excel.Quit;
    Excel:=unAssigned;
  end ;

end;

 

invalid-file

델파이 2006 소스