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

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

Здравствуйте!
Прошу о помощи.
Использую макрос более 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