[Prisoner]

Возможно программа просто не умеет к ним подключаться. Если мне не изменяет память, то при установке D7 нужно выбирать тип Office'а.

[Kroc]

Prisoner

при установке D7 нужно выбирать тип Office'а.

Это так, но ведь я не объявлял никаких оффисных модулей в uses. Даже если бы я выполнил проверку на соответствующую версию, и накидал модулей от разных версий Оффиса, дальше то что делать? Это ничего не даст по-моему...
Конечно, можно подключиться как к соответствующему серверу. Это решит проблему, но, млин, как всё таки быть с OLE Automation??? Я что-то не вижу путей к решению...

[Netscaper]

А ты попробуй через COM-сервер или попробуй посмотреть в реестре HKEY_CLASSES, там "пробиндены" названия интерфейсов и их GUID'ов. Есть всякие варианты, типа "Application.Excel8" и т.п.

[Kroc]

Netscaper
Работать через OLE  намного проще. Имена классов одинаковые для 2000 и ХР. Объект COM с CLSID-ом «{00024500-0000-0000-C000-000000000046}» принадлежит Excel.
Из Хелпа:
Retrieves a reference to an IDispatch interface to a currently running, registered COM object.

function GetActiveOleObject(const ClassName: string): IDispatch;

перевожу(насколько знаю английский)
Возвращает ссылку на интерфейс IDisptch запущенного зарегистрированного  объекта COM.
Что ему ещё надо???

[Netscaper]

Я тоже считаю, что проще. Но медленно. Очень. Таскает все данные через DDE (т.е. всякие WM_... сообщения)... Это, так, кстати..

Код:

uses ... ComObj, ExcelNN...;
 // где ExcelNN - Excel97 или Excel2000

const
  xlLCID = LOCALE_USER_DEFAULT;

procedure TForm1.Button1Click(Sender: TObject);
var Excel : _Application;
Workbook : _Workbook;
begin
  Excel := CreateComObject(CLASS_ExcelApplication) as _Application;
  Excel.Workbooks.Add(EmptyParam, xlLCID);
  Excel.ActiveCell.Value := 'Hello!';
  Excel.Visible[xlLCID]:=True;
end;

Думаю, что в случае ошибки ты точно увидишь проблему.

А что программа в '98 выдает?

[s]Исправлено: Netscaper, 3:20 28-10-2004[/s]

[Kroc]

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

[Netscaper]

Работает вроде... Правда на 2000/2000

[Kroc]

Netscaper
Спасибо. Также проверил на 98/97.
Но всплыла ещё одна проблема... Моя программка должна определить, что именно запущено - Ворд или Эксель, и исходя из этого подключиться. Теперь она подключается только к тому, чей модуль в uses последний. Т.е. если написано uses Word97, Excel97... - будет подключен Excel. А Word не видит вообще.
Ну что ж... Будем искать...

[Netscaper]

Тогда ты делай по-другому:

Код:

uses ... ComObj, Excel97, Word97...; 
const 
  xlLCID = LOCALE_USER_DEFAULT; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var
Excel : Excel97._Application; 
Word : Word97._Application;
Workbook : _Workbook; 
begin 
  Excel := CreateComObject(CLASS_ExcelApplication) as Excel97._Application; 
  Word := CreateComObject(CLASS_WordApplication) as Word97._Application;
  Excel.Workbooks.Add(EmptyParam, xlLCID); 
  Word....

[s]Исправлено: Netscaper, 15:02 29-10-2004[/s]


[s]Исправлено: Netscaper, 15:04 29-10-2004[/s]