|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.06.2007, 08:55 | #1 |
Пользователь
Регистрация: 11.06.2007
Сообщений: 20
|
Как конвертировать из екселя записи в текстовый файл?
Как конвертировать из екселя записи в текстовый файл?
|
28.06.2007, 09:13 | #2 |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
методом самого excel (его сервера OLE) .. хоть в .txt хоть .csv
Берегите друг друга!
|
28.06.2007, 10:35 | #3 |
Пользователь
Регистрация: 11.06.2007
Сообщений: 20
|
вообще то мне надо сделать на delphi конвертер записей из excel в ASCII файл, ASCII файл похож на текстовый поэтому я у вас спрашиваю!
|
28.06.2007, 16:06 | #4 |
Форумчанин
Регистрация: 20.06.2007
Сообщений: 144
|
Вот модуль для работы с Ёкселем:
[ATTACH]ExcelUnit.txt[/ATTACH] (потом в *.pas переименуешь) А для перевода в текстовый файл я бы сделал так: считывал бы последовательно ячейки и заисывал бы их в объект TMemo, разделяя записи ячеек символами '|','+','-' и т.п. - По-другому не знаю как. |
29.06.2007, 14:32 | #6 |
Форумчанин
Регистрация: 20.06.2007
Сообщений: 144
|
Вот код для сохранения *.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; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
текстовый файл | werser | Общие вопросы Delphi | 3 | 06.06.2008 08:42 |
Текстовый файл | subsonic | Общие вопросы Delphi | 5 | 09.03.2008 21:20 |
Сохранение в текстовый файл | Askat | Общие вопросы Delphi | 11 | 26.02.2008 14:47 |
текстовый файл | Var17 | Общие вопросы Delphi | 1 | 22.12.2007 02:20 |
Текстовый файл в текстовый массив | Kimimaru | Общие вопросы C/C++ | 1 | 02.12.2007 11:55 |