VBA将Excel电子表格逐行导入Access

在这个问答内容中，我们需要将Excel电子表格逐行导入到Access数据库中。这里我们将使用VBA（Visual Basic for Applications）编程语言来实现这个功能。

首先，我们需要在Excel中创建一个宏，以便在Access数据库中创建一个新的表格，并将Excel数据导入到该表格中。以下是一个简单的VBA代码示例，用于将Excel电子表格逐行导入到Access数据库中：

Sub ImportToAccess()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim dbPath As String
    Dim tableName As String
    Dim fieldNames As String
    Dim fieldValues As String
    Dim i As Integer
    
    '设置数据库路径和表名
    dbPath = "C:\path\to\your\access\database.accdb"
    tableName = "YourTableName"
    
    '创建数据库连接
    Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath
    
    '创建新表
    conn.Execute "CREATE TABLE " & tableName & " (Field1 TEXT, Field2 TEXT)"
    
    '循环遍历Excel表格中的数据
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        fieldNames = "Field1, Field2"
        fieldValues = "'" & Cells(i, 1).Value & "', '" & Cells(i, 2).Value & "'"
        
        '将数据插入到Access表格中
        conn.Execute "INSERT INTO " & tableName & " (" & fieldNames & ") VALUES (" & fieldValues & ")"
    Next i
    
    '关闭数据库连接
    conn.Close
    Set conn = Nothing
End Sub

在这个示例中，我们首先创建了一个数据库连接，并创建了一个新的表格。然后，我们使用循环遍历Excel表格中的数据，并将数据插入到Access表格中。最后，我们关闭了数据库连接。

需要注意的是，这个示例仅用于演示目的，实际应用中可能需要根据具体情况进行修改和优化。例如，可以根据需要调整表格结构、字段类型、数据类型等。

推荐的腾讯云相关产品：