j***@sompojapan.com.hk
21 years ago
Hi, there
I try to create an "Excel.Application" object using CreateObject function, I got "nothing" from the return variable without any error messages, but It works well on another computer, we have the same environment settings(include same references setting) on those 2 computers: Win2k/Sp4, VB6/Sp5, Mdac_type2.7, the following is source code snippet
Public appWorld As Excel.Applicatio
Public wbWorld As Excel.Workboo
Sub Setup()
On Error Resume Next 'ignore error
Set appWorld = GetObject(, "Excel.Application"
If Err.Number <> 0 The
Set appWorld = CreateObject("Excel.Application") 'run i
End I
Err.Clea
End Su
I got "nothing" from "appWorld", even I remark all of error handle lines, the same result I got, pls help me,thanks!
I try to create an "Excel.Application" object using CreateObject function, I got "nothing" from the return variable without any error messages, but It works well on another computer, we have the same environment settings(include same references setting) on those 2 computers: Win2k/Sp4, VB6/Sp5, Mdac_type2.7, the following is source code snippet
Public appWorld As Excel.Applicatio
Public wbWorld As Excel.Workboo
Sub Setup()
On Error Resume Next 'ignore error
Set appWorld = GetObject(, "Excel.Application"
If Err.Number <> 0 The
Set appWorld = CreateObject("Excel.Application") 'run i
End I
Err.Clea
End Su
I got "nothing" from "appWorld", even I remark all of error handle lines, the same result I got, pls help me,thanks!