再求问！对象变量或with块变量未设置，哪里写错了吗╮(╯_╰)╭

Set X = CreateObject("scripting.dictionary")
Set Y = CreateObject("scripting.dictionary")
Set X = xlsApp.Sheets("Level").Range("A1:AE1").Cells.Find("关卡.登场1.Caption").Column
'这里关卡.登场1.Caption作为一个变量，想在EXCEL的Level页签中找到对应这个值的X轴对应坐标
Set Y = xlsApp.Sheets("Level").Range("A2:A61").Cells.Find("关卡.ChapterLabel.Caption").Row
'这里关卡.ChapterLabel.Caption作为一个变量，想在EXCEL的Level页签中找到对应这个值的Y轴对应坐标
If 关卡.登场1.Caption = xlsApp.Range("B2").Value Then
角色.LevelLabel2 = xlsApp.Level.Cells(X, Y).Value
错误：91
对象变量或with块变量未设置

xlsApp 对象未宣告未定义

把最上面一行强制声明变量去掉能运行就声明一下，不能运行就要检查系统是否安装了对应的DLL

xlsApp.Sheets("Level").Range("A1:AE1").Cells.Find("关卡.登场1.Caption").Column这玩意儿返回的是一个整数
你一开始的定义Set X = CreateObject("scripting.dictionary")是一个对象
没见过这么给对象赋值的

LZ不是我说你，你这样自己从网上东拼西凑的找一些自己都不懂的代码胡乱堆在一起有意思么……还不如直接说明自己的目的，让别人帮你代写代码呢

x,y是行列号，只要声明为long即可
dim x as long ,y as long
至于错误，如果打开Excel没问题的话，多半是后面的
关卡.登场1.Caption
角色.LevelLabel2
有问题，这个格式说明“关卡”，“关卡.登场1”都是VB中的对象（而不是Excel中），显然事实上应该不是。
要操作Excel中的对象，需要获取这个对象的引用，比如Cell对象，Range对象可以通过sheet对象来访问（因为Sheet对象包含了这些对象），如果“关卡”是在Excel里添加的标签，需要另外的方式，具体需要自己查资料了。

检查是否安装了要引用的sdk

扫二维码下载贴吧客户端

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

14回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六