I've made a form in VB6 and compiled an exe file. Clicking on the .ex
file opens the form, clicking on the button starts excel and opens
.xls file.
The code is:


Code
-------------------

Option Explicit



Private Sub Command1_Click()

Dim oXL As Excel.Application

Dim oWB As Excel.Workbook

Dim MyPath, MyName, MyFile As String



' Start Excel and get Application object.

Set oXL = CreateObject("Excel.Application")

oXL.Visible = True



' Get file



MyName = "\MySubFolder\MyXls.xls"

MyPath = App.Path

MyFile = MyPath & MyName

oXL.Workbooks.Open MyFile

oXL.Application.Visible = True



Exit Sub

Err_Handler:

MsgBox Err.Description, vbCritical, "Error: " & Err.Number



End Sub

-------------------



I get an error when excel is trying to open the .xls file (i'm sorry
can't describe the exact error, but i think it was something like
critical error in Myfile.exe caused .... in module <unknown at....).
the error occurs when the script is excecuting oxl.workbooks.open

This happened on two different machines running on windows98 an
office2000.

It works fine on my PC running on windows XP and office 2002 and on m
pc at work running on windows2000 and office 2002.

I've tried different codes for the line oxl.workbooks.open like:

oXL.Workbooks.Open (FileName:=MyFile)
oXL.Workbooks.Open ("C:\MySubFolder\MyXls.xls")
set oWB = oXL.Workbooks.Open(FileName:=MyFile)
set oWB = oXL.Workbooks.Open ("C:\MySubFolder\MyXls.xls")

None worked :(

Please help!

Thanks in advance!

Cheers,
Ari

--
Message posted from http://www.ExcelForum.com