用VB控制EXCEL,程序在XP系统下编译并打包成功,在XP下安装和运行成功!
但是在98下,安装成功!运行时出错,不得已,在98 下安装vb,并在98下写源代码,跟踪到myWorkSheet.Cells(1,1)="123"时,程序错误:运行时错误 -2147417848(80010108) 自动化错误”
不明原因,求高手相助,并高分相送!
但是在98下,安装成功!运行时出错,不得已,在98 下安装vb,并在98下写源代码,跟踪到myWorkSheet.Cells(1,1)="123"时,程序错误:运行时错误 -2147417848(80010108) 自动化错误”
不明原因,求高手相助,并高分相送!
关于Online提供的资料,已尝试用XP的文件覆盖98下的文件,结果引起98系统瘫痪,不知道上面讲的是用老的文件覆盖,不知比98老的该文件去哪找?
恳请各位帮忙!
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Private Sub Command1_Click() '打开EXCEL过程
If Dir("D:\temp\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("E:\bb.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
'xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL中的启动宏
Else
MsgBox ("EXCEL已打开")
End If
End SubPrivate Sub Command2_Click()
If Dir("D:\temp\excel.bz") <> "" Then '由VB关闭EXCEL
'xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
xlBook.Close (True) '关闭EXCEL工作簿
xlApp.Quit '关闭EXCEL
End If
Set xlApp = Nothing '释放EXCEL对象
End
End Sub
结果在XP下运行是OK,但是在98下运行到xlsheet.Cells(1, 1) = "abc" 时,报错!
在系统的D盘目录下都已经新建了一个bb的Excel文件了!
你的方法是指在98环境下升级OLEAUT32.DLL文件吗?
阁下的意思是去98安装盘上的OLEAUT32.DLL文件覆盖98系统下OLEAUT32.DLL文件吗?