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

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

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

С уважением, Николай.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2007, 15:50
    #34677682
redsky
redsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запустить приложение макросом из Excel с запросом пароля
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
| Ответить | Цитировать | Написать  
24.07.2007, 14:01
    #34680086
redsky
redsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запустить приложение макросом из Excel с запросом пароля
Получилось через ярлык:
Оказывается: запуск приложения по адрессу 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, 17:44
    #34681124
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запустить приложение макросом из Excel с запросом пароля
redskyПолучилось через ярлык:
Оказывается: запуск приложения по адрессу R:\bos32.exe выдаёт тот же запрос библиотеки. Если создать ярлык для этого приложение, - результат тот же:(
НО ярлык сисадмина на моём рабочем столе (хоть и указывает на тот же файл) запускает всё нормально (почему-то). Его то я и скопировал на C:\ :Вот ты больше суток возишься с этой задачей а прочитать хелп на ShellExecute не удосужился... Даже заглянуть внутрь работающего ярлыка на десктопе поленился.
Почему у тебя при вызове ShellExecute четвертый и пятый параметр пустые строки?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2007, 20:15
    #34681537
redsky
redsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запустить приложение макросом из Excel с запросом пароля
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, 22:13
    #34681709
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запустить приложение макросом из Excel с запросом пароля
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
| Ответить | Цитировать | Написать  
25.07.2007, 06:33
    #34681902
redsky
redsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запустить приложение макросом из Excel с запросом пароля
To White Owl
Столько критики, а толковая строка только одна: http://msdn2.microsoft.com/en-us/library/ms647732.aspx
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Запустить приложение макросом из Excel с запросом пароля / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 415ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2163688]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 143ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 216ms
total:  415ms
x
x
Закрыть


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