如何將 excel 文件讀入 MS Access 數據庫並使用 VBA 對其運行數據驗證？

Question

我一直在閱讀許多可能會做到這一點的方法，但似乎沒有什么是確定的或完全適用於我的情況。

我想要做的是從我的桌面（在 MS Access VBA 中）讀取 excel 文件，然后在讀取它時我想對其運行一系列數據驗證。 比如檢查B16處的單元格是某個值還是某個字符串。 我需要能夠在檢查值和求和值時遍歷行。 想想一個包含大量會計條款和數字的 excel 文件。 我將如何驗證該數據？

我目前能夠讀取 excel 文件並將它們添加到使用以下方法訪問數據庫表：

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "MyTbl", _
            Me.txtFileName, True, "Sheet1!"

我還閱讀了有關使用記錄集、使用 ActiveX 數據對象和使用 DoCmd.TransferDatabase acLink 的信息。

將數據從 Excel 導入 MS Access

將 Excel 文件讀入 Access 數據庫的最佳方法

Answer 1

您說“然后在閱讀時”。 在執行 DoCmd.TransferSpreadsheet 時這是不可能的。

但是您可以在讀入 Recordset 后使用 Recordset 遍歷所有行（假定 MyTnl 是表的名稱）。 COL1、COL2、COL3 是示例字段名稱，但請使用 Sheet1 中的名稱。 如果 Sheet1 沒有列 header 名稱，那么您的字段名稱將采用 Field1、Field2 等形式：

    Dim rs As Recordset
    
    Set rs = CurrentDb.OpenRecordset("MyTbl")
    While Not rs.EOF
        ' you can perform your validations here by referencing values of your fields.
        Debug.Print rs.Fields("COL1"), rs.Fields("COL2"), rs.Fields("COL3")
        ' next row
        rs.MoveNext
    Wend
    Set rs = Nothing