Экспорт в Excel

[jimmi З]

Здравствуйте подскажите пожалуйста (очень срочно нужно).... сделал экспорт данных в excel, и у меня он работает в 3 офисе, а в 7 не работает....в чём проблема???

вот код если нужно....

procedure TForm1.N2Click(Sender: TObject);
var   XLApp,Sheet,Colum:Variant;
index,i,j:Integer;
begin
datamodule13.ADOTable2.Active:=true;
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;   XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
Colum.Columns[1].ColumnWidth:=30;
Colum.Columns[2].ColumnWidth:=15;
 Colum.Columns[3].ColumnWidth:=25;
 Colum.Columns[4].ColumnWidth:=15;
Colum.Columns[5].ColumnWidth:=25;
   Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
   Colum.Rows[2].Font.Bold:=true;
    Colum.Rows[1].Font.Bold:=true;
      Colum.Rows[1].Font.Color:=clBlue;
  Colum.Rows[1].Font.Size:=14;
    Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
     Sheet.Cells[1,2]:='                          Спец';
     Sheet.Cells[2,1]:='ФИО';
        Sheet.Cells[2,2]:='Специальность';
   Sheet.Cells[2,3]:='Домашний_ адрес';
 Sheet.Cells[2,4]:='Телефон';
 Sheet.Cells[2,5]:='Дата_ приёма_ на_ работу';
           index:=3;
                  self.ADOQuery1.First;
                   for i:=0 to self.ADOQuery1.RecordCount-1 do
                     begin
                       Sheet.Cells[index,1]:=self.ADOQuery1.Fields.Fields[1].AsString;
Sheet.Cells[index,2]:=self.ADOQuery1.Fields.Fields[2].AsString;
Sheet.Cells[index,3]:=self.ADOQuery1.Fields.Fields[3].AsString;
Sheet.Cells[index,4]:=self.ADOQuery1.Fields.Fields[4].AsString;
Sheet.Cells[index,5]:=self.ADOQuery1.Fields.Fields[5].AsString;
                       Inc(index);
                       self.ADOQuery1.Next;

                       end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Sparkman]

а на что именно жалуется?

[Serge_Bliznykov]

Конкретно, что не работает?!

не знаю, сейчас выделил кусок кода из вашего поста, проверил, вроде бы всё работает!

procedure TForm1.Button1Click(Sender: TObject);
var XLApp,Sheet,Colum:Variant;
  index,i,j:Integer;
begin
  XLApp:= CreateOleObject('Excel.Application' );
  XLApp.Visible:=true; XLApp.Workbooks.Add(-4167);
  XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
  Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
  Colum.Columns[1].ColumnWidth:=30;
  Colum.Columns[2].ColumnWidth:=15;
  Colum.Columns[3].ColumnWidth:=25;
  Colum.Columns[4].ColumnWidth:=15;
  Colum.Columns[5].ColumnWidth:=25;
  Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
  Colum.Rows[2].Font.Bold:=true;
  Colum.Rows[1].Font.Bold:=true;
  Colum.Rows[1].Font.Color:=clBlue;
  Colum.Rows[1].Font.Size:=14;
  Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
  Sheet.Cells[1,2]:=' Спец';
  Sheet.Cells[2,1]:='ФИО';
  Sheet.Cells[2,2]:='Специальность';
  Sheet.Cells[2,3]:='Домашний_ адрес';
  Sheet.Cells[2,4]:='Телефон';
  Sheet.Cells[2,5]:='Дата_ приёма_ на_ работу';
  Sheet.Cells[3,1]:= 12345;
  Sheet := null;
  Colum := null;
  XLApp := null;
end;

p.s. MS Excel 2007, Windows XP, Delphi 5 ....