Я использую Office 2016 и пытаюсь загрузить данные из Excel в базу данных Access. Я прилагаю код ниже. Однако во время выполнения кода выдается сообщение об ошибке @ Newconn.open line.
Я использую 64-битную систему Windows 10 и также активировал библиотеку объектов Access 16.0 и библиотеку объектов ActiveX 2.5.
следующий код для вашей справки:
Sub test()
Dim Newconn As ADODB.Connection
Set Newconn = New ADODB.Connection
Dim RecordSet As ADODB.RecordSet
Set RecordSet = New ADODB.RecordSet
Dim Wb As Workbook, Ws As Worksheet
Set Wb = ThisWorkbook
Set Ws = Wb.Sheets("Sheet1")
Newconn.Open "Microsoft.ace.oledb.16.0;File Source:=C:\Users\Shazra\Desktop\Test\test.accdb"
RecordSet.Open "Table1", Newconn, adOpenDynamic, adLockOptimistic
RecordSet.Fields(0).Value = Ws.Range("A2").Value
RecordSet.Fields(1).Value = Ws.Range("B2").Value
RecordSet.Fields(2).Value = Ws.Range("C2").Value
RecordSet.Fields(3).Value = Ws.Range("D2").Value
RecordSet.Update
RecordSet.Close
Newconn.Close
End Sub
Заранее спасибо за любые предложения.