Страницы: 1
RSS
Путь к файлу при консолидации таблиц
 
Всем привет!

В макросе прописано действие - консолидация таблиц.
На моем компе все работает гуд, но у других пользователей сбой, т.к. консолидации нужен путь к файлу, а он, в свою очередь, ссылается к моему пользователю.
Как скорректировать макрос, чтобы у любого пользователя (при нахождении файла на рабочем столе) не было ошибок.
Код
Selection.Consolidate Sources:=Array( _
        "'C:\Users\Ivanov\Desktop\[Матрица.xlsm]свод_ассортимент'!R4:R2000", _
        "'C:\Users\Ivanov\Desktop\[Матрица.xlsm]свод_локальный'!R4:R2000"), Function:= _
        xlCount, TopRow:=True, LeftColumn:=True, CreateLinks:=False
 
т.к. нет примера:
при нахождении книги с макросом на рабочем столе замените на
Код
Selection.Consolidate Sources:=Array( _
       "'" & ThisWorkbook.Path & "\[Матрица.xlsm]свод_ассортимент'!R4:R2000", _
       "'" & ThisWorkbook.Path & "\[Матрица.xlsm]свод_локальный'!R4:R2000"), Function:= _
       xlCount, TopRow:=True, LeftColumn:=True, CreateLinks:=False
 
По хорошему, что бы у всех работал код от Насти, нужно что бы обе книги (откуда берутся данные, куда вносятся данные) находились в одной дирректории.
"Все гениальное просто, а все простое гениально!!!"
 
Цитата
Nordheim написал:
находились в одной дирректории
судя из описания задачи, файлы, как раз, и находятся в одной директории...на рабочем столе...
Изменено: Настя_Nastya - 17.03.2020 15:58:13
 
все верно, все находится в одном месте.

ВСЕ ПОЛУЧИЛОСЬ! Роботает как швейцарские часы. Насте огромное человеческое спасибо.
 
Цитата
Настя_Nastya написал:
судя из описания задачи, файлы
Цитата
Salva написал:
при нахождении файла на рабочем столе
Тут не сказано что файлы, поэтому и уточнил.
"Все гениальное просто, а все простое гениально!!!"
Страницы: 1
Наверх