| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
买学问 - 大佬一对一辅导,有问必答买学问 - 专业的付费知识问答平台
共有 190 人关注过本帖
标题:用VB6.0打开excel文件时提示“应用程序定义或对象定义错误”这个是什么意思 ...
只看楼主 加入收藏
duzihanghai
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2021-9-16
结帖率:66.67%
收藏
已结贴  问题点数:5 回复次数:9 
用VB6.0打开excel文件时提示“应用程序定义或对象定义错误”这个是什么意思?
如下代码,将excel资源文件释放到桌面,然后用VB语句打开该工作簿,运行时提示“应用程序定义或对象定义错误”,程序停止在Set exlBook = exlApp.Workbooks.Open("C:\Users\Administrator\Desktop\选型参数.xlsx")这个语句上。检查了多次程序语句也没发现错误,
我已经检查过,资源文件已经成功释放到桌面,并可以用excel打开,文件没有问题,所以应该是程序语句上有错误的地方。哪位老师能指点一下看看错在哪里,谢谢!

图片附件: 游客没有浏览图片的权限,请 登录注册

测试文件.rar (609 Bytes)

程序代码:
Private Sub Command1_Click()

Dim exlApp As Excel.Application '声明对象变量
Dim exlBook As Excel.Workbook
Dim exlSheet As Excel.Worksheet
Dim temp1() As Byte '释放资源文件
temp1 = LoadResData(102, "CUSTOM")
Open "C:\Users\Administrator\Desktop\选型参数.xlsx" For Binary Access Write As #2
Put #2, , temp1()
Close #2

Set exlApp = Excel.Application '实例化对象新建excel应用
Set exlBook = exlApp.Workbooks.Open("C:\Users\Administrator\Desktop\选型参数.xlsx") '打开桌面选型结果工作簿
Set exlSheet = exlBook.Worksheets("选型参数") '打开选型参数工作表
Set exlSheet2 = exlBook.Worksheets("选型结果") '打开选型结果工作表
exlApp.Visible = False '使Excel隐藏不可见

exlApp.DisplayAlerts = False '不提示是否覆盖
exlBook.Close (False) '关闭工作簿
exlApp.Visible = False
exlApp.Quit '结束EXCEL对象

Set exlSheet = Nothing
Set exlBook = Nothing
Set exlApp = Nothing '释放xlApp对象
End Sub


[此贴子已经被作者于2021-10-7 10:08编辑过]

搜索更多相关主题的帖子: 打开 对象 excel Set 定义 
2021-10-07 10:03
约定的童话
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:7
帖 子:49
专家分:256
注 册:2021-8-1
收藏
得分:3 
VB附件要把整个相关文件一起压缩起来上传
2021-10-08 09:31
duzihanghai
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2021-9-16
收藏
得分:0 
回复 2楼 约定的童话
测试文件2021-10-7.rar (10.6 KB)

不好意思,附件在这里重新上传一下,感谢帮助!

[此贴子已经被作者于2021-10-8 10:07编辑过]

2021-10-08 10:05
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:310
帖 子:4706
专家分:29201
注 册:2008-10-15
收藏
得分:3 
代码所在的文件 Form1.frm 没在压缩包里。
代码所需的 资源文件 工程1.RES 也没有。

Set exlApp = Excel.Application '实例化对象新建excel应用
这行命令有问题吧!EXCEL 在哪里定义的???

收到的鲜花
  • duzihanghai2021-10-08 16:19 送鲜花  2朵  

授人于鱼,不如授人于渔
早已停用QQ了
2021-10-08 11:35
约定的童话
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:7
帖 子:49
专家分:256
注 册:2021-8-1
收藏
得分:0 
你这是佛系上传啊。。。。工程-引用-勾选excel-object试一下
收到的鲜花
  • duzihanghai2021-10-08 16:19 送鲜花  2朵  
2021-10-08 12:56
duzihanghai
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2021-9-16
收藏
得分:0 
回复 4楼 风吹过b
测试文件2021-10-7.rar (264.63 KB)

不好意思啊老师,刚开始做VB,不明白的东西太多,重新打包上传一下,您再帮我看看,谢了!
2021-10-08 14:43
duzihanghai
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2021-9-16
收藏
得分:0 
回复 5楼 约定的童话
不好意思啊老师,刚开始做VB,不明白的东西太多,重新打包上传一下,您再帮我看看,谢了!
测试文件2021-10-7.rar (264.63 KB)
2021-10-08 14:50
duzihanghai
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2021-9-16
收藏
得分:0 
回复 5楼 约定的童话
您说的这个“工程-引用-勾选excel-object”我是已经引用了的,但问题依然存在。
2021-10-08 14:54
duzihanghai
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2021-9-16
收藏
得分:0 
回复 4楼 风吹过b
Dim exlApp As excel.Application
这句是定义excel的语句
2021-10-08 14:56
duzihanghai
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2021-9-16
收藏
得分:0 
问题已经解决,经多次尝试是资源文件有错误,重新上传excel资源文件后程序运行正常,感谢各位老师的帮助!
2021-10-08 16:18
快速回复:用VB6.0打开excel文件时提示“应用程序定义或对象定义错误”这个是什么 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.110545 second(s), 10 queries.
Copyright©2004-2021, BCCN.NET, All Rights Reserved