ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Запустить приложение макросом из Excel с запросом пароля
9 сообщений из 9, страница 1 из 1
Запустить приложение макросом из Excel с запросом пароля
    #34676910
redsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
redsky
Участник
Хочу запустить приложение макросом в Excel.
Для него характерно сперва появление окошка с запросом пароля, а после ввода (пароля),- появляется и само приложение.
Использую следующий код:
Код: plaintext
1.
2.
3.
Sub vbexpress2005()
    vb = Shell("R:\bos32.exe",  1 )
End Sub
Окошко с запросом пароля не появляется :(.
А в Диспетчере Задач наблюдаю картину появления и сраза же исчезновение приложения :(.
В чём может быть загвоздка?
...
Рейтинг: 0 / 0
23.07.2007, 12:30
| Ответить | Цитировать | Написать  
Запустить приложение макросом из Excel с запросом пароля
    #34677116
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Ну значит это приложение требует каких-нить параметров настроенных, типа рабочего каталога или еще что-нить.
...
Рейтинг: 0 / 0
23.07.2007, 13:33
| Ответить | Цитировать | Написать  
Запустить приложение макросом из Excel с запросом пароля
    #34677186
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gjghjc
Участник
Попробуй

Код: plaintext
Shell "R:\bos32.exe", vbNormalFocus[SRC vba]

Или поищи по форуму декларирование и использование ShellExecute

С уважением, Николай.
...
Рейтинг: 0 / 0
23.07.2007, 13:53
| Ответить | Цитировать | Написать  
Запустить приложение макросом из Excel с запросом пароля
    #34677682
redsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
redsky
Участник
big-dukeНу значит это приложение требует каких-нить параметров настроенных, типа рабочего каталога или еще что-нить. Так?:
Код: plaintext
1.
2.
3.
Sub vbexpress2005()
    ChDrive ("R:\")
    vb = Shell("R:\bos32.exe", vbNormalFocus)
End Sub
не помогает.

Что значит?:
big-dukeили еще что-нить. To gjghjc
Код: plaintext
Shell "R:\bos32.exe", vbNormalFocus
не помогает
А вариант с ShellExecute
Код: plaintext
1.
2.
3.
4.
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub vbexpress2005()
ShellExecute  0 , "open", "R:\bos32.exe", "", "",  3 
End Sub
Требует библиотеку с ключами, но админ мне её не даст:). Да у меня и свой пароль есть, только не знаю куда его вписать (может быть при объявлении ShellExecute)
Ещё не знаю что объявил (кроме пути) в ShellExecute 0, "open", "R:\bos32.exe", "", "", 3
...
Рейтинг: 0 / 0
23.07.2007, 15:50
| Ответить | Цитировать | Написать  
Запустить приложение макросом из Excel с запросом пароля
    #34680086
redsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
redsky
Участник
Получилось через ярлык:
Оказывается: запуск приложения по адрессу R:\bos32.exe выдаёт тот же запрос библиотеки. Если создать ярлык для этого приложение, - результат тот же:(
НО ярлык сисадмина на моём рабочем столе (хоть и указывает на тот же файл) запускает всё нормально (почему-то). Его то я и скопировал на C:\ :
Код: plaintext
1.
2.
3.
4.
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub vb()
    ShellExecute  0 , "open", "C:\bos32.lnk", "", "",  3 
End Sub
Всем спасибо.
...
Рейтинг: 0 / 0
24.07.2007, 14:01
| Ответить | Цитировать | Написать  
Запустить приложение макросом из Excel с запросом пароля
    #34681124
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
redskyПолучилось через ярлык:
Оказывается: запуск приложения по адрессу R:\bos32.exe выдаёт тот же запрос библиотеки. Если создать ярлык для этого приложение, - результат тот же:(
НО ярлык сисадмина на моём рабочем столе (хоть и указывает на тот же файл) запускает всё нормально (почему-то). Его то я и скопировал на C:\ :Вот ты больше суток возишься с этой задачей а прочитать хелп на ShellExecute не удосужился... Даже заглянуть внутрь работающего ярлыка на десктопе поленился.
Почему у тебя при вызове ShellExecute четвертый и пятый параметр пустые строки?
...
Рейтинг: 0 / 0
24.07.2007, 17:44
| Ответить | Цитировать | Написать  
Запустить приложение макросом из Excel с запросом пароля
    #34681537
redsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
redsky
Участник
To White Owl
1
White Owlпрочитать хелп на ShellExecute не удосужился...
Я вот здесь как раз и спрашиваю:
redskyЕщё не знаю что объявил (кроме пути) в ShellExecute 0, "open", "R:\bos32.exe", "", "", 3 т.е. в моём хэлпе к Excel этой функции нет. Более-менее нормального описания я не нашёл. Буду очень благодарен, если подскажешь, Где можно найти описание ShellExecute.
2
авторДаже заглянуть внутрь работающего ярлыка на десктопе поленился. А откуда я по твоему взял ссылку: "R:\bos32.exe" ???
...
Рейтинг: 0 / 0
24.07.2007, 20:15
| Ответить | Цитировать | Написать  
Запустить приложение макросом из Excel с запросом пароля
    #34681709
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
redsky To White Owl
1
White Owlпрочитать хелп на ShellExecute не удосужился...
Я вот здесь как раз и спрашиваю:
redskyЕщё не знаю что объявил (кроме пути) в ShellExecute 0, "open", "R:\bos32.exe", "", "", 3 т.е. в моём хэлпе к Excel этой функции нет. Более-менее нормального описания я не нашёл. Буду очень благодарен, если подскажешь, Где можно найти описание ShellExecute.Если функция объявляется как Declare Function .... Lib ... то в хелпе на Эксель ее искать бессмысленно. А если в параметре LIB указывается стандартная виндовая библиотека, то описание функции можно будет найти в MSDN. На, лентяй, всего две секунды: зайти на сайт, написать ShellExecute в строке поиска, ткнуть в верхнюю ссылку: http://msdn2.microsoft.com/en-us/library/ms647732.aspx

redsky White OwlДаже заглянуть внутрь работающего ярлыка на десктопе поленился. А откуда я по твоему взял ссылку: "R:\bos32.exe" ???Не знаю. Есть десятки мест откуда человек может взять ссылку. Но кроме имени программы в ярлыке есть еще куча полезной информации. Хотя бы стартовый каталог.
...
Рейтинг: 0 / 0
24.07.2007, 22:13
| Ответить | Цитировать | Написать  
Запустить приложение макросом из Excel с запросом пароля
    #34681902
redsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
redsky
Участник
To White Owl
Столько критики, а толковая строка только одна: http://msdn2.microsoft.com/en-us/library/ms647732.aspx
Спасибо.
...
Рейтинг: 0 / 0
25.07.2007, 06:33
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Запустить приложение макросом из Excel с запросом пароля
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=226&tid=2163688]:
 0ms
get settings:
 10ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 255ms
total:  391ms
созд. / загр.: 391ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]