добрый день! надстройка md5.xlam располагается на c:\program files\microsoft office\addins в excel я ее включаю через надстройки. формулу в 8172023.xls в ячейке J44 считает нормально.
на другом пк надстройка загружена точно таким же образом. но если переместить 8172023.xls в сетевую папку, то выдается ошибка. нужно обновить связи и т.д. в формуле путь становится таким: ='\\Server\общая\Program Files\Microsoft Office\ADDINS\md5.xlam'!md5hash(... как исправить?
добрый день! надстройка md5.xlam располагается на c:\program files\microsoft office\addins в excel я ее включаю через надстройки. формулу в 8172023.xls в ячейке J44 считает нормально.
на другом пк надстройка загружена точно таким же образом. но если переместить 8172023.xls в сетевую папку, то выдается ошибка. нужно обновить связи и т.д. в формуле путь становится таким: ='\\Server\общая\Program Files\Microsoft Office\ADDINS\md5.xlam'!md5hash(... как исправить?alyam
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
для того, чтобы использовать серверную версию надстройки достаточно подключить ее через параметры 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]
для того, чтобы использовать серверную версию надстройки достаточно подключить ее через параметры 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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
