|
Действия ...
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
28.02.2018, 16:04
|
|||
|---|---|---|---|
|
|||
Ссылки на Excel и Word в Офис 13 |
|||
|
#18+
На Win10x64 стоят разные офисы - 7, 10, 13 32х разрядные. Для переключения ссылок используется strFileExcel = "C:\Program Files (x86)\Microsoft Office\Office15\EXCEL.EXE" Set refExcel = References.AddFromFile(strFileExcel) На новом компе в конфигурации W10x64 Of13x32 прогрммное переключение перестало работать. Проверяем ссылки Excel Path: C:\Program Files\Microsoft Office 15\Root\Office15\EXCEL.EXE Word Path: C:\Program Files\Microsoft Office 15\Root\Office15\MSWORD.OLB Вопрос: почему на офисе13 в одном случае ссылки "стандартные", в другом - через Root& ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
28.02.2018, 17:31
|
|||
|---|---|---|---|
|
|||
Ссылки на Excel и Word в Офис 13 |
|||
|
#18+
vgrafin, чтоб не зависеть от расположения файлов вместо AddFromFile можно использовать AddFromGUID. А лучше всего перейти на позднее связывание, и забыть об этой проблеме. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
28.02.2018, 18:36
|
|||
|---|---|---|---|
|
|||
Ссылки на Excel и Word в Офис 13 |
|||
|
#18+
C поздним связыванием - переписывать лениво, когда всё давно работает. С GUID - оба одинаковые, можно и их. Объехать можно, вызывает удивление, почему в одной и той же версии разные пути, причём только для файлов Word и Excel. Вопрос может даже не форуму, а к BG. Но может кто сталкивался с этим? Какое-то объянение должно быть. Я в поисковиках порыл - что-то как-то ничего. Может ссылку кто? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
01.03.2018, 01:31
|
|||
|---|---|---|---|
Ссылки на Excel и Word в Офис 13 |
|||
|
#18+
vgrafin, Early binding ========================================= Dim exApp As Excel.Application Dim exBooks As Excel.Workbooks Dim exBook As Excel.Workbook Set exApp = New Excel.Application exApp.Visible = True Set exBooks = exApp.Workbooks Set exBook = exBooks.Add() Late binding ========================================= Dim exApp As Object Dim exBooks As Object Dim exBook As Object Set exApp = CreateObject("Excel.Application") exApp.Visible = True Set exBooks = exApp.Workbooks Set exBook = exBooks.Add() ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
01.03.2018, 06:08
|
|||
|---|---|---|---|
|
|||
Ссылки на Excel и Word в Офис 13 |
|||
|
#18+
vgrafin почему в одной и той же версии разные пути, причём только для файлов Word и Excel. Думаю, что спрашивать надо того, кто ставил офис или доставлял (переставлял) отдельные компоненты. Вообще-то привязываться к стандартным путям некорректно. В одной сети я видел, что на C: ставились только системное ПО, а офисы и прочее пользовательское ПО ставилось на D:. Естественно, что program files было 2 (на C и на D). Можно путь из реестра подтянуть. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
01.03.2018, 10:43
|
|||
|---|---|---|---|
Ссылки на Excel и Word в Офис 13 |
|||
|
#18+
Переделать под позднее связывание очень легко, гораздо проще, чем бороться с геморроями при переключении библиотек. не раз переделывал огромные программы, можно вообще автозаменой обойтись ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
01.03.2018, 18:48
|
|||
|---|---|---|---|
|
|||
Ссылки на Excel и Word в Офис 13 |
|||
|
#18+
Спасибо. Запугали. Убедили. Действительно, в такой ситуации привязка к пути стала стрёмной. Насчёт одинаковой версии - не совсем точно. Одна 15.0.4569.1506 Другая 15.0.5007.1000 Ставил не я, но с трудом представляю себе, кому и зачем могло понадобится перегонять часть файлов внутри самого офиса с непредсказуемыми последствиями. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=45&mobile=1&tid=1611639]: |
0ms |
get settings: |
12ms |
get forum list: |
13ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
47ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
44ms |
get tp. blocked users: |
2ms |
| others: | 268ms |
| total: | 407ms |
| 0 / 0 |
