![]() |
|
#1
|
|||
|
|||
![]() нужен пример для выгрузки данных из XLS в DBF средствами DELPHI
у меня не получается!! |
#2
|
|||
|
|||
![]() Код:
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; ... Последний раз редактировалось Admin, 26.01.2012 в 19:00. |