Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.12.03;
Скачать: [xml.tar.bz2];

Вниз

Как сохранить файл в формате 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.042 c
15-1163534530
Виталий Панасенко
2006-11-14 23:02
2006.12.03
FireBird. Руководство разработчика баз данных


15-1163660330
DelphiLexx
2006-11-16 09:58
2006.12.03
Какой метод есть у DBGridEh a аналогичный TBDGrid.CalcTitleRight?


11-1140014372
Игорь Шевченко
2006-02-15 17:39
2006.12.03
К вопросу о замене System/SysInit в Delphi и обработке исключений


15-1163151320
HeadHunter
2006-11-10 12:35
2006.12.03
Требуется Delphi программист (Минск)


9-1139396310
cava
2006-02-08 13:58
2006.12.03
delphix





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский