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
uj5u.com熱心網友回復：
疑似office的版本問題uj5u.com熱心網友回復：
我不會我不會uj5u.com熱心網友回復：
頭一天注冊就灌水，讓你去小黑屋反省吧。
uj5u.com熱心網友回復：
路徑或者資料庫驅動問題，具體你加一個on error goto errp:
...你的代碼
exit sub
errp:
msgbox err.description '輸出下錯誤資訊
uj5u.com熱心網友回復：
不要參考就可以了，物件全由CreatObject創建使用。還有一種偏門的方法，就是讀注冊表，得到當前Excel的版本，根據注冊表找到DLL所在位置，然后直接通過DLL檔案創建"COM組件"使用（這個方法可以動態創建COM組件，且不用注冊組件也可使用），根據版本的不同轉入每個版本特殊的處理程序使用物件。具體的可以去了解 IUnknown、LoadCOMObject，很簡單的
uj5u.com熱心網友回復：
以前遇到過，office組建，需要這個包或者 庫需要版本一致，你打包時需要選多個組件庫uj5u.com熱心網友回復：
可能是office版本問題uj5u.com熱心網友回復：
我覺得vb很好很強大uj5u.com熱心網友回復：
conn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0; data source=" & App.Path & "\2018.mdb;"缺少控制元件就會有問題，請安裝OFFICE 2000以上版本。應該就可以了。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/42071.html
標籤：VB基礎類
上一篇：VB.NET表單嵌入