Главная страница
    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.057 c
15-1163535441
i-s-v
2006-11-14 23:17
2006.12.03
Вопрос о смартфоне НокИя Е61


2-1163529374
voin666
2006-11-14 21:36
2006.12.03
Помогите, пожалуйста!


15-1163587152
Rentgen
2006-11-15 13:39
2006.12.03
процедуры с перечислением одних и тех же типов переменных


2-1163752359
asg.aleks
2006-11-17 11:32
2006.12.03
подключение dbf файла


8-1145700764
QuickFinder
2006-04-22 14:12
2006.12.03
Видеозахват с помощью Delphi





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский