Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.03.2011, 12:04   #1
Magnetic Air
Пользователь
 
Регистрация: 28.01.2011
Сообщений: 29
По умолчанию путь к файлу на каталог выше

есть команда ThisWorkbook.Path & "\" которая указывает путь на нижние уровни каталогов от файла с макросом.
Внимание вопрос: есть ли команда, которая указывает путь на верхние уровни каталогов?
Т.е. чтобы путь писАлся не от жесткого диска (Е:\...), а от конкретного файла?

Excel 2003

Последний раз редактировалось Magnetic Air; 28.03.2011 в 12:09.
Magnetic Air вне форума Ответить с цитированием
Старый 28.03.2011, 12:17   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

из DOS известно
cd ..
и текущим стал родительский каталог
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 28.03.2011, 12:42   #3
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Код:
MsgBox CreateObject("Scripting.FileSystemObject").GetFile(ThisWorkbook.Name).ParentFolder.ParentFolder
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 28.03.2011, 15:04   #4
Magnetic Air
Пользователь
 
Регистрация: 28.01.2011
Сообщений: 29
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Код:
MsgBox CreateObject("Scripting.FileSystemObject").GetFile(ThisWorkbook.Name).ParentFolder.ParentFolder
не могли бы рашифровать... не могу понять как ей пользоваться...
Magnetic Air вне форума Ответить с цитированием
Старый 28.03.2011, 15:08   #5
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

извините, а в каких целях Вы собираетесь это использовать?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 28.03.2011, 15:15   #6
Magnetic Air
Пользователь
 
Регистрация: 28.01.2011
Сообщений: 29
По умолчанию

чтобы открыть файл, кот находиться на три каталога выше и два каталога ниже относительно файла с макросом. но если это так сложно буду думать что-нить другое.
Magnetic Air вне форума Ответить с цитированием
Старый 28.03.2011, 15:21   #7
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

допустим поднятся на три каталога выше - не проблема, а потом оттуда на два вниз - надо знать имена, обоих. и имя файла нужно.
пишите все это прям сюда
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 28.03.2011, 15:38   #8
Magnetic Air
Пользователь
 
Регистрация: 28.01.2011
Сообщений: 29
По умолчанию

Т.е. путь к файлу с макросом: фин\казначейство\анализ\2011\Журнал .xls
путь к открываемому файлу: фин\продажи\ДЗ\ДЗ_2011.xls

Журнал.xls, вверх \2011, вверх \анализ, вверх \казначейство, вверх\фин, вниз\продажи, вниз\ДЗ, ДЗ2011.xls
Magnetic Air вне форума Ответить с цитированием
Старый 28.03.2011, 15:52   #9
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Код:
Workbooks.Open CreateObject("Scripting.FileSystemObject").GetFile(ThisWorkbook.Name).ParentFolder.ParentFolder.ParentFolder.ParentFolder & "\продажи\ДЗ\ДЗ_2011.xls"
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 28.03.2011, 16:13   #10
Magnetic Air
Пользователь
 
Регистрация: 28.01.2011
Сообщений: 29
По умолчанию

волшебство...
IgorGO
спасибо большое!
Magnetic Air вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Путь к файлу. Sniperok Общие вопросы по Java, Java SE, Kotlin 2 12.08.2010 04:46
путь к файлу vedro-compota Общие вопросы по программированию, компьютерный форум 2 14.04.2010 13:47
Путь к файлу Belokuraya Microsoft Office Excel 17 12.08.2009 17:30
Путь к файлу artemavd Общие вопросы Delphi 12 24.03.2009 14:09
Путь к файлу Slash Общие вопросы Delphi 3 27.11.2008 14:02