用VB6.0打开excel文件时提示“应用程序定义或对象定义错误”这个是什么意思？ - 编程论坛

如下代码，将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编辑过]