使用VBA将数据导出到Access (循环问题)

Sub ExportToAccess()
    Dim db As Object
    Dim rs As Object
    Dim strSQL As String
    Dim i As Integer
    
    ' 设置数据库文件路径和名称
    Const strDBPath As String = "C:\Path\To\Your\Database.accdb"
    
    ' 创建数据库对象
    Set db = CreateObject("Access.Application")
    
    ' 打开数据库
    db.OpenCurrentDatabase strDBPath
    
    ' 创建记录集对象
    Set rs = db.CurrentDb.OpenRecordset("YourTableName")
    
    ' 清空目标表中的数据
    strSQL = "DELETE FROM YourTableName"
    db.CurrentDb.Execute strSQL
    
    ' 循环导出数据
    For i = 1 To ThisWorkbook.Sheets("Sheet1").UsedRange.Rows.Count
        ' 构建插入数据的SQL语句
        strSQL = "INSERT INTO YourTableName (Field1, Field2, Field3) VALUES (" & _
                 "'" & ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value & "', " & _
                 "'" & ThisWorkbook.Sheets("Sheet1").Cells(i, 2).Value & "', " & _
                 "'" & ThisWorkbook.Sheets("Sheet1").Cells(i, 3).Value & "')"
        
        ' 执行SQL语句
        db.CurrentDb.Execute strSQL
    Next i
    
    ' 关闭记录集和数据库
    rs.Close
    db.Close
    
    ' 释放对象变量
    Set rs = Nothing
    Set db = Nothing
    
    MsgBox "数据导出完成！"
End Sub