How can I execute a shell command using VBA?

Question

I want to execute a shell command like the following using Visual Basic for Applications.

C:\Temp\gc.exe 1

How can I do it?

Jim Counts · Accepted Answer · 2010-02-18 16:49:46Z

13

Example:

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

Link: Shell Invoked from VBA

answered Feb 18, 2010 at 16:49

Jim Counts

12.8k9 gold badges49 silver badges63 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

rchacko · Accepted Answer · 2016-01-15 02:54:15Z

This shows the scenarios where you want to call an exe file and pass an argument to it using shell command. The following code checks the folder where chrome.exe residing and calling www.google.com, from there (assuming you installed chrome) by passing url as argument:

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

Collectives™ on Stack Overflow

How can I execute a shell command using VBA?

2 Answers 2

Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related