[Lilu-MAKS]

нужен пример для выгрузки данных из XLS в DBF средствами DELPHI
у меня не получается!!

[Lilu-MAKS]

Код:

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;
...

Админ: Пользуемся тегами для оформления кода!