使用 VBA 将 Excel 文件导入 Access答案

【问题标题】：Import Excel file to Access with VBA使用 VBA 将 Excel 文件导入 Access
【发布时间】：2014-09-19 16:55:27
【问题描述】：

下午好，

我今年一直在做一个 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

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

问候

李

【问题讨论】：

标签： excel ms-access vba

【解决方案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

【讨论】：