Excel 2007 и Delphi 7 выдает ошибку.

[4sense]

Доброго времени суток. Вопрос следующего типа.
У меня есть программа, и я хочу сделать в ней функцию - экспорт из DBGrid в Excel. Делается это по нажатию на кнопку. Вот собственно сам код:

procedure TSaleForm.Button3Click(Sender: TObject);
var
  i,j,index: Integer;
  ExcelApp,sheet: Variant;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.Visible := False;
  ExcelApp.WorkBooks.Add('путь\price_list_upd.xls');
  sheet:=ExcelApp.WorkBooks[1].WorkSheets[1];
  index:=1;
  SaleForm.DBGrid1.DataSource.DataSet.First;
  for i:=1 to  SaleForm.DBGrid1.DataSource.DataSet.RecordCount do
      begin
      for j:=1 to SaleForm.DBGrid1.FieldCount do
      sheet.cells[index,j]:=SaleForm.DBGrid1.fields[j-1].asstring;
      inc(index);
      SaleForm.DBGrid1.DataSource.DataSet.Next;
      end;
end;

При запуске приложения, выдается ошибка следующего типа:

"raised exception class EOleSysError with message Класс Не зарегистрирован"

Вот собственно и ступор в этом. Прошу помощи, так как работа простаивает из за этого. Погуглил и прошелся по форуму, вроде были ответы, но все они велись к тому, что нужно найти библиотеку и зарегистрировать ее с помощью regsvr32.exe. Но я не знаю какая библиотека используется.
В общем если сможете помочь, буду очень благодарен за терпение ко мне.
С уважением.

[Stilet]

При запуске приложения, выдается ошибка следующего типа:

При запуске приложения или при нажатии на кнопку?

[mihali4]

А эксель установлен ?
Если да, то для какой версии офиса у вас в Д7 установлены соответствующие компоненты ?
Ведь в установщике Д7 нет компонентов для 2007-го офиса...

[4sense]

да я в курсе, извиняюсь, что сразу не объяснил еще в теме. Да эксель установлен. Вообще сам пакет стандартный 2007 оффис. Выбирал я для XP во время установки в Д7. Это как то можно решить?

[4sense]

Сообщение от mihali4

А эксель установлен ?
Если да, то для какой версии офиса у вас в Д7 установлены соответствующие компоненты ?
Ведь в установщике Д7 нет компонентов для 2007-го офиса...

p.s до конца сдачи проекта остался завтрашний день

[4sense]

Сообщение от Stilet

При запуске приложения или при нажатии на кнопку?

Именно при запуске приложения, будь то exe файл или CTRL+F9

[Скандербег]

Появление ошибки не понятно. У меня этот код работает нормально.

procedure TForm1.Button3Click(Sender: TObject);
var
  i,j,index: Integer;
  ExcelApp, sheet, FN: Variant;
  S : string;
begin
  try
    ExcelApp := CreateOleObject('Excel.Application');
  except
    on E : EOleError do begin
      ShowMessage(E.Message);
      Exit;
    end;
  end;
  
  try
    ExcelApp.Visible := True;
    FN := NULL;
    ExcelApp.WorkBooks.Add(FN); //имя файла шаблона (для эксперимента) не указываем
    sheet:=ExcelApp.WorkBooks[1].WorkSheets[1];
    index:=1;

    SaleForm.DBGrid1.DataSource.DataSet.First;
    for i:=1 to SaleForm.DBGrid1.DataSource.DataSet.RecordCount do begin
      for j:=1 to SaleForm.DBGrid1.FieldCount do begin
        //через промежуточную переменную на всякий случай:
        S := SaleForm.DBGrid1.fields[j-1].asstring;
        sheet.cells[index,j] := S;
      end;
      inc(index);
      SaleForm.DBGrid1.DataSource.DataSet.Next;
    end;
  finally
    ExcelApp :=  Unassigned;
  end;
end;

Установлен MS Office 2007. Никакой регистрации сервера Office не требуется. В предложении uses должна быть ссылка на модуль ComObj. В отладке смотрим на какой строке происходит ошибка.

Еще можно попытать раннее связывание:

uses ExcelXP, OleServer;
...
procedure TForm1.Button3Click(Sender: TObject);
var
  ExcelApp : TExcelApplication;
  Sheet : Variant;
  i,j,index: Integer;
begin
  ExcelApp := TExcelApplication.Create(nil);
  try
    ExcelApp.ConnectKind := ckNewInstance;
    ExcelApp.Connect;
//    ExcelApp.DisplayAlerts[0] := false;
    ExcelApp.AutoQuit := False;
    ExcelApp.Visible[0] := True;
    ExcelApp.SheetsInNewWorkbook[0]:=3;
    ExcelApp.Workbooks.Add(EmptyParam,0);

    sheet:=ExcelApp.WorkBooks[1].WorkSheets[1];
    index:=1;

    for i := 0 to SG.RowCount-1 do begin
      for j :=0 to SG.ColCount-1 do
        sheet.cells[index, j+1] := SG.Cells[j, i];
      inc(index);
    end;

  finally
    ExcelApp.UserControl := True;
    ExcelApp.Disconnect;
    FreeAndNil(ExcelApp);
  end;