Question

似乎无法在网上找到这个答案，所以我们走了。

我有一些代码可以提取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!"

由于

Answer 1

环顾四周后终于明白了！

将此代码放在“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

如何验证excel文件是否已成功导入MS Access？

1 个答案: