MikeVol, я бы с радостью обратился к разработчику, но не знаю кто это. Алиса в яндексе пишет, что разрабочик - Microsoft.
Собственно проблема может быть с любой функцией, к которой Excel допишет путь.
Надеюсь, что кто-то подскажет решение.

Здравствуйте!
Файл xlsx (xlsm) открывается на другом компьютере по локальной сети (не на том, где он сохранен).
Excel из пакета Office365 к функции =Сумма_прописью() дописывает адрес типа ='\\Comp_gde_on_sohranen\Desktop\Users\user\AppData\Roaming\Mi­crosoft\AddIns\NUM2TEXT.XLA'!Сумма_прописью()
При открытии файла ругается, что связь обновить невозможно. И функция не работает.
Если вручную убрать путь, оставив только =Сумма_прописью() - работает (эта надстройка установлена на каждом компьютере).
Как сделать, чтобы путь не дописывался?

Нашел решение похожей проблемы на этом форуме, но нужно прописывать код в модуль самой надстройки, а там пароль    

Это понятно, я хотел кнопку сделать рядом с ячейкой для удобства, или комбинацию назначить. Думаю, сам разберусь.

Еще раз большое спасибо!

MikeVol, всё работает! Огромное спасибо!

Alex, большое спасибо!
Для обновления данных после вбивания нового БИК какой макрос сделать?
Я так понимаю, напрямую к сайту ЦБ отправить Power Query невозможно. Или я ошибаюсь?
То есть, для поддержания актуальности справочника нужно периодически скачивать и парсить файл с сайта ЦБ в формат xlsx.
Научите / объясните, пожалуйста, как это быстро и удобно делать.

Также как сделать, чтобы в результатах, при наличии нескольких К/с, соответствующих одному БИК, появлялся выбор из списка нескольких К/с?

Прикладываю.

Макрос писался в 2003 году, когда одному БИКу соответствовал только один К/с.
Когда появились варианты к/с, подгружался первый из возможных.
В идеале сделать бы выбор к/с из списка доступных, где есть варианты.

Здравствуйте!
Прошу о помощи.
Использую макрос более 20 лет, никогда не подводил.
Видимо, после очередного обновления MS Office365 (месяц назад), перестал работать, выдает ошибку "Run-time error `1004`: Общая ошибка ODBC", debug показывает на строку ".Refresh BackgroundQuery:=False".
Что поправить?
Макрос должен по БИКу из отдельного файла подгрузить К/с, банк, город.
Может есть где современные готовые решения с актульной базой БИК?

Вот часть макроса с запросом:

Dim fff As Variant


   Sheets("Лист3").Select
   Range("D19").Select
   fff = ActiveCell.Value
   Sheets("Лист5").Select
   Range("B2").Select
   ActiveCell.Value = Null
   Range("C2").Select
   ActiveCell.Value = Null
   Range("D2").Select
   ActiveCell.Value = Null
   Range("E2").Select
   ActiveCell.Value = Null
   Range("F2").Select
   ActiveCell.Value = Null

With ActiveSheet.QueryTables.Add(Connection:= _
       "ODBC;DSN=Файлы Excel;DBQ=C:\1\BIC.xls;DefaultDir=C:\1;DriverId=790;MaxBufferSize=2048;PageTimeout=5;" _
       , Destination:=Sheets("Лист").Range("B2"))
       
       ZAPROS = "SELECT `Лист1$`.БИК, `Лист1$`.Банк, `Лист1$`.`Город банка`, `Лист1$`.`К/с`" & Chr(13) & "" & Chr(10) & "FROM `C:\1\BIC`.`Лист1$` `Лист1$`" & Chr(13) & "" & Chr(10) & "WHERE (`Лист1$`.БИК='" & fff & "')"


       .CommandText = Array(ZAPROS)
       
   
       .Name = "Запрос из файлы Excel_15"
       .FieldNames = False
       .RowNumbers = False
       .FillAdjacentFormulas = False
       .PreserveFormatting = False
       .RefreshOnFileOpen = False
       .BackgroundQuery = True
       .RefreshStyle = xlInsertDeleteCells
       .SavePassword = True
       .SaveData = True
       .AdjustColumnWidth = False
       .RefreshPeriod = 0
       .PreserveColumnInfo = False
       .Refresh BackgroundQuery:=False
   End With