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

它几乎好像我建立访问连接，然后几乎立刻突然掉线，不知何故。

最后，我没有窗体或报告，并且数据库没有拆分。我现在只有一张桌子，我正在写信给他。

有人可以帮我吗？

谢谢！

来源

2017-07-06 ryguy72

'设置DB = oApp.CurrentDb（）'你不需要为了将数据加载到表自动访问虽然：你可以更简单地使用ADO来做到这一点。例如。 https://stackoverflow.com/questions/32821618/insert-full-ado-recordset-into-existing-access-table-without-loop –

哇。接得好。我尝试过，但仍然无效。当代码失败时，我把它放在立即窗口中：？db.name 我得到'运行时错误462：远程服务器机器不存在或不可用' – ryguy72

这是一个没有使用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

来源

2017-07-06 22:06:17

谢谢蒂姆。这看起来应该起作用，但它实际上并没有做任何事情。 – ryguy72

对不起，我的错误应该是'UpdateBatch'而不是'更新' –

它的工作原理！谢谢Tim！ – ryguy72

Excel导出到Access，通过VBA导致不稳定

回答

相关问题