Làm cách nào để thực hiện lệnh shell bằng VBA?

Question

Tôi muốn thực thi lệnh trình bao như sau bằng Visual Basic cho Ứng dụng.

C:\Temp\gc.exe 1 

Tôi làm cách nào?

Answer 1

Ví dụ:

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

Link: Shell Invoked from VBA

Answer 2

Điều này cho thấy kịch bản mà bạn muốn gọi một file exe và vượt qua một cuộc tranh cãi với nó sử dụng lệnh shell. Đoạn mã dưới đây để kiểm tra thư mục mà chrome.exe cư trú và gọi www.google.com, từ đó (giả sử bạn cài đặt chrome) bằng cách thông qua url như là đối số:

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