[Lilu-MAKS]

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

[Lilu-MAKS]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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

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