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

Вниз

Взаимодействие с MS Office   Найти похожие ветки 

 
Alex S   (2003-01-04 15:15) [0]

здравствйте всем. У меня прпоблема с нехваткой информации по работе с офисными приложениями. Вот этот простой пример (взятый из книги) для меня почему не работает.
var
varw:variant;
begin
Varw:=CreateOleObject("Word.Basic");
VarW.FileNew;
VarW.Insert("Hi");
end;

При выполнении этой процедуры, word повисает в task manager и загружает cpu на 100%. Почему?
А вообще мне надо реализовать приаттачивание файлика к новому письму в MS Outlook.
Если у кого есть какие нибудь примеры работы с Outlook или другими офис прогами, пришлите please. Подскажите , где можно найти доку? Спасибо.


 
Opuhshii   (2003-01-04 15:49) [1]

c "нехваткой информации по работе с офисными приложениями" можно бороться с помощью соответсвующих книг, статей, MSDN,.. и т.д. и т.п.. так же хорошо помогает запись макросов и изучение сгенерированого кода,.. например если записать макрос, во время записи которого создать новую книгу, и в ячейке А1 написать Hello World,.. то получим код:


Workbooks.Add
ActiveCell.FormulaR1C1 = "Hello World"
Range("A2").Select


соответственно примерно так код будет выглядеть для Дельфи:


var
XL:Variant;
SH:Variant;
begin
XL:=CreateOleObject("Excel.Application");
XL.Visible := True;
XL.WorkBooks.Add;
XL.ActiveCell.FormulaR1C1 := "Hello World";
end;


CreateOleObject объявлена в ComObj,..


 
Alex S   (2003-01-04 16:32) [2]

Так подскажите где найти эти статьи в инете...


 
asmith   (2003-01-04 18:33) [3]

Читай тут: http://www.djpate.freeserve.co.uk/Automation.htm



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

Форум: "Основная";
Текущий архив: 2003.01.16;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.008 c
8-49167
a_n_t
2002-09-27 14:05
2003.01.16
Проигрывание MOD


4-49352
andy_inc
2002-11-28 13:02
2003.01.16
закладкка


14-49232
aga
2002-12-21 10:48
2003.01.16
Буквы


14-49224
FUF
2002-12-29 21:42
2003.01.16
TRichEdit98


14-49201
Ketmar
2002-12-28 20:26
2003.01.16
а Баба-Яга против!





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