वीबीए का उपयोग करके मैं शेल कमांड कैसे निष्पादित कर सकता हूं?

Question

मैं अनुप्रयोगों के लिए विजुअल बेसिक का उपयोग कर निम्न की तरह एक शेल कमांड निष्पादित करना चाहता हूं।

C:\Temp\gc.exe 1 

मैं यह कैसे कर सकता हूं?

Answer 1

उदाहरण:

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

लिंक: Shell Invoked from VBA

Answer 2

इस परिदृश्य जहां एक exe फ़ाइल कॉल और शेल कमांड का उपयोग करके उसमें एक तर्क पास करना चाहते हैं पता चलता है। निम्नलिखित कोड फ़ोल्डर है जहाँ chrome.exe रहने वाले और www.google.com बुला, वहाँ से जाँच करता है (यह मानते हुए आप क्रोम स्थापित) तर्क के रूप में यूआरएल को पारित करके:

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