Добрый день
Имею код для передачи данных с листа Excel в Базу Access.
Данный код не выполнчется так как выбивает ошибку
Run_time error '-2147217900 (80040e14)' : Automation errorПодскажите пожалуйста что в коде не так?
| Код |
|---|
Dim cn As ADODB.Connection
Dim dbcn As ADODB.Connection
Dim strSQL As String
'------------------------------------------------------------------------------------------------------------
Set cn = New ADODB.Connection
cn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Desktop\Report.xlsm; Extended Properties=""Excel 12.0;HDR=No"";"
'------------------------------------------------------------------------------------------------------------
Set dbcn = New ADODB.Connection
ConPath = "C:\Users\Desktop\ReportTemp.accdb"
dbcn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ConPath & "; Jet OLEDB:Database Password=11;"
'------------------------------------------------------------------------------------------------------------
strSQL = "INSERT INTO [ReportTemp] SELECT * FROM [PO update$B4:U1000] IN 'C:\Users\Desktop\Report.xlsm' [Excel 12.0; hdr=No;]"
dbcn.Execute strSQL ', adExecuteNoRecords
cn.Close
dbcn.Close
Set cn = Nothing
Set dbcn = Nothing |
Заранее благодарен
