Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Запуск приложений из excel
 
#1
08.05.2013 12:54:05
Доброго времени суток всем.
Обращаюсь за помощью. Хотелось бы сделать в excel такую функцию чтобы при нажатии кнопки, запускалась программа google earth. Проблема в том что не знаю как прописать команду на запуск приложения.

Адрес расположения.
c:\Program Files (x86)\Google\Google Earth\client\googleearth.exe

Заранее спасибо
 
 
 
#2
08.05.2013 12:56:48
читакм справку VBA по функции Shell
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#3
08.05.2013 12:57:23
shell
Живи и дай жить..
 
 
 
#4
08.05.2013 13:29:42
Ооо, круто.

sub google()
Dim go
go= Shell("c:\Program Files (x86)\Google\Google Earth\client\googleearth.exe", 1)

end sub

Заработало супер! Спасибо.
Не сочтите за наглость, а почему shell не срабатывает на запуск файла. У меня есть файл в corele. Записываю команду

sub corel()
Dim co
co= Shell("d\corel\Каталог.cdr", 1)

end sub

А он выдает ошибку? Спасибо
 
 
 
#5
08.05.2013 13:34:17
т.е. совет почитать справку проигнорировали?  :)
Цитата
Runs an executable program

"файл корела" не является исполняемой программой.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#6
08.05.2013 13:41:45
Было с картой (см. файл)
 
 
 
#7
08.05.2013 13:55:29
О да, я помню эту тему. Так хотелось сразу закидывать на эту форму метки, но я так и смог реализовать идею.
Но как использовать
With UserForm1
.WebBrowser1.Navigate "http://maps.google.ru/"
под запуск файла?
 
 
 
#8
08.05.2013 14:25:42
Цитата
"файл корела" не является исполняемой программой.
Честно, пробежался и сделал! С английским дружу на 3 с -  :D
 
 
 
#9
08.05.2013 15:06:47
?
Код
shell "cmd /c d:\corel\Каталог.cdr",vbHide
 
 
 
#10
08.05.2013 15:25:50
Во, круто
Код
sub corel() 
Dim co 
co=Shell("cmd /c "d\corel\Каталог.cdr", 0) 
end sub


Спасибо огромнейшее!!! Это то что надо.

Всем спасибо за помощь.
 
 
 
#11
10.05.2013 17:34:30
Цитата
Юрий М пишет:  Было с картой (см. файл)
как в строку поиска вставить данные из ячеийки и нажать энтер?
пытаюсь с помощью SendKeys, но к сожалению не получается  :(
 
 
 
#12
11.05.2013 08:16:57
Цитата
пытаюсь с помощью SendKeys, но к сожалению не получается
А зачем SendKeys?
Код
.WebBrowser1.Navigate "https://maps.google.ru/maps?q=Санкт-Петербург,+Зимний+дворец"

Так что конструируйте адрес на maps.google.ru и значение в ячейке
 
 
 
#13
11.05.2013 11:14:37
Спасибо, все получилось
 
 
 
#14
11.05.2013 15:38:48
с этим разобрался .WebBrowser1.Navigate "https://maps.google.ru/maps?q=Санкт-Петербург,+Зимний+дворец"

http://www.gdeetotdom.ru/map а на этом сайте, к сожалению, в строку поиска не знаю как вставить текст.
 
 
 
#15
14.02.2018 10:33:14
Юрий М
круто =)
Что такое всё?
 
 
 
Страницы: 1
Наверх