VBA代码：将数据插入本地Access数据库

您可以使用以下VBA代码将数据插入到本地Access数据库中：

Sub InsertDataToAccess()

    '定义变量
    Dim cn As Object
    Dim rs As Object
    Dim strSql As String
    Dim strDBPath As String
    Dim strTableName As String
    Dim strField1 As String
    Dim strField2 As String
    Dim strField3 As String
    
    '设置变量值
    strDBPath = 'C:\Users\UserName\Documents\Database1.accdb' 'Access数据库路径
    strTableName = 'Table1' '表名
    strField1 = 'Field1' '字段1
    strField2 = 'Field2' '字段2
    strField3 = 'Field3' '字段3
    
    '建立连接
    Set cn = CreateObject('ADODB.Connection')
    cn.Open 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=' & strDBPath
    
    '创建记录集
    Set rs = CreateObject('ADODB.Recordset')
    rs.Open strTableName, cn, 3, 3
    
    '插入数据
    strSql = 'INSERT INTO ' & strTableName & '(' & strField1 & ', ' & strField2 & ', ' & strField3 & ') ' & _
             'VALUES('Value1', 'Value2', 'Value3')'
    cn.Execute strSql
    
    '关闭连接
    rs.Close
    cn.Close
    
    '释放对象
    Set rs = Nothing
    Set cn = Nothing

End Sub

请注意，您需要根据实际情况修改变量值和SQL语句以适应您的Access数据库和数据表。此外，您还需要确保您的计算机上已安装Microsoft Access驱动程序。