2つの場所でファイルを検索して開くためのVBAコード

Question

SAPファイル（C：\ Program Files（x86）\ SAP \ FrontEnd \ SAPgui \ saplogon.exe）を開くマクロがあります。 C：\プログラムファイル\ SAP \ FrontEndの\にSAPgui \ saplogon.exe）同じコードでは、いずれかの場所で検索し

コードは、それを開くために：

Private Sub Workbook_Open() 

Dim sapConn As Object 

Set objshell = CreateObject("WScript.Shell") 
Set objapp = objshell.Exec("C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe") 
Set sapConn = CreateObject("SAP.Functions") 'Create ActiveX object 

     sapConn.Connection.ApplicationServer = "C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe" 
     sapConn.Connection.Client = "100" ' only read access 


End Sub 

Answer 1

どのフォルダが実行する前に存在しているかどうかのチェックについてプログラム：

Sub foo2() 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set shl = CreateObject("WScript.Shell") 

Path = "C:\Program Files (x86)\SAP\FrontEnd\SAPgui\" 'path to folder 
exists = fso.FolderExists(Path) 

If (exists) Then 
    program = "saplogon.exe" 'Program name to run 
    shl.Run (Path & program) 'Run a program 
Else 
    Path = "C:\Program Files\SAP\FrontEnd\SAPgui\" 
    program = "saplogon.exe" 'Program name to run 
    shl.Run (Path & program) 'Run a program 

End If 
    Set sapConn = CreateObject("SAP.Functions") 'Create ActiveX object 
    sapConn.Connection.ApplicationServer = "C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe" 
    sapConn.Connection.Client = "100" ' only read access 
End Sub