Access VBA：删除单元格值与 Access 表中的值匹配的 Excel 行

Question

我有一个 Access VBA 脚本

• 循环遍历目录中的 Excel 电子表格列表
• 循环遍历每个电子表格的每个工作表
• 将工作表中的数据导入 Access 表中

我想再添加一个步骤：

• 将Field1 列中的 Excel 值与 Access 表 Exclude 中的值列表进行比较，如果找到匹配项，则删除 Excel 中的整行。

这是简化的代码，附注指出新代码的位置：

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM FileList")
rs.MoveFirst

Dim appExcel As Excel.Application
Set appExcel = New Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objSheet As Excel.Worksheet

Do Until rs.EOF = True
    strFilePath = rs!FilePath
    Set objWorkbook = appExcel.Workbooks.Open(strFilePath)
    For Each objSheet In objWorkbook.Sheets
        objSheet.Select
        strQuery = 
           "INSERT INTO tblImport (Field1) 
            SELECT [Field1] 
            FROM [Excel 8.0;HDR=YES;DATABASE=" & strFilePath & "].[" & objSheet.Name & strRange & "]"
        CurrentDb.Execute strQuery, dbFailOnError
        ***Add Code Here to Delete Rows in Excel where value found in Exclusion table***
        Next objSheet
    Set objSheet = Nothing
    objWorkbook.SaveAs FileName:=strFilePath, FileFormat:=xlExcel8
    objWorkbook.Close SaveChanges:=False
    Set objWorkbook = Nothing
    rs.MoveNext
    Loop

我确定我需要 Dim 另一个 RecordSet：

Dim rsExclude AS Recordset
Set rsExclude = CurrentDb.OpenRecordset("SELECT * FROM Exclude")

然后呢？或者也许有人可以推荐一种替代方法？

Answer 1

好的，我想出了一个解决方案。我不相信它是“最佳的”（我希望有一个基于集合的解决方案，而不是这个迭代解决方案），但它的工作速度非常快。基本上，我添加了一个执行以下操作的 Do-While 循环：

• 遍历范围内的每个行号
• 根据 Access 表字段查找值
• 如果不匹配，则迭代计数器
• 如果匹配，则删除行，并减少总行数

添加以下代码：

Do While intRow <= strLastRow
    If IsNull(DLookup("Field1", "Exclude", "Field1 = '" & objSheet.Range("A" & intRow).Value & "'")) Then
        intRow = intRow + 1 'No match, move to next row
    Else
        objSheet.Rows(intRow).Delete 'Match found, delete row
        strLastRow = strLastRow - 1 'Decrease the number of rows in range
    End If
    Loop

Answer 2

另一种方法是在 Access 中创建删除查询，使用排除表作为条件。然后在您导入所有电子表格后从您的代码中执行查询（没有理由在每个电子表格之后运行它并减慢您的宏）。

或者只是修改您的插入查询来为您完成...

"INSERT INTO tblImport (Field1) 
SELECT [Field1] 
FROM [Excel 8.0;HDR=YES;DATABASE=" & strFilePath & "].[" & objSheet.Name & strRange & "]
WHERE [Field1] NOT IN (SELECT [yourFieldInExclusion] FROM Exclusion)"