책에 있는 소스와 지금 버전의 엑셀 사용 방법에서 약간의 차이가 있을 수 있습니다. 다른 버전의 코드를 사용해 보십시오.

 uses Udm,comobj, Ucheckgrid;

var

  Excel: OleVariant;

  WorkBook: OleVariant;

  WorkSheet: OleVariant;

procedure TDeptForm.Button2Click(Sender: TObject);

var

  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 := 0 to StringGrid1.RowCount do

     begin

       WorkSheet.Cells[i+1,1].value := StringGrid1.Cells[0,i];

       WorkSheet.Cells[i+1,2].value := StringGrid1.Cells[1,i];

       WorkSheet.Cells[i+1,3].value := StringGrid1.Cells[2,i];

     end;

//     WorkBook.SaveAs('d:\ExcelOutputTest.xls');

  finally

    // 워크북 닫기

    WorkBook.close;

    WorkBook:=unAssigned;

    WorkSheet:=unAssigned;

    // 엑셀 종료

    Excel.Quit;

    Excel:=unAssigned;

  end ;

다운로드된  데이터베이스 버전과 사용하시는 데이터베이스 버전 구조가 틀려서 발생하는 오류메세지입니다.(참고로 데이터베이스 작성시 이전 버전과 호환되는 구조로 작성)

제가 새로운 버전의 데이터베이스를 파일 첨부해 놓도록하겠습니다. 확인하시고 결과를 알려주시면 감사하겠습니다.