| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Переобразование xls в dbf4 [D7, XP]

Jkt ©   (2007-10-01 20:20:00) 

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

---

homm   (2007-10-02 07:44:00) [1]

> [0] Jkt   (01.10.07 20:20)

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

---

Palladin   (2007-10-02 07:37:00) [2]

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;

---

Anatoly Podgoretsky   (2007-10-01 20:34:00) [3]

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

---

Jkt   (2007-10-01 20:32:00) [4]

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

---

Anatoly Podgoretsky   (2007-10-01 20:26:00) [5]

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

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

---

Наверх