| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Преобразование xls в html [D6]

Андрей_1 ©   (2015-09-03 06:10:00) 

Доброго времени суток!
Подскажите как средствами делфи преобразовать xls в html
Для rtf файлов делаю так:


var
 W: Variant;
begin
 W := CreateOleObject('Word.Application');
 W.Documents.Open(getcurrentdir+'\info.rtf',False,False);
W.ActiveDocument.SaveAs(getcurrentdir+'\info.html',wdFormatHTML);
 W.ActiveDocument.CLose;
 W.Quit;
 W := UnAssigned;
 ExecuteFile(getcurrentdir+'\info.html', '', getcurrentdir, SW_NORMAL);
end;

А как для xls ?

---

Андрей_1   (2015-09-04 05:07:00) [1]

Спасибо!
В html переводится, но отображение не во всех браузерах. А в которых отображается инфа, то настолько по-разному, что кажется что разные файлы открываю. Закинул в файлик в комп с линуксом, там Mozila тоже виснет, опера и хромиум открывают, но в разном представлении.
Вордовский документ переделывается в html и открывается всеми браузерами корректно.
Изучать сам html файл от excel... - там много текста. Буду пробовать открытие через фреймы или блоки и т.п.

---

Dimka Maslov   (2015-09-03 18:56:00) [2]

xlWebArchive

А вообще надо познакомится с таким прекрасным способом как запись макроса с последующим изучением его содержимого.

---

Dimka Maslov   (2015-09-03 18:52:00) [3]

Наверное, указав имя с расширением mht и соответсвующей константой вместо xlHTML

---

Андрей_1   (2015-09-03 14:52:00) [4]

Делаю так

E := CreateOleObject('Excel.Application');
E.Workbooks.Open(getcurrentdir+'\Таблица действия ключей.xlsx',False,False);
E.ActiveWorkbook.SaveAs(getcurrentdir+'\info.html', xlHTML);
E.visible:=True;


Файл создаётся но открывается только в Explorer, другие браузеры зависают.
Это получается так даже если я сохраняю в ручном режиме, т.в самом Excel сохранить как. А вот если сохраняю как веб страница в одном файле(mht), то открывается файл во всех браузерах. Как сохранить в формате mht ?

---

Dimka Maslov   (2015-09-03 13:50:00) [5]

wd - это префикс ворда
xl - экселя.

---

кгшзх   (2015-09-03 13:11:00) [6]

может стоит заглянуть в справочник вба?

---

Андрей_1   (2015-09-03 12:17:00) [7]

Так пробую по аналогии

var
E: Variant;
begin
E := CreateOleObject('Excel.Application');
E.Workbooks.Open(getcurrentdir+'\info.xlsx',False,False);
E.ActiveWorkbooks.SaveAs(getcurrentdir+'\info.html',wdFormatHTML);
E.ActiveWorkbooks.CLose;
E.Quit;
E := UnAssigned;


ActiveWorkbooks не проходит

---

Андрей_1   (2015-09-03 12:01:00) [8]

Я тоже догадываюсь что exсel, но wdFormatHTML - вместо этого что должно быть?

---

Dimka Maslov   (2015-09-03 10:56:00) [9]

Практически тот же код, но сместо ворда надо вызывать excel.application

---

Наверх