FIX: GeoFacts Sample Causes Automation Error on NT (178167)
The information in this article applies to:
- Microsoft Visual Basic Professional Edition for Windows 5.0, when used with:
- the operating system: Microsoft Windows NT
- the operating system: Microsoft Windows 2000
- Microsoft Visual Basic Enterprise Edition for Windows 5.0, when used with:
- the operating system: Microsoft Windows NT
- the operating system: Microsoft Windows 2000
- Microsoft Visual Basic Professional Edition, 16-bit, for Windows 4.0, when used with:
- the operating system: Microsoft Windows NT
- the operating system: Microsoft Windows 2000
- Microsoft Visual Basic Professional Edition, 32-bit, for Windows 4.0, when used with:
- the operating system: Microsoft Windows NT
- the operating system: Microsoft Windows 2000
- Microsoft Visual Basic Enterprise Edition, 16-bit, for Windows 4.0, when used with:
- the operating system: Microsoft Windows NT
- the operating system: Microsoft Windows 2000
- Microsoft Visual Basic Enterprise Edition, 32-bit, for Windows 4.0, when used with:
- the operating system: Microsoft Windows NT
- the operating system: Microsoft Windows 2000
This article was previously published under Q178167 SYMPTOMS
The GeoFacts.vbp sample project fails with the following run-time error
when run on a Windows NT or Windows 2000 machine:
Run-time error '-2147467259 (80004005)':
Automation error
This error does not occur on a Windows 95, Windows 98, or Windows Me machine.
CAUSE
The run-time error occurs on the following line of code:
Set shtWorld = GetObject("world.xls")
The GetObject function fails because the full path to world.xls is not
specified in the argument.
RESOLUTION
When using the GetObject function, make sure that the full path to the file
name is specified. To correct the code in the GeoFacts.vbp sample, change
the following line of code (located in the Setup procedure in Module1):
Set shtWorld = GetObject("world.xls")
to:
Set shtWorld = GetObject(app.path & "\world.xls")
STATUS
Microsoft has confirmed this to be a bug in the Microsoft products listed
at the beginning of this article. This bug has been fixed in Visual Basic
6.0.
REFERENCES
For additional information, please see the following articles in the
Microsoft Knowledge Base:
143461
XL97: CreateObject and GetObject Work Differently
178166
PRB: GeoFacts Sample Causes Type Mismatch Error with
Excel 97
| Modification Type: | Minor | Last Reviewed: | 7/13/2004 |
|---|
| Keywords: | kbAutomation kbBug kbfix kbVBp600fix KB178167 |
|---|
|