Reference на все версии office

[AlexeySch]

Есть такая проблема:
Создаю макрос для Word в котором используется Excel. В reference указываю ссылку на мой 2003 excel. Как заставить этот макрос работать на других компах с другими версиями office (2000,XP)?

[alibek]

Используй позднее связывание.
Типа Set objExcel = CreateObject("Excel.Application")
А из References ссылки убери.

[AlexeySch]

В этом случае автоподстановка работать не будет? И типизировать переменные не получится?

[alibek]

Разумеется.
Но ты можешь кодить с ранним связыванием, а затем перейти на позднее, сохранив код.

[AlexeySch]

Спасибо, Большой Человек.

[ANDLL]

Нет, ну можно конечно поступить разумнее, просто раздобыть где-нибудь TLB Office 97, и работать с ней... Я уж думаю, что все офисы СТАРШЕ 97, поддерживают классы старой версии...

[AlexeySch]

ANDLL
А разве reference перескочит с 97 офиса на 2003 сам? Или ты тоже предлагаешь позднее связывание?

[ANDLL]

ANDLL
А разве reference перескочит с 97 офиса на 2003 сам?

Я уж думаю, что все офисы СТАРШЕ 97, поддерживают классы старой версии...

Кроче попробуй. Не получится - делай как говорит alibek, получится - тебе куда меньше геморроя.

[ANDLL]

Только тут потом отчитайся о результатах, а то мне то же интересно.
P.S. тут надо смешивать позднее и раннее связывание. Т.е. при создании юзать CreateObject, а при объявлении - типы из tlb для office 97.

[GSerg]

Тип связывания определяется не способом создания объекта, а способом объявления переменной.

[AlexeySch]

Уж не знаю насколько отчет, но:
Без Referece на excel не получается типизация переменных(например параметров функций(методов)) ибо типа такого найти не получается, а если нет типизациито и автоподстановки нет.
Использавние tlb (на самом деле olb) тоже ведет к reference на этот tlb поэтому придется tlb поставлять вместе с макросом и кидать куда-нибудь в system32.

[GSerg]

Что ты имеешь в виду под типизацией переменных?

[AlexeySch]

dim sheet as WorkSheet - типизированная переменная
dim sheet
dim sheet as Variant - нетипизированные переменные если они используеются только для хранения excel Worksheet
P.S. Если мои термины не правильные - поправьте, плиз

[GSerg]

Термины правильные, просто...

Хочешь подстановку - перед отвязыванием от tlb замени все dim sheet as worksheet на dim sheet as object. А вообще, объектная модель простая и понятная, можно и по памяти...

[AlexeySch]

GSerg
Ээх... нет в мире счастья
Память у меня плохая
Да в добавок код начинает хуже смотреться, а если еще потом изменения вносить - это обратно все надо переименовывать...

[GSerg]

Так пиши.

#const DEPENDS = true

#if DEPENDS then
dim sheet1 as worksheet
dim sheet2 as worksheet
#else
dim sheet1 as object
dim sheet2 as object
#end if


Потом будешь просто менять начальную константу перед изменением типа привязки.

[AlexeySch]

GSerg
УРРААА!!! Счастье привалило

[GSerg]

Не радуйся особо. Ты не имеешь права использовать имена констант типа xlLeft, ибо их потом не будет

[AlexeySch]

GSerg
Говорил же я что нет в мире счастья...
Тогда возможно проще будет все же tlb(olb) файл в system32 переписывать. Кстати у меня в 2003 офисе нашелся файл с excel 5 object library вот его-то наверное и можно переписывать. Хотя не у всех system32 по одному и тому же пути находится, а reference на переменные окружения наверное не поставится...

[AlexeySch]

Можно как-нибудь программно поменять reference у макроса?

[GSerg]

Можно. Ссылку на Microsoft VBA Extencibility поставь.

Но.

Я бы очень далеко послал прогу, которая попыталась бы мне установить tlb от разных офисов. И никогда не имел бы дела с автором данной проги.

[AlexeySch]

Можно. Ссылку на Microsoft VBA Extencibility поставь.

Тогда наверное хорошоим путем будет написать инсталлятор(процедуру инсталляции) который меняет reference на необходимый.

[alibek]

Не радуйся особо. Ты не имеешь права использовать имена констант типа xlLeft, ибо их потом не будет

Код: Выделить всё

#const DEPENDS = true

#if DEPENDS then
dim sheet1 as worksheet
dim sheet2 as worksheet
#else
dim sheet1 as object
dim sheet2 as object
Enum XlAlignment
  xlLeft = 1
  ...
End Enum
#end if


[AlexeySch]

alibek
GSerg
А может тогда весь tlb как-нибудь в макрос загнать и не париться?

Что-то мне на самом деле не очень нравится такая нотация с #const - не красиво выглядит, а если ее еще и к параметрам применять то совсем нечитабельно будет
Серьезные макросы поддерживать сложно будет, и так фиг разберешься а если еще через строчку #if-else понапихано то совсем туго...

[GSerg]

Короче.
Позднее связывание. И только оно. С подглядкой в excel по F2.