Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как сохранить файл в формате html

Beavercrazy © (2006-11-14 20:22:00)
Создаю файл так: ExcelApp := CreateOleObject ('Excel.Application');
....
Затем сохраняю его так:
ExcelApp.ActiveWorkbook.SaveAs(ExtractFilePath(paramstr(0))+'39900.xls');

Подскажите как сохранить этот файл в формате htm (веб страницы)?

Anatoly Podgoretsky (2006-11-15 13:05:00) [1]
Аааа
А я думал есть какое то волшебное решение.
Действительно такое публиковать не стоило :-)

umbra (2006-11-15 13:01:00) [2]
Beavercrazy (15.11.06 11:56) [6]

в подключенном модуле объявлена константа xlHTML с нужным числовым значением. Поэтому и получилось

Anatoly Podgoretsky (2006-11-15 13:00:00) [3]
> Beavercrazy (15.11.2006 12:05:10) [10]

Ну а сообщать каким образом это не по пацански?

Anatoly Podgoretsky (2006-11-15 12:59:00) [4]
> Beavercrazy (15.11.2006 12:02:09) [9]

Да брось, если ты не разберешься то и другие тоже. Там все просто, но очень много, но ведь зацепка то есть SaveAs

Если бы это был ЕxcelApplication и Д2006, то возможно подсказка бы помогла, для OLE я не уверен есть ли подсказки компилятора.

Beavercrazy (2006-11-15 12:05:00) [5]
Палундра! Получилось! Спасибо уважаемые и респект!

Beavercrazy (2006-11-15 12:02:00) [6]
Я боюсь, что без помощи не разберусь в методах Микрософт. Точно не разберусь. Я же новичок! Куда мне!

Anatoly Podgoretsky (2006-11-15 12:01:00) [7]
> Ksan (15.11.2006 11:37:03) [3]

Вот оно волшебное слово - FileFormat:=xlHtml,

Anatoly Podgoretsky (2006-11-15 11:59:00) [8]

> А дальше? Как сохранить то?

А дальше смотри методы, за этим на Микрософт. Если это можно сделать через меню, то это можно сделать и через автоматизацию, только надо знать волшебное слово.
Не думай что кто то вместо тебя пойдет на МС и будет искать название метода.

Beavercrazy (2006-11-15 11:56:00) [9]

> добавьте в uses модуль Excel{версия оффиса}

А дальше? Как сохранить то?

umbra (2006-11-15 11:51:00) [10]
2 Beavercrazy (15.11.06 11:45) [4]

добавьте в usesмодуль Excel{версия оффиса}

Beavercrazy (2006-11-15 11:45:00) [11]
xlHtml не принимает. Говорит мол не знаю, что это. С цифрой компилируется, но вот какая цифра должна быть..... прям даже не знаю где искать.

Ksan (2006-11-15 11:37:00) [12]
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Afonkin\Desktop\123.htm", FileFormat:=xlHtml, _
ReadOnlyRecommended:=False, CreateBackup:=False

это если смотреть как макрос в твоем варианте будет просто второй параметр по моему ... в свое время игрался сейчас просто не помню точно вроде второй т.е.

ExcelApp.ActiveWorkbook.SaveAs(ExtractFilePath(paramstr(0))+'39900.xls', xlHtml);

или там цифра будет определяющая что сохранять как веб т.е.
ExcelApp.ActiveWorkbook.SaveAs(ExtractFilePath(paramstr(0))+'39900.xls', цифра);

по тести посмотри ... точнее не помню

Сергей М. (2006-11-15 11:32:00) [13]
Запиши соотв.макрос и посмотри в его тексте как это делается

Beavercrazy (2006-11-15 11:31:00) [14]
Т.е типа никак? Должен же быть способ!

Наверх

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