| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как программно не открывая Excel экспортировать файл xls в csv [D5, D6, IB6.x, dBase, FoxPro]
JohnBurg © (2002-06-27 00:48:00)Как программно не открывая Excel экспортировать файл xls в csv
MAxiMum (2002-06-27 10:56:00) [1]2Ka$per: Но это требюует наличие Excel"я.
Я бы поставил Ado-компоненты для доступа к таблице Excel, формат csv мне (да, думаю и тебе; если нет, посмотри его как текст) знаком - это обычный текстовый файл.
Читаешь из таблицы Excel, записываешь текст в csv.
That"s all!!!
Ka$per (2002-06-27 10:44:00) [2]примерно вот так:
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;
Praco (2002-06-27 09:08:00) [3]Прочитать из Excel можно через ODBC(проверл), записать в csv так же (не проверял). Но это геморой.
Кулюкин Олег (2002-06-27 08:57:00) [4]Можно не показывать Excel пользователю и он будет думать что все сделано "не открывая".
Либо разобраться с форматом файлов xls и csv и сделать все ручками.
Alexandr (2002-06-27 07:25:00) [5]никак
| |
