VB源代碼：
Dim xlsApp As Object
Dim Cnn As New ADODB.Connection
Dim Rs As ADODB.Recordset
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbpath & "\Main.mdb" & _
";Mode = 12;Jet OLEDB:Database Password=xwSD-YY$p$~djj888"
If Cnn.State <> ADODB.ObjectStateEnum.adStateClosed Then Cnn.Close
Cnn.Open
Set Rs = New ADODB.Recordset
With Rs
Set .ActiveConnection = Cnn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Open "SELECT * FROM od "
End With
If Rs.EOF Then Exit Sub
Set xlsApp = CreateObject("Excel.Application")
' xlsApp.Visible = True
' ('" & DH & "', '" & Text1.Text & "', '" & Date & "', '" & SJ & "', '" & DM & "')"
xlsApp.Workbooks.Add
xlsApp.Sheets("sheet1").Select
xlsApp.ActiveSheet.range("A1") = "單號"
xlsApp.ActiveSheet.range("B1") = "金額"
xlsApp.ActiveSheet.range("C1") = "日期"
xlsApp.ActiveSheet.range("D1") = "時間"
xlsApp.ActiveSheet.range("E1") = "店名"
xlsApp.ActiveSheet.range("A2").CopyFromRecordset Rs
'xlBook.SaveAs ("D:\vbexcel\" & str)
xlsApp.ActiveSheet.range("d:d").NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
'
If xlsApp.ActiveWorkbook.Saved = False Then
xlsApp.ActiveWorkbook.SaveAs Environ("USERPROFILE") & "\Desktop" & "\" & "小票統計" & Year(Now()) & Month(Now()) & Day(Now()) & Hour(Now) & Minute(Now) & Second(Now) & ".xls"
End If
xlsApp.Quit
Rs.Close
Set Rs = Nothing
Set xlsApp = Nothing
手動注冊 regsvr32 "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll"等dll沒有用
請大神幫忙解決，，小弟新手，
uj5u.com熱心網友回復：
可以嘗試下載并安裝MDAC2.8:https://www.microsoft.com/zh-CN/download/details.aspx?id=5793
uj5u.com熱心網友回復：
管理員權限運行regsvr32uj5u.com熱心網友回復：
除錯一下，看報錯后錯誤定位在哪行代碼上？uj5u.com熱心網友回復：
Set xlsApp = CreateObject("Excel.Application") 是這行發生錯誤嗎？你本機確定安裝了Excel了嗎？uj5u.com熱心網友回復：
429錯誤我通常如下處理1 管理員模式，命令列運行如下兩句，重新注冊所有控制元件
for %1 in (%windir%\system32\*.ocx) do regsvr32 /s %1
for %1 in (%windir%\system32\*.dll) do regsvr32 /s %1
2 確保自己撰寫的或參考的第三方 ocx，dll等控制元件有效注冊成功，我通常會把他們依據作業系統版本復制到相應的 %systemroot%\system32 或 %systemroot%\syswow64 下注冊
3 如呼叫了office組件，那么確保 當前機器安裝了相應的 office 組件，如已安裝，可以考慮重新安裝，或安裝低版本試試
總之先跟蹤下，看看具體是那一句出錯，才好針對性的查找決絕方案
uj5u.com熱心網友回復：
429錯誤的含義：ActiveX 部件不能建立物件或回傳對此物件的參考轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/15174.html
標籤：VB基礎類