Сохранение данных Excel для доступа к базе данных

Question

Я планирую сохранить конкретное значение ссылки на ячейку и получить доступ к таблице базы данных, которая включает имя студента, номер студента, файлы, выбранные для макроса.Я извлек вышеупомянутые элементы перформанса в различные ячейки Excel.это должно быть сохранено в таблице базы данных доступа.

Спасибо.

Answer 1

Вот способ сделать то, что вы хотите сделать, используя формат ACCDB.

Sub InsertIntoX2()

    Dim cn As ADODB.Connection, rs As ADODB.Recordset, row As Long
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _
            "Data Source=C:\Users\Excel\Desktop\Test.accdb;"

    ' open a recordset
    Set rs = New ADODB.Recordset
    rs.Open "tblTrx", cn, adOpenKeyset, adLockOptimistic, adCmdTable

    row = 3    ' the start row in the worksheet
    Do While Not IsEmpty(Worksheets("Sheet1").Range("A" & row))

        With rs
            .AddNew    ' create a new record
            .Fields("ID") = Worksheets("Sheet1").Range("A" & row).Value
            .Fields("Product") = Worksheets("Sheet1").Range("B" & row).Value
            .Fields("ProdDate") = Worksheets("Sheet1").Range("C" & row).Value
            .Update
        End With
        row = row + 1
    Loop

    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing

End Sub

Просто установите в Excel ссылку на «Microsoft Active X Data Object 2.8 Library».