Текущий архив: 2002.07.18;
Скачать: CL | DM;
Вниз
Как программно не открывая 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;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.006 c
