A
arieribbens
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
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