Подтвердить что ты не робот

Как я могу выполнить команду оболочки с помощью VBA?

Я хочу выполнить команду оболочки, как показано ниже, используя Visual Basic для приложений.

C:\Temp\gc.exe 1

Как я могу это сделать?

Ответ 1

Пример:

 retVal = Shell("C:\Temp\gc.exe 1", vbNormalFocus)

Ссылка: Shell, вызванная из VBA

Ответ 2

Здесь показаны сценарии, в которых вы хотите вызвать exe файл, и передать ему аргумент с помощью команды оболочки. Следующий код проверяет папку, где chrome.exe находится и вызывается на www.google.com, оттуда (при условии, что вы установили хром), передав url в качестве аргумента:

Public Sub Display_Google()
  Dim chromePath As String
  chromePath = "C:\Program Files\Google\Chrome\Application\chrome.exe"

  If FileExists(chromePath) Then
  Shell (chromePath & " -url" & " " & "www.google.com"), vbMaximizedFocus
  Else

  chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
  Shell (chromePath & " -url" & " " & "www.google.com"), vbMaximizedFocus
  End If
End Sub

Public Function FileExists(ByVal FileName As String) As Boolean
    On Error Resume Next
    FileExists = Not CBool(GetAttr(FileName) And (vbDirectory Or vbVolume))
    On Error GoTo 0
End Function