将数据从 excel 复制到使用 VBA 访问？

Question

Im trying to update an Access database with new code to add to one aggregate list of scan entries. The macro needs to open the access file, copy the range from excel and paste it at the bottom of the database to add to the already existing records. Then save the access .accdb file and then close. Any tips particularly on the copying and pasting data portion?

Answer 1

Use ACE.OLEDB . Create an SQL INSERT STATEMENT. Code would look something like below:

    Sub Test()
        accessFilePath = "C:\someDB.accdb"
        Call ExecuteSQLCmd("INSERT INTO `" & accessFilePath & "`.`Table` (col1,col2,col3) SELECT col1,col2,col3 FROM [Sheet1$]", accessFilePath)
     End Sub

   Sub ExecuteSQLCmd(cmd As String, accessFilePath as String )

        Dim cnn As ADODB.Connection
        Dim sql As String

        Set cnn = New ADODB.Connection
        cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & accessFilePath & ";Persist Security Info=False;"

        If Not (cnn Is Nothing) Then
            'Execute Sql
            cnn.Execute (cmd)
            'Close
            cnn.Close
        End If
        Set cnn = Nothing
    End Sub