导入Excel文件以使用VBA进行访问

下午好，

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

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

问候

背风处

Answer 1

你根本不需要另外两个表。 当您使用DoCmd.TransferSpreadsheet方法导入。 如果您传递的表存在，数据将被附加到表中，如果表不存在，则创build一个新表。

 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