30.09.2009, 12:00
|
|
Активный
|
|
Регистрация: 12.09.2008
Сообщения: 275
Репутация: 43
|
|
Код:
const
xlDown = -4121;
var
x, cel:variant;
i:integer;
begin
try
x:= CreateOleObject('Excel.Application');
x.WorkBooks.open(ExtractFilePath(ParamStr(0))+'1.xls');
x.Visible:=true;
for i:=1 to 20 do
x.Workbooks[1].WorkSheets[3].Cells[i,2]:=i;
x.Workbooks[1].WorkSheets[3].Rows['8:8'].Select;
x.Selection.Insert(Shift:=xlDown);
x.Workbooks[1].WorkSheets[3].range['B8'].numberformat:='@'; //задаст текстовый формат ячейки
except
showmessage('Error, error, Error');
end;
end;
|