Переобразование xls в dbf4

← →
Jkt (2007-10-01 20:20) [0]

Проблема в том, что необходимо пересохранять большое количество .xls файлов в dbf4. Возможно, ли это как-то автоматизировать, место того, что бы каждый файл пересохранять в dbf4.
Может, есть, какая программа? И вообще, реально ли написать такую прогу на Delphi7?

← →
Anatoly Podgoretsky © (2007-10-01 20:26) [1]

> Jkt (01.10.2007 20:20:00) [0]

Программа называется Эксель, метод/пункт меню SaveAs

← →
Jkt (2007-10-01 20:32) [2]

А когда надо их штук 150 пересахронить? Неправдо ли долговато получится???

← →
Anatoly Podgoretsky © (2007-10-01 20:34) [3]

Потребуется ровно столько времени, скольку потребуется на сохранение, очень быстро.
Открыл/Закрыл, следующий

Var xl:OleVariant; i:Integer; Begin xl:=CreateOleObject("Excel.Application"); xl.Interactive:=False; xl.DisplayAlerts:=False; For i:=0 to Files.Count-1 Do Begin xl.Workbooks.Open(Filename:=Files[i]); xl.ActiveWorkbook.SaveAs(Filename:=ChangeFileExt(Files[i],".dbf"), FileFormat:=11,CreateBackup:=False); xl.ActiveWorkbook.Close; End; xl.Quit; xl:=Unassigned; End;

> [0] Jkt (01.10.07 20:20)

Сейчас ты бы уже успел 4 раза закончить :)

Переобразование xls в dbf4 Найти похожие ветки