Форум: "Базы";
Текущий архив: 2002.07.18;
Скачать: [xml.tar.bz2];

Вниз

Как программно не открывая Excel экспортировать файл xls в csv   Найти похожие ветки 

← →
JohnBurg   (2002-06-27 00:48) [0]

Как программно не открывая Excel экспортировать файл xls в csv

---

← →
Alexandr   (2002-06-27 07:25) [1]

никак

---

← →
Кулюкин Олег   (2002-06-27 08:57) [2]

Можно не показывать Excel пользователю и он будет думать что все сделано "не открывая".
Либо разобраться с форматом файлов xls и csv и сделать все ручками.

---

← →
Praco   (2002-06-27 09:08) [3]

Прочитать из Excel можно через ODBC(проверл), записать в csv так же (не проверял). Но это геморой.

---

← →
Ka$per   (2002-06-27 10:44) [4]

примерно вот так:

var ExcelApp:TExcelApplication;
ExcelDoc:_Workbook;
FName,SaveChange:OleVariant;
begin
ExcelApp:=TExcelApplication.Create(nil);
ExcelApp.AutoQuit:=True;
ExcelDoc:=ExcelApp.Workbooks.Open("c:\temp\a.xls",EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
FName:="c:\temp\a.csv";
SaveChange:=False;
ExcelDoc.SaveAs(FName,xlCSV,EmptyParam,EmptyParam,EmptyParam,EmptyParam,xlSaveChanges,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
FName:="c:\temp\a.xls";
ExcelDoc.Close(SaveChange,FName,EmptyParam,0);
ExcelApp.Disconnect;
ExcelApp.Free;
end;


---

← →
MAxiMum   (2002-06-27 10:56) [5]

2Ka$per: Но это требюует наличие Excel"я.
Я бы поставил Ado-компоненты для доступа к таблице Excel, формат csv мне (да, думаю и тебе; если нет, посмотри его как текст) знаком - это обычный текстовый файл.
Читаешь из таблицы Excel, записываешь текст в csv.
That"s all!!!

---

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

Форум: "Базы";
Текущий архив: 2002.07.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.006 c