Open .xls with viewer

if you goto Project > Components you can add the Microsoft Internet Controls which will give you the Webbrowser control. If you add that control you can view excel files using something like this:


Private Sub Command1_Click()
WebBrowser1.Navigate2 "C:\Test.xls"
End Sub

Well what I have is a program where you can choose what .xls you want to view. Each .xls has about 10-50 sheets in it. I can open it fine on workstations with full versions of office. But some workstations, I don't want to use Internet Explorer or Full version excel because they don't have it on those. But to open it with Excel Viewer.

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
     ByVal hwnd As Long, _
     ByVal lpOperation As String, _
     ByVal lpFile As String, _
     ByVal lpParameters As String, _
     ByVal lpDirectory As String, _
     ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
Dim xlsPath, xlsVwr As String
Dim retVal As Long

'Path of excelviewer can be extracted out of the registry.
'
'HKEY_CLASSES_ROOT\Applications\xlview.exe\shell\open\command
'@="C:\\PROGRA~1\\MICROS~3\\OFFICE11\\XLVIEW.EXE /e"
xlsVwr = "C:\PROGRA~1\MICROS~3\OFFICE11\XLVIEW.EXE"

'Path of the XLS File
xlsPath = App.Path & "\map1.xls"

'Run the Viewer
retVal = ShellExecute(Me.hwnd, "Open", xlsVwr, xlsPath, "", 1)


End Sub