Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/надстройка excel связи - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » надстройка excel связи (Макросы/Sub)
надстройка excel связи
alyam Дата: Вторник, 06.11.2018, 18:28 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
добрый день!
надстройка md5.xlam располагается на c:\program files\microsoft office\addins
в excel я ее включаю через надстройки.
формулу в 8172023.xls в ячейке J44 считает нормально.

на другом пк надстройка загружена точно таким же образом.
но если переместить 8172023.xls в сетевую папку, то выдается ошибка. нужно обновить связи и т.д.
в формуле путь становится таким: ='\\Server\общая\Program Files\Microsoft Office\ADDINS\md5.xlam'!md5hash(...
как исправить?
К сообщению приложен файл: 8172023.xlsx(17.8 Kb) · md5.xlam(40.8 Kb)


Сообщение отредактировал alyam - Вторник, 06.11.2018, 18:31
 
Ответить
Сообщениедобрый день!
надстройка md5.xlam располагается на c:\program files\microsoft office\addins
в excel я ее включаю через надстройки.
формулу в 8172023.xls в ячейке J44 считает нормально.

на другом пк надстройка загружена точно таким же образом.
но если переместить 8172023.xls в сетевую папку, то выдается ошибка. нужно обновить связи и т.д.
в формуле путь становится таким: ='\\Server\общая\Program Files\Microsoft Office\ADDINS\md5.xlam'!md5hash(...
как исправить?

Автор - alyam
Дата добавления - 06.11.2018 в 18:28
krosav4ig Дата: Среда, 07.11.2018, 03:44 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1694
Репутация: 698 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как исправить?

ну дык, если надстройка правильно подключена, она открывается при запуске excel, просто удалить путь к файлу из формул


(_)Õvõ(_)
 
Ответить
Сообщение
как исправить?

ну дык, если надстройка правильно подключена, она открывается при запуске excel, просто удалить путь к файлу из формул

Автор - krosav4ig
Дата добавления - 07.11.2018 в 03:44
alyam Дата: Среда, 07.11.2018, 09:00 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
я не прописываю путь к файлу в формулах.
=md5hash(СЦЕПИТЬдиапазон(J9:J41;" "))
 
Ответить
Сообщениея не прописываю путь к файлу в формулах.
=md5hash(СЦЕПИТЬдиапазон(J9:J41;" "))

Автор - alyam
Дата добавления - 07.11.2018 в 09:00
alyam Дата: Среда, 07.11.2018, 09:50 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
 
Ответить
Сообщениекросс http://www.cyberforum.ru/vba/thread2346650.html

Автор - alyam
Дата добавления - 07.11.2018 в 09:50
boa Дата: Среда, 07.11.2018, 14:00 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 39 ±
Замечаний: 0% ±

2013, 365
я не прописываю путь к файлу в формулах.

Excel прописывает


 
Ответить
Сообщение
я не прописываю путь к файлу в формулах.

Excel прописывает

Автор - boa
Дата добавления - 07.11.2018 в 14:00
alyam Дата: Четверг, 08.11.2018, 09:04 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
нашел статью https://support.microsoft.com/en-us....n-excel

чтобы надстройка открывалась при копировании на другой пк или сетевую шару, нужно надстройку добавлять в %appdata%\microsoft\excel\xlstart
 
Ответить
Сообщениенашел статью https://support.microsoft.com/en-us....n-excel

чтобы надстройка открывалась при копировании на другой пк или сетевую шару, нужно надстройку добавлять в %appdata%\microsoft\excel\xlstart

Автор - alyam
Дата добавления - 08.11.2018 в 09:04
boa Дата: Четверг, 08.11.2018, 11:54 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 39 ±
Замечаний: 0% ±

2013, 365
%appdata%\microsoft\excel\xlstart

Любой Excel'евский файл помещенный в данную папку будет открываться при запуске Excel


 
Ответить
Сообщение
%appdata%\microsoft\excel\xlstart

Любой Excel'евский файл помещенный в данную папку будет открываться при запуске Excel

Автор - boa
Дата добавления - 08.11.2018 в 11:54
alyam Дата: Четверг, 08.11.2018, 12:59 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
мне главное чтобы ссылки не менялись при открытии файла
 
Ответить
Сообщениемне главное чтобы ссылки не менялись при открытии файла

Автор - alyam
Дата добавления - 08.11.2018 в 12:59
boa Дата: Четверг, 08.11.2018, 15:54 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 39 ±
Замечаний: 0% ±

2013, 365
alyam,
тогда вам лучше на всех компьютерах использовать серверную версию файла md5.xlam, тогда путь на всех компах будет одинаковым
а в папку xlstart положите ярлык для автоматической загрузки файла при запуске Excel.
Для автоматического создания ярлыка
можете использовать макрос
[vba]
Код
Sub AddShortcut()
'' Author:  boa
'' Written: 08.11.2018
'' Edited:
'  Description: для создания ярлыка
    Dim LinkFullName$, oShortcut As Object
    LinkFullName = Excel.Application.StartupPath & "\" & ThisWorkbook.Name & ".lnk"
    If Dir(LinkFullName, vbNormal) = "" Then
        Set oShortcut = CreateObject("WScript.Shell").CreateShortcut(LinkFullName)
        oShortcut.TargetPath = ThisWorkbook.FullName
        oShortcut.Save
    End If
End Sub
[/vba]


 
Ответить
Сообщениеalyam,
тогда вам лучше на всех компьютерах использовать серверную версию файла md5.xlam, тогда путь на всех компах будет одинаковым
а в папку xlstart положите ярлык для автоматической загрузки файла при запуске Excel.
Для автоматического создания ярлыка
можете использовать макрос
[vba]
Код
Sub AddShortcut()
'' Author:  boa
'' Written: 08.11.2018
'' Edited:
'  Description: для создания ярлыка
    Dim LinkFullName$, oShortcut As Object
    LinkFullName = Excel.Application.StartupPath & "\" & ThisWorkbook.Name & ".lnk"
    If Dir(LinkFullName, vbNormal) = "" Then
        Set oShortcut = CreateObject("WScript.Shell").CreateShortcut(LinkFullName)
        oShortcut.TargetPath = ThisWorkbook.FullName
        oShortcut.Save
    End If
End Sub
[/vba]

Автор - boa
Дата добавления - 08.11.2018 в 15:54
krosav4ig Дата: Четверг, 08.11.2018, 19:23 | Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 1694
Репутация: 698 ±
Замечаний: 0% ±

Excel 2007,2010,2013
для того, чтобы использовать серверную версию надстройки достаточно подключить ее через параметры Excel (без копирования в папку, предварительно удалив файл надстройки из %appdata%\microsoft\AddIns и %appdata%\microsoft\excel\xlstart)
или можно использовать такой макрос
[vba]
Код
On Error Resume Next
Set excelapp = GetObject(, "excel.application")
If excelapp Is Nothing Then
    Err.Clear
    Set excelapp = CreateObject("excel.application")
    excelapp.Workbooks.Add
End If
With excelapp
    with .AddIns
        .Add "\\Server\общая\Program Files\Microsoft Office\ADDINS\md5.xlam", False
        .Item("md5").Installed = true
    End With
    If Err = 0 Then MsgBox "надстройка md5 установлена успешно"
    if not excelapp.visible then excelapp.quit
end with
[/vba]
К сообщению приложен файл: 2686763.vbs(0.5 Kb)


(_)Õvõ(_)
 
Ответить
Сообщениедля того, чтобы использовать серверную версию надстройки достаточно подключить ее через параметры Excel (без копирования в папку, предварительно удалив файл надстройки из %appdata%\microsoft\AddIns и %appdata%\microsoft\excel\xlstart)
или можно использовать такой макрос
[vba]
Код
On Error Resume Next
Set excelapp = GetObject(, "excel.application")
If excelapp Is Nothing Then
    Err.Clear
    Set excelapp = CreateObject("excel.application")
    excelapp.Workbooks.Add
End If
With excelapp
    with .AddIns
        .Add "\\Server\общая\Program Files\Microsoft Office\ADDINS\md5.xlam", False
        .Item("md5").Installed = true
    End With
    If Err = 0 Then MsgBox "надстройка md5 установлена успешно"
    if not excelapp.visible then excelapp.quit
end with
[/vba]

Автор - krosav4ig
Дата добавления - 08.11.2018 в 19:23
Мир MS Excel » Вопросы и решения » Вопросы по VBA » надстройка excel связи (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!