Vba 如何验证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!"

---

谢谢

环顾四周终于拿到了

将此代码置于“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

---

环顾四周，终于找到了

将此代码置于“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

---

您到底是如何在Access中执行导入的？抱歉，我忘了添加它，代码添加在上面。您在Access中执行导入的具体情况如何？抱歉，我忘了添加它，代码添加在上面。此答案解决了一个问题，我发现在传输命令之前，

DBEngine.Errors.Count

为1。没有以其他方式触发错误。因此，我修改了上述过程，在传输之前将变量设置为等于

DBEngine.Errors.Count

，并测试

DBEngine.Errors.Count

在传输命令之后是否增加。虽然此答案解决了一个问题，但我发现

DBEngine.Errors.Count

在传输命令之前为1。没有以其他方式触发错误。因此，我修改了上述过程，在传输之前将变量设置为等于

DBEngine.Errors.Count

，并测试在传输命令之后

DBEngine.Errors.Count

是否增加。