Excel导出到Access,通过VBA导致不稳定
问题描述:
我必须在Excel中创建超过170个命名范围,我试图加载到Access表中。以下是我的代码。Excel导出到Access,通过VBA导致不稳定
Sub Load_To_ALLL_TSD()
Dim strDatabasePath As String
Dim oApp As Access.Application
Dim PathOfworkbook As String
PathToDB = ThisWorkbook.Path
strDatabasePath = PathToDB & "\RAROC.accdb"
Set oApp = CreateObject("Access.Application")
'Set db = Application.CurrentProject
oApp.Visible = True
oApp.OpenCurrentDatabase strDatabasePath
Set db = CurrentDb()
Set rs = db.OpenRecordset("ALLL_TSD", dbOpenTable)
With oApp
With rs
.AddNew ' create a new record
' add values to each field in the record
.Fields("TSD_Base_Rate_Received") = Range("TSD_Base_Rate_Received").Value
.Fields("TSD_Base_Rate_Received_Input") = Range("TSD_Base_Rate_Received_Input").Value
.Fields("TSD_Calculated_RAROC") = Range("TSD_Calculated_RAROC").Value
.Fields("TSD_Capital_Factor") = Range("TSD_Capital_Factor").Value
' etc, etc, lot more fields and named ranges here
' add more fields if necessary...
.Update ' stores the new record
End With
End With
Set oApp = Nothing
MsgBox ("Done! All Data saved to RAROC database!!")
End Sub
我收到了一些奇怪的错误!如果我使用F8运行代码,它工作正常。如果我点击一个按钮来激活代码,有时它会起作用,有时它不起作用。我在几条不同的线路上发生了错误。
一旦它扔在这里的错误:
Set rs = db.OpenRecordset("ALLL_TSD", dbOpenTable)
错误读取“对象变量或没有设置块”
一旦说“的Microsoft Access已停止工作”,并在此抛出一个错误线。
点域( “TSD_Base_Rate_Received_Input”)=范围( “TSD_Base_Rate_Received_Input”)。价值
我见过的其他一些奇怪的事情了。
我有一个参考设置为两种:
Microsoft DAO 3.6 Object Library
Microsoft Access 14.0 Object Library
它几乎好像我建立访问连接,然后几乎立刻突然掉线,不知何故。
最后,我没有窗体或报告,并且数据库没有拆分。我现在只有一张桌子,我正在写信给他。
有人可以帮我吗?
谢谢!
答
这是一个没有使用Access的基本示例。
亟待Microsoft ActiveX数据对象的引用2.x库
Sub Tester()
Dim con As New ADODB.Connection, rs As New ADODB.Recordset
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;" _
& "Data Source = " & ThisWorkbook.Path & "\RAROC.accdb"
'get an empty recordset to add new records to
rs.Open "select * from [ALLL_TSD] where false", con, _
adOpenDynamic, adLockBatchOptimistic
With rs
.AddNew
.Fields("TSD_Base_Rate_Received") = Range("TSD_Base_Rate_Received").Value
.Fields("TSD_Base_Rate_Received_Input") = Range("TSD_Base_Rate_Received_Input").Value
.Fields("TSD_Calculated_RAROC") = Range("TSD_Calculated_RAROC").Value
.Fields("TSD_Capital_Factor") = Range("TSD_Capital_Factor").Value
'etc...
.UpdateBatch '<< EDIT
.Close
End With
con.Close
End Sub
'设置DB = oApp.CurrentDb()'你不需要为了将数据加载到表自动访问虽然:你可以更简单地使用ADO来做到这一点。例如。 https://*.com/questions/32821618/insert-full-ado-recordset-into-existing-access-table-without-loop –
哇。接得好。我尝试过,但仍然无效。当代码失败时,我把它放在立即窗口中:?db.name 我得到'运行时错误462:远程服务器机器不存在或不可用' – ryguy72