vb做出来的软件在有的电脑上运行显示错误
vb做出来的软件在有的电脑上运行不能正常工作。程序是在win764位系统上做的,execl access是2010的 引用的是14.0 ,涉及到部分功能调用execl,有时候显示错误48 加载dll错误,有的时候显示class does not support Automation or does not support expected interface。程序是用factory7.0封装的。实验的电脑xp+2003(台式机)能用 win7 32位+office2010 (台式机)有的能用 有的(笔记本)就出现我描述的错误。大家给分析下问题出在哪里?是系统原因还是execl版本问题?有没有好的办法提高对execl个版本的支持的好方法?下面是部分代码
Private Sub daochu_Click()
Dim i, J, c As Long
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Call xinjian
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0; data source=" & App.Path & "\2018.mdb;"
conn.Open
rst.CursorLocation = adUseClient
rst.Open "select * from 新生表", conn, adOpenDynamic, adLockOptimistic
Dim MyApp As Object 'Dim MyApp As Excel.Application
Dim MyBook As Object 'Dim MyBook As Excel.Workbook
Dim MySheet As Object 'Dim MySheet As Excel.Worksheet
Set MyApp = CreateObject("Excel.Application")
MyApp.Visible = False
Set MyBook = MyApp.Workbooks.Add()
Set MySheet = MyBook.Worksheets(1)
For c = 0 To rst.Fields.Count - 1
MySheet.Cells(1, c + 1) = rst.Fields(c).Name
Next
J = 2
Do Until rst.EOF
For i = 1 To rst.Fields.Count
MySheet.Cells(J, i) = rst.Fields(i - 1)
Next
rst.MoveNext
J = J + 1
Loop
xinjian
MyBook.SaveAs "d:\本组报名结果\2018bmjg.xls"
MyApp.Quit
Set MyApp = Nothing
rst.Close
Set rst = Nothing
Set conn = Nothing
FileCopy App.Path & "\2018.mdb", "d:\本组报名结果\2018.mdb"
MsgBox "导出成功!文件在d:\本组报名结\2018bmjg.xls", vbOKOnly, "提示"
End Sub