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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 29.03.2007, 16:51   #1
Slim
Пользователь Подтвердите свой е-майл
 
Регистрация: 01.11.2006
Сообщений: 15
Вопрос Открытие файла из той же дирриктории

Какая команда откроет файл из той же дирриктории, что и файл, в котоом выполняется данный макрос?

например работает файл c:\Makros1.xls и выполняемый в нём макрос выполняет что-то вроде Workbooks("Makros2.xls").Open, после чего открылся бы файл Makros2.xls из тойже дирректории т.е. c:\Makros2.xls. Но данная команда может открыть файл Makros2.xls, только если он находится в папке мои документы, а не в той же дирректории....
Slim вне форума
Старый 29.03.2007, 17:13   #2
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

Код:
Private Sub Test()
iPath$ = ThisWorkbook.Path
iFileName$ = "Makros2.xls"
iFullName$ = iPath$ & "\" & iFileName$
'iFullName$ = iPath$ & Application.PathSeparator & iFileName$
If Dir(iFullName$) <> "" Then
   Workbooks.Open FileName:=iFullName$, UpdateLinks:=0
   'Если открываемая книга защищена паролем, то необходимо
   'дополнительно использовать именованный аргумент Password:="Пароль"
Else
   MsgBox "Нужный файл изволит отсутствовать", vbCritical, ""
   'Предположим, что скрытые и т.п. файлы нас не интересуют.
   'Если это не так, то можно использовать необязательные аттрибуты
   'например: Dir(FileName, vbHidden + vbReadOnly)
End If
End Sub

Последний раз редактировалось pashulka; 29.03.2007 в 17:15.
pashulka вне форума
Старый 29.03.2007, 18:57   #3
Slim
Пользователь Подтвердите свой е-майл
 
Регистрация: 01.11.2006
Сообщений: 15
По умолчанию

pashulka, в очередной раз спасибо!
Slim вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Открытие файла Messir_Leonard Win Api 2 09.04.2008 19:33
Открытие файла Veiron Общие вопросы Delphi 2 27.02.2008 03:12
Открытие файла KillbrumX Помощь студентам 5 02.02.2008 20:50
Открытие файла Lexakazanskij Паскаль, Turbo Pascal, PascalABC.NET 9 01.11.2007 22:27