Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
относительная ссылка на две папки левее
 
Здравствуйте!
Есть две абсолютные ссылки:
D:\склад\мой склад проба2\приложения\база\приход.xlsb
D:\склад\мой склад проба2\программа.xlsb

Подскажите пожалуйста как можно попасть из файла "приход.xlsb" в файл "программа.xlsb" не применяя диалогов, и используя относительные ссылки(на разных компьютерах может быть разное название диска)?
 
я попробовала применить макрос:
но меня все равно кидает в папку "приложения"
Код
Sub открыть_главную()
p = ThisWorkbook.Path
p1 = Left(p, InStrRev(p, "\"))
p2 = Left(p1, InStrRev(p1, "\"))
p3 = Left(p2, InStrRev(p2, "\")) & "программа.xslb"
Workbooks.Open p3
End Sub
 
Код
ps = application.pathseparator
workbooks.open thisworkbook.path & ps & ".." & ps & ".." & ps & "программа.xlsb"
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
спасибо большое!!!! :)
 
Можно и instrrev:
Код
Sub открыть_главную()
    p = ThisWorkbook.Path
    Workbooks.Open Left(p, InStrRev(p, "\", InStrRev(p, "\") - 1)) & "программа.xslb"
End Sub
Я сам - дурнее всякого примера! ...
Страницы: 1
Читают тему (гостей: 1)