如何验证Excel文件已成功导入MS Access？

似乎无法在网上找到这个答案，所以在这里我们去。如何验证Excel文件已成功导入MS Access？

我有一些代码，拉一个Excel文件，它的数据输入到一个表到MS Access中的表2007

我如何可以验证该文件已成功导入？

例如：

If excel did import Then 
MsgBox "Import successful" 
Else If Excel didnt import 
MsgBox "Import Not successful"

我目前使用下面的代码导入Excel文件：

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tblData", "FilePath", True, "Sheet1!"

感谢

来源

2013-03-04 Anton Hughes

您究竟如何在Access中执行导入？ – 2013-03-04 12:27:13

对不起，我忘了补充一点，代码上面加了 – 2013-03-04 13:18:03

终于得到它环顾四周后！

将此代码放在'DoCmd.TransferSpreadsheet'代码之后。

If DBEngine.Errors.Count = 0 Then 

    MsgBox "Imported data successfully!" 

ElseIf DBEngine.Errors.Count > 0 Then 

    MsgBox "The file did not import!" 
    Exit Sub 

End If

来源

2013-03-04 13:38:58

虽然这个答案解决了一个问题，我发现'DBEngine.Errors.Count'在传输命令前是1。没有错误被触发。所以我修改了上面的过程，在传输之前设置了一个等于'DBEngine.Errors.Count'的变量，并测试了传输命令后是否增加了'DBEngine.Errors.Count'。 – geoB 2014-05-02 21:58:51

如何验证Excel文件已成功导入MS Access？

回答

相关问题