Vba excel запустить приложение

Запуск и управление приложениями семейства MS Office

Иногда требуется управлять другими приложениями из VBA Excel. Начнем с приложений семейства Microsoft Office. Например, на основе произведенных расчетов в Excel надо сформировать текстовый документ в Word-е. Для начала в нашем проекте надо подключить библиотеку с объектами MS Word:

Tools=>References подключаем последнюю версию библиотеки Microsoft Word Object Library

Пример кода для запуска Word-а из VBA

Dim w As Word.Application
Set w = New Word.Application
w.Visible = True
w.Activate

Вот и все, мы запустили приложение Word.

Аналогичным способом можно запустить любое другое приложение из семейства Microsoft Office: Access, Outlook, PowerPoint. Можно получить к любому приложению, которое мы видим списке библиотек.

Для работы с внешним приложением необходимо ознакомиться с объектной моделью, изучить свойства и методы объектов.

Кроме запуска внешнего приложения, мы имеем полный доступ к объектам данного приложения. Можно писать макросы, которые будут управлять объектами Word  в данном случае.

Запуск внешнего приложения с помощью скрипта WScript.Shell.

Все очень просто

Sub RunShell()
Set WSShell = CreateObject("Wscript.Shell")
WSShell.Run """C:Program Files (x86)GoogleGoogle Earthclientgoogleearth.exe""", 1
End Sub

Главное пишем побольше кавычек (аж три штуки с краю), если путь содержит пробелы и прочие «противные» символы.

К сожалению, в данном случае, мы только запускаем внешнее приложение без доступа к его объектам.

Запуск и управление внешним приложением

В меню VBA=>Tools=>Refernces видно все COM-объекты приложений, которые установлены на вашем компьютере. Подключаем соответствующую библиотеку, например, «GrymCore». И мы получаем доступ к ДубльГису. С документацией API Дубль Гиса можно ознакомиться на их сайте.

I have a target file path that is structured like example below.

C:Program FilesTestfoobar.exe /G

What I need to do is be able to execute this file using VBA’s shell() command.

How do I have to format the file path to tell Shell() that there is an argument that it needs to call along with running the .exe

What I’ve read/tried (with no avail) is below with the results to the right.

file = """C:Program FilesTestfoobar.exe"" /G"    <---Bad file name or number (Error 52) 
shell(file)

file2 = "C:Program FilesTestfoobar.exe /G"       <---file never found
shell(file2)

I’ve succeeded with running other .exe’s using shell() so I know it’s not a problem with VBA or the function.

Example:

works = "C:Program FilesTesttest.exe"
shell(works)

I’m not particularly familiar with the process involved with executing files that require additional parameters so if I misspeak or you need more information, please let me know.

Модератор:Naeel Maqsudov

Sub start(command As String)
Set WshScript = CreateObject("WScript.Shell")
 D = WshScript.Run(command, 4, False)
End Sub

Set f = CreateObject("Scripting.FileSystemObject")
 MsgBox (f.GetSpecialFolder(SystemRoot))

Sub ShowPath()
MsgBox (Environ("path"))
end sub