如下代码，将excel资源文件释放到桌面，然后用VB语句打开该工作簿，运行时提示“应用程序定义或对象定义错误”，程序停止在Set exlBook = exlApp.Workbooks.Open("C:\Users\Administrator\Desktop\选型参数.xlsx")这个语句上。检查了多次程序语句也没发现错误，
我已经检查过，资源文件已经成功释放到桌面，并可以用excel打开，文件没有问题，所以应该是程序语句上有错误的地方。哪位老师能指点一下看看错在哪里，谢谢！

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编辑过]

VB附件要把整个相关文件一起压缩起来上传

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

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

代码所在的文件 Form1.frm 没在压缩包里。
代码所需的 资源文件 工程1.RES 也没有。

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

收到的鲜花

• duzihanghai 于 2021-10-08 16:19 送鲜花  2朵  

你这是佛系上传啊。。。。工程-引用-勾选excel-object试一下

收到的鲜花

• duzihanghai 于 2021-10-08 16:19 送鲜花  2朵  

不好意思啊老师，刚开始做VB，不明白的东西太多，重新打包上传一下，您再帮我看看，谢了！

不好意思啊老师，刚开始做VB，不明白的东西太多，重新打包上传一下，您再帮我看看，谢了！

您说的这个“工程-引用-勾选excel-object”我是已经引用了的，但问题依然存在。

Dim exlApp As excel.Application
这句是定义excel的语句

问题已经解决，经多次尝试是资源文件有错误，重新上传excel资源文件后程序运行正常，感谢各位老师的帮助！