26.01.2012, 17:54
|
Прохожий
|
|
Регистрация: 02.11.2011
Сообщения: 16
Репутация: 10
|
|
у меня вот так, но что то тут не так
Код:
var i,j,m:integer; vExcel: OleVariant; dir:string;
....
dir:=ExtractFilePath(ParamStr(0))+'\xls\bank.xls';
vExcel:=CreateOleObject('Excel.Application');
vExcel.WorkBooks.Open(dir,false);
for j:=2 to vExcel.ActiveSheet.UsedRange.rows.Count do
begin
m:=vExcel.Cells[j,1];
if m>10000 then
begin
dm2.Tbank.Append;
dm2.TbankKOD_MO.Value:=vExcel.Cells[j,1];
dm2.TbankSUMMA.Value:=vExcel.Cells[j,8];
dm2.TbankDATE.Value:=vExcel.Cells[j,5];
dm2.TbankDEBET.Value:=vExcel.Cells[j,14];
dm2.Tbank.Post;
end;
end;
vExcel.quit;
...
Админ: Пользуемся тегами для оформления кода!
|