![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 30.08.2008
Сообщений: 5
|
![]()
Кнопке пытаюсь присвоить макрос, который откроет книгу из заданной папки, спросив её имя! Всё что смог написать - не работает!
Sub Кнопка2_Щелкнуть() sName = InputBox("Введите дату", "Дата", "16.08.08.xls") Workbooks.Open "C:\Отчеты\Вводы\sName" End Sub |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 06.03.2008
Сообщений: 352
|
![]()
Что-то навскидку не видно никакого криминала, разве что я бы подстраховался на случай Len(sName)=0 (это если юзер соскипнёт).
Правильно ли указано имя папки? Существует ли в ней на самом деле книга с указанным именем? Что значит "не работает"? Какое сообщение об ошибке выводится (и выводится ли)? |
![]() |
![]() |
#3 |
Регистрация: 30.08.2008
Сообщений: 5
|
![]()
Просто вместо имени он ищет файл: C:\Отчеты\Вводы\sName.xls
|
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 06.03.2008
Сообщений: 352
|
![]()
Вы совершенно правы. И где только были мои глаза! Нужно
Workbooks.Open "C:\Отчеты\Вводы\" & sName |
![]() |
![]() |
#5 |
Регистрация: 30.08.2008
Сообщений: 5
|
![]()
Мне нужно открыть файл "16.08.08.xls" или другой файл из папки C:\Отчеты\Вводы\ по запросу имени файла
|
![]() |
![]() |
#6 |
Регистрация: 30.08.2008
Сообщений: 5
|
![]()
Спасибо - попробую!!!
|
![]() |
![]() |
#7 |
Регистрация: 30.08.2008
Сообщений: 5
|
![]()
Огромное спасибо ДМИДМИ!!! Работает!!!
|
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 06.03.2008
Сообщений: 352
|
![]()
Будет свободное время - попробуйте ещё
Application.Dialogs(xlDialogOpen).S how - вдруг да понравится? |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вопрос по 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 |