Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.03;
Скачать: CL | DM;

Вниз

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

 
Beavercrazy   (2006-11-14 20:22) [0]

Создаю файл так: ExcelApp := CreateOleObject ("Excel.Application");
....
Затем сохраняю его так:
ExcelApp.ActiveWorkbook.SaveAs(ExtractFilePath(paramstr(0))+"39900.xls");

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


 
Beavercrazy   (2006-11-15 11:31) [1]

Т.е типа никак? Должен же быть способ!


 
Сергей М. ©   (2006-11-15 11:32) [2]

Запиши соотв.макрос и посмотри в его тексте как это делается


 
Ksan ©   (2006-11-15 11:37) [3]

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", цифра);

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


 
Beavercrazy   (2006-11-15 11:45) [4]

xlHtml не принимает. Говорит мол не знаю, что это. С цифрой компилируется, но вот какая цифра должна быть..... прям даже не знаю где искать.


 
umbra ©   (2006-11-15 11:51) [5]

2 Beavercrazy   (15.11.06 11:45) [4]

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


 
Beavercrazy   (2006-11-15 11:56) [6]


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

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


 
Anatoly Podgoretsky ©   (2006-11-15 11:59) [7]


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

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


 
Anatoly Podgoretsky ©   (2006-11-15 12:01) [8]

> Ksan  (15.11.2006 11:37:03)  [3]

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


 
Beavercrazy   (2006-11-15 12:02) [9]

Я боюсь, что без помощи не разберусь в методах Микрософт. Точно не разберусь. Я же новичок! Куда мне!


 
Beavercrazy   (2006-11-15 12:05) [10]

Палундра! Получилось! Спасибо уважаемые и респект!


 
Anatoly Podgoretsky ©   (2006-11-15 12:59) [11]

> Beavercrazy  (15.11.2006 12:02:09)  [9]

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

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


 
Anatoly Podgoretsky ©   (2006-11-15 13:00) [12]

> Beavercrazy  (15.11.2006 12:05:10)  [10]

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


 
umbra ©   (2006-11-15 13:01) [13]

Beavercrazy   (15.11.06 11:56) [6]

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


 
Anatoly Podgoretsky ©   (2006-11-15 13:05) [14]

Аааа
А я думал есть какое то волшебное решение.
Действительно такое публиковать не стоило :-)



Страницы: 1 вся ветка

Текущий архив: 2006.12.03;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.059 c
4-1153475730
kleem
2006-07-21 13:55
2006.12.03
Сделать окно активным


15-1163598855
VICTOR_
2006-11-15 16:54
2006.12.03
Не запускается Host Application


15-1163685032
Андрей Сенченко
2006-11-16 16:50
2006.12.03
Работа с XML на Delphi. Начинающему :)


15-1163079164
Access
2006-11-09 16:32
2006.12.03
Восстановить "опции" explore.exe в реестре


11-1140042552
alex_s
2006-02-16 01:29
2006.12.03
FB/IB