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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 30.08.2008, 17:28   #1
gavs
 
Регистрация: 30.08.2008
Сообщений: 5
По умолчанию Открыть кнопкой книгу по запросу имени!

Кнопке пытаюсь присвоить макрос, который откроет книгу из заданной папки, спросив её имя! Всё что смог написать - не работает!

Sub Кнопка2_Щелкнуть()
sName = InputBox("Введите дату", "Дата", "16.08.08.xls")
Workbooks.Open "C:\Отчеты\Вводы\sName"
End Sub
gavs вне форума
Старый 30.08.2008, 17:38   #2
дмидми
Форумчанин
 
Аватар для дмидми
 
Регистрация: 06.03.2008
Сообщений: 352
По умолчанию

Что-то навскидку не видно никакого криминала, разве что я бы подстраховался на случай Len(sName)=0 (это если юзер соскипнёт).

Правильно ли указано имя папки? Существует ли в ней на самом деле книга с указанным именем?

Что значит "не работает"? Какое сообщение об ошибке выводится (и выводится ли)?
дмидми вне форума
Старый 30.08.2008, 17:50   #3
gavs
 
Регистрация: 30.08.2008
Сообщений: 5
По умолчанию

Просто вместо имени он ищет файл: C:\Отчеты\Вводы\sName.xls
gavs вне форума
Старый 30.08.2008, 17:55   #4
дмидми
Форумчанин
 
Аватар для дмидми
 
Регистрация: 06.03.2008
Сообщений: 352
По умолчанию

Вы совершенно правы. И где только были мои глаза! Нужно
Workbooks.Open "C:\Отчеты\Вводы\" & sName
дмидми вне форума
Старый 30.08.2008, 17:59   #5
gavs
 
Регистрация: 30.08.2008
Сообщений: 5
По умолчанию

Мне нужно открыть файл "16.08.08.xls" или другой файл из папки C:\Отчеты\Вводы\ по запросу имени файла
gavs вне форума
Старый 30.08.2008, 18:00   #6
gavs
 
Регистрация: 30.08.2008
Сообщений: 5
По умолчанию

Спасибо - попробую!!!
gavs вне форума
Старый 30.08.2008, 18:06   #7
gavs
 
Регистрация: 30.08.2008
Сообщений: 5
По умолчанию

Огромное спасибо ДМИДМИ!!! Работает!!!
gavs вне форума
Старый 30.08.2008, 18:06   #8
дмидми
Форумчанин
 
Аватар для дмидми
 
Регистрация: 06.03.2008
Сообщений: 352
По умолчанию

Будет свободное время - попробуйте ещё
Application.Dialogs(xlDialogOpen).S how
- вдруг да понравится?
дмидми вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос по SQL-запросу (компонент ADOQuery) Roman999 БД в Delphi 8 04.04.2010 17:07
Нужен небольшой совет по запросу drakhar БД в Delphi 2 08.08.2008 16:59
вопрос по SQL запросу Anton_S БД в Delphi 5 09.06.2008 01:47
Активирование формы только по запросу CoDeR Общие вопросы Delphi 1 09.09.2007 20:00
Народ помогите с кнопкой empy PHP 0 23.05.2007 19:46