Excel.Application.Range的ActiveX 部件不能创建对象？？

[蓝马骑士]

ActiveX 部件不能创建对象

Dim X, Y
Set X = CreateObject("Excel.Application.Range")
Set Y = CreateObject("Excel.Application.Range")

If 关卡.登场1.Caption = Level.Cells(X, 1) Then
X = ActiveCell.Row
End If

If 关卡.ChapterLabel = Level.Cells(1, Y) Then
Y = ActiveCell.Column
End If

我F2看了下Excel.Application.Range所引用的DAO3.6我已经加载了啊>.<

[小噤]

没有这样的对象Excel.Application.Range 都是这么用的Excel.Application

[threenewbee]

excel/office有没有安装，是不是完整版的

[赵4老师]

在Excel中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。