Private Declare Function RegOpenKeyEx Lib  "advapi32"  Alias _
       "RegOpenKeyExA"  (ByVal hKey As Long, ByVal lpSubKey As String, _
      ByVal dwReserved As Long, ByVal samDesired As Long, phkResult _
      As Long) As Long

      Private Declare Function RegQueryValueEx Lib  "advapi32"  Alias _
       "RegQueryValueExA"  (ByVal hKey As Long, ByVal lpValueName$, ByVal _
      lpdwReserved As Long, lpdwType As Long, lpData As Any, lpcbData As _
      Long) As Long

      Private Declare Function RegCloseKey Lib  "advapi32"  (ByVal hKey As _
      Long) As Long

      Const REG_SZ =  1 
      Const HKEY_CLASSES_ROOT = - 2147483648 #
' -------------------------------------------------------------------------------
 
Sub GetExcelPath()
Dim lcExt As String
Dim lcPath As String
Dim hKey As Long
Dim x1, x2 As Integer
lcString =  ".XLS" 
lcPath = Space( 256 )
nPath =  256 
RegOpenKeyEx HKEY_CLASSES_ROOT, lcString,  0 ,  0 , hKey
RegQueryValueEx hKey,  "", 0 ,  0 , ByVal lcPath, nPath
RegCloseKey hKey
lcString = Left(lcPath, nPath -  1 ) & "\Shell\Open\Command "
lcPath = Space(256 )
nPath =  256 
RegOpenKeyEx HKEY_CLASSES_ROOT, lcString,  0 ,  0 , hKey
RegQueryValueEx hKey, "",  0 , REG_SZ, ByVal lcPath, nPath
RegCloseKey hKey
lcPath = Left(lcPath, nPath- 1 )
x1 = InStr( 1 , lcPath, Chr( 34 )) +  1 
x2 = InStr( 2 , lcPath, Chr( 34 ))
lcPath=Mid(lcPath, x1, x2 - x1)
Shell lcPath
End Sub