Сохранить csv в формате xls

@pivogol · Регистрация: 07.01.2009

Author24 — интернет-сервис помощи студентам

Подскажите, пожалуйста, как в Excel сохранить открытый csv-файл как xls?
У меня открывается корректно, но сохраняется неправильно, как текстовый, все столбцы в нём получаются в одной ячейке.
Делаю так:

Delphi

FileName1:=pathp+'\reports\out.csv';
FileName2:=pathp+'\reports\out.xls';
exclplctn1.Connect;
exclplctn1.Workbooks.Open(FileName1,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
WorkBk:=exclplctn1.WorkBooks.Item[exclplctn1.Workbooks.Count];
WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
exclplctn1.ActiveWorkbook.SaveAs(FileName2,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,xlNoChanges,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0, LOCALE_USER_DEFAULT);
exclplctn1.Visible[0]:=True;
exclplctn1.Disconnect;

@i8085 · 31.01.2016, 17:30

Сообщение от pivogol

открывается корректно, но сохраняется неправильно

То есть в Excel выглядит нормально, правильно "разложенный" по ячейкам?

@pivogol · 31.01.2016, 22:19 **[ТС]**

Да, открылся csv-файл чётко, разложено по столбцам.
Потом сохраняю программно в xls, открываю xls, а в нём всё в одной ячейке.
При формировании csv-файла использовал разделитель ;

Добавлено через 4 часа 45 минут
Разобрался.
Понятно, что Excel несмотря на указываемое имя *.xls сохраняет документ в том же формате, в котором и открывал: csv. Нужно явно указать в каком формате сохранять.
Как указывать сохраняемый формат у компонента TExcelApplication, поэтому перешёл на OLE, там формат при сохранении указал так:

Delphi

1	Ap.ActiveWorkBook.SaveAs(FileName2,xlExcel9795);

@i8085 3351 / 2446 / 558 Регистрация: 11.09.2009 Сообщений: 8,881
	31.01.2016, 17:30	2
	Сообщение от pivogol открывается корректно, но сохраняется неправильно То есть в Excel выглядит нормально, правильно "разложенный" по ячейкам? 0

	31.01.2016, 22:19