Как конвертировать из екселя записи в текстовый файл?

[Askat]

Как конвертировать из екселя записи в текстовый файл?

[Virtson]

методом самого excel (его сервера OLE) .. хоть в .txt хоть .csv

[Askat]

вообще то мне надо сделать на delphi конвертер записей из excel в ASCII файл, ASCII файл похож на текстовый поэтому я у вас спрашиваю!

[Romanbl4]

Вот модуль для работы с Ёкселем:

[ATTACH]ExcelUnit.txt[/ATTACH] (потом в *.pas переименуешь)

А для перевода в текстовый файл я бы сделал так:
считывал бы последовательно ячейки и заисывал бы их в объект TMemo, разделяя записи ячеек символами '|','+','-' и т.п. - По-другому не знаю как.

[Askat]

Romanbl4 vbmenu_register("postmenu_26108", true); вы можете мне написать вот эту прогу конвертер из екселя в текстовый? Пожалуйста!!! Я с файлами никогда не работал!

[Romanbl4]

Вот код для сохранения *.xls в *.txt напрямую через Excel:
нашел на http://www.excode.ru/art4884p5.html

uses
ComObj;

function ExcelSaveAsText(ExcelFile, TextFile: TFileName): Boolean;
const
xlText = -4158;
var
ExcelApp: OleVariant;
vTemp1, vTemp2, vTemp3: OLEVariant;
begin
Result := False;
try
ExcelApp := CreateOleObject('Excel.Application' );
except
Exit;
end;
try
ExcelApp.Workbooks.Open(ExcelFile);
ExcelApp.DisplayAlerts := False;
vTemp3 := False;
vTemp2 := xlText;
vTemp1 := TextFile;
ExcelApp.ActiveWorkbook.SaveAs(vTem p1, vTemp2, vTemp3);
Result := True;
finally
ExcelApp.Quit;
ExcelApp := Unassigned;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ExcelSaveAsText('C:YouExcelFile.xls ','C:YourTextFile.txt');
end;

[Askat]

Спосибо! Romanbl4 vbmenu_register("postmenu_26218", true);