Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Kroc

Пользователь


Сообщения: 73
Благодарности: 0

Профиль | Отправить PM | Цитировать


Netscaper
Спасибо за подсказку!
Скорость в моём случае не критична. Переслать нужно всего одно значение. Только мне нужно подключаться к уже работающему оффисному приложению, поэтому ошибку OleSysError я перехватываю, если она возникает. Для отладки я ввёл
ShowMessage('хрен тебе а не Эксель');
Вот так она и ругается под 98. Но теперь попробую так:

uses ... ComObj, Excel97...;
...
private
* *Excel: Variant;
...
...
procedure TForm1.Button1Click(Sender: TObject);
begin
Excel:=GetActiveOleObject ('Excel.Application') as _Application;
Excel.ActiveCell.Value := 'Hello!';
end;

Только мне потестить сегодня негде *Но, кажется, должно работать. W98 с Office2000 у меня на работе. Под WinXP с OfficeXP полёт нормальный.
Если кто сможет выручить - тестовая программка здесь:
http://www.allok.ru/progs/exl1.zip


Отправлено: 20:32, 28-10-2004 | #7