Question

下午好，

今年我一直在研究一个Access数据库项目，VBA对我来说完全不了解。我有VBA代码将Excel数据导入我的数据库中的临时表，然后附加到正确的表，它可以工作，但我很好奇，如果这是编码和内存使用最有效的方式？

Function TempReview()  
On Error GoTo TempReview_Err  

DoCmd.SetWarnings False  
DoCmd.OpenQuery "ClearTempReview", acViewNormal, acEdit  
DoCmd.TransferSpreadsheet acImport, 10, "TempReview", "M:\filename.xlsx", True, ""  
DoCmd.OpenQuery "AppendReview", acViewNormal, acEdit   

TempReview_Exit:  
Exit Function  

TempReview_Err:  
MsgBox Error$  
Resume TempReview_Exit  

End Function

我在数据库的其他方面有类似的功能，如果可以，我也希望改进。

此致

利

Answer 1

根本不需要其他两个表。当您使用DoCmd.TransferSpreadsheet方法导入时。如果您传递的表存在，则数据将附加到表中，如果该表不存在，则创建新表。

Function TempReview()  
On Error GoTo TempReview_Err   
    DoCmd.TransferSpreadsheet acImport, 10, "yourActualTable", "M:\filename.xlsx", True, ""

TempReview_Exit:  
    Exit Function  

TempReview_Err:  
    MsgBox Error$  
    Resume TempReview_Exit  
End Function

使用VBA将Excel文件导入Access

1 个答案: