Open .xls with viewer

I have a program that will open .xls files with the full version of excel. How can i get it to open the fiels with excel viewer. This is with Visual Basic 6
LVL 1
KiriusAsked:
Who is Participating?
 
vinnyd79Commented:
if you are using shellexecute api it will launch xls files with the default app which would be the full version of excel if it exists. To launch the viewer you will need to have it's location:

Private Sub Command1_Click()
Dim ExcelFile as String
ExcelFile =  Chr(34) & "C:\Test.xls" & Chr(34)

Shell Chr(34) & "C:\Program Files\Microsoft Office\OFFICE11\XLVIEW.EXE" & Chr(34) & " " & ExcelFile, vbNormalFocus

End Sub
0
 
vinnyd79Commented:
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
0
 
KiriusAuthor Commented:
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.
0
 
ByteWolfCommented:
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
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.