请问错误号是424的是什么原因造成的，谢

[zfcheng]

Dim xlCheckApp As Object
Set xlCheckApp = CreateObject("Excel.Application")

然后就出错，错误号是：424

在98下没有问题，但在NT下有这种问题

[uguess]

在指定对象的引用时，没有使用 Set 语句。
如果指定 CreateObject 调用的返回值为 Variant 变量，那么如果省略 Set 语句的话，此错误就可能会发生。在以下的代码示例中，创建一 个 Microsoft Excel 隐含实例，且返回 Variant RetVal 的缺省属性 ("Microsoft Excel" 字符串）并赋给 Variant RetVal，然后将 RetVal 当作对象引用时，发生了此错误：

Dim RetVal ' 为一个 Variant。
' 缺省属性赋值为类型 8，即 Variant RetVal。
RetVal = CreateObject("Excel.Application")
RetVal.Visible = True ' 错误在此发生。

当给引用的对象赋值时，请使用 Set 语句。

[zfcheng]

可是我用了SET啊

Set xlCheckApp = CreateObject("Excel.Application")

[Jneu]

Dim xlCheckApp As Excel.Application

[Jneu]

请将问题转到VBA专栏。

[zfcheng]

Jneu(沧海桑田):
你的做法我也试过，但不是424的错误号，所有都是在NT下才出现这个错误，但在98同2000都没有如此问题

[zfcheng]

打错了，都是424错误

[uguess]

升级NT的OLE组件！

[zfcheng]

用哪个升级，在哪里下载，最新版本号？

[uguess]

可以通过安装微软站上免费提供的MDAC_TYP.EXE实现。

[zfcheng]

问题还是一样，但在98同2000就没有问题