относительная ссылка на две папки левее

Пользователь

Сообщений: 52 Регистрация: 31.01.2017

25.02.2017 13:46:54

Здравствуйте!
Есть две абсолютные ссылки:
D:\склад\мой склад проба2\приложения\база\приход.xlsb
D:\склад\мой склад проба2\программа.xlsb

Подскажите пожалуйста как можно попасть из файла "приход.xlsb" в файл "программа.xlsb" не применяя диалогов, и используя относительные ссылки(на разных компьютерах может быть разное название диска)?

ALANA

Пользователь

Сообщений: 52 Регистрация: 31.01.2017

25.02.2017 14:24:39

я попробовала применить макрос:
но меня все равно кидает в папку "приложения"

Код

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

Ігор Гончаренко

Пользователь

Сообщений: 14576 Регистрация: 01.01.1970

25.02.2017 14:26:35

Код
ps = application.pathseparator workbooks.open thisworkbook.path & ps & ".." & ps & ".." & ps & "программа.xlsb"

Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

ALANA Пользователь Сообщений: 52 Регистрация: 31.01.2017	#4 25.02.2017 14:27:46 спасибо большое!!!!

kuklp

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

25.02.2017 14:40:24

Можно и instrrev:

Код
Sub открыть_главную() p = ThisWorkbook.Path Workbooks.Open Left(p, InStrRev(p, "\", InStrRev(p, "\") - 1)) & "программа.xslb" End Sub

Я сам - дурнее всякого примера! ...