Скачать: CL | DM;

Переобразование 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]

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

---

← →
Palladin ©   (2007-10-02 07:37) [4]

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;

---

← →
homm ©   (2007-10-02 07:44) [5]

> [0] Jkt   (01.10.07 20:20)

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c