Excel.Application.Range的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

安装对应的office

dim XXX as OBJECT

语法就错了，Range不是Excel.Application的子类，而是Excel的子类，用Excel.Range形式上才是正确的
但即便如此，Range这个子类就不能用New关键字或者CreateObject函数来新建实例，只能将一个现有的引用赋值给Range类的变量
所以你就老老实实把这两句Set删掉就好

Dim X As Object
Dim Y As Object
If 关卡.ChapterLabel = xlsApp.Level.Cells(X, 1).Value Then
X = ActiveCell.Row
End If
If 关卡.登场1.Caption = xlsApp.Level.Cells(1, Y).Value Then
Y = ActiveCell.Column
End If
删掉set后运行，说对象不支持改属性……

Private Sub 登场1_Click()
Dim xlsApp As Excel.Application
Dim xlsWorkbook As Excel.Workbook
Dim xlssheet As Excel.Worksheet
Set xlsApp = CreateObject("Excel.Application") '新建Excel对象
Set xlsWorkbook = xlsApp.Workbooks.Open(App.Path & "\data.xlsx") '打开EXCEL工作簿
Set xlssheet = xlsWorkbook.Worksheets(1) '打开EXCEL工作表
X = xlsWorkbook.Sheets("Level").Range("A1:AE1").Cells.Find("关卡.ChapterLabel").Row
'这里关卡.ChapterLabel作为一个变量，想在EXCEL中找到对应这个值的X轴对应坐标
Y = xlsWorkbook.Sheets("Level").Range("A2:A61").Cells.Find("关卡.登场1.Caption").Column
'这里关卡.登场1.Caption作为一个变量，想在EXCEL中找到对应这个值的Y轴对应坐标
If 关卡.登场1.Caption = xlsApp.Range("B2").Value Then
角色.LevelLabel2 = xlsApp.Cells(X, Y)
ElseIf 关卡.登场1.Caption = xlsApp.Range("B3").Value Then
角色.LevelLabel2 = xlsApp.Cells(X, Y)
End If
xlsWorkbook.Close SaveChanges:=False
xlsApp.Quit
Set xlsWorkbook = Nothing
Set xlssheet = Nothing
Set xlsApp = Nothing '释放Excel对象
End Sub
如果换成这样呢？
错误：91
对象变量或with块变量未设置

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

8回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六