‘■Excel.Application
Public Const xls2003 = “C:\Program Files (x86)\Excel2003 (VMware ThinApp)\Microsoft Office Excel 2003.exe”
Public Const xls2010 = “C:\Microsoft Office\Office14\EXCEL.exe”

If strXlsVer = 8 Then ‘EXCELのバージョン
Call Shell(xls2003 & “”” & FilePath & “””, vbNormalFocus) ‘★
Else
Workbooks.Open “aaa.xls”
End If