- Код: Выделить всё
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 пусто. Не могу понять в чем дело. Ошибок нет и судя по нету и книжкам должно работать. Вроде ничего лишнего не наковеркал