Не работает экспорт в Excel

[son]

Доброго времени суток. Делаю по мануалам:

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var r, c : integer;
  Exl : Variant;
  Sht : Variant;

begin
  Exl:=CreateOleObject('Excel.Application');
  Exl.DisplayAlerts := true;  // Подавить всякие сообщения
  Exl.Application.EnableEvents := true; // Подавить всякие сообщения
  Exl.Visible:=true;
  Exl.Application.WorkBooks.Add;
  Sht:=Exl.WorkBooks[1].WorkSheets[1];
  //Sht:=Exl.WorkBooks[1].;
  for r:=0 to 5 do begin
    for c:=0 to 3 do begin
      //Sht.Range['A'+inttostr(r)]:=inttostr(c)+' '+inttostr(r);
      Sht.Cells[r+1,c+1].Value:=inttostr(c)+' '+inttostr(r);
    end;
  end;
end;


В Excel пусто. Не могу понять в чем дело. Ошибок нет и судя по нету и книжкам должно работать. Вроде ничего лишнего не наковеркал

[Лекс Айрин]

А в какой файл это все пишется?

[zub]

>>и судя по нету и книжкам должно работать.
дак оно и работает

[mig-31]

Если не надо именно OLE/COM, есть fpSpreadsheet

http://wiki.freepascal.org/FPSpreadsheet

OLE/COM - медленно и надо иметь установленный Excel.

fpSpreadsheet - чистый FreePascal код.

[son]

Нужно создать файл с данными. Excel создается, но данными не заполняется

[Лекс Айрин]

son, а если не подавлять, по крайней мере пока, сообщения, то что пишет?

[son]

Код выполняется, ошибок при компиляции и выполнении нет. Просто в ячейках данных нет

[*Rik*]

Код выполняется, ошибок при компиляции и выполнении нет. Просто в ячейках данных нет

Аесли попробовать вместо Value использовать Text
Sht.Cells[r+1,c+1].Text:=inttostr(c)+' '+inttostr(r);
Работать будет?
Или если Value то попробовать использовать число:
Sht.Cells[r+1,c+1].Value:=1;

[sign]

Sht.Cells[r+1,c+1].AsText
Sht.Cells[r+1,c+1].AsNumber
Sht.Cells[r+1,c+1].AsFormula

[zub]

У меня код из первого поста работает. Может просто переустановить офис?