Форум: "Начинающим";
Текущий архив: 2007.10.21;
Скачать: [xml.tar.bz2];
ВнизПереобразование 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.10.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.047 c