Добрый день
Имею код для передачи данных с листа Excel в Базу Access.
Данный код не выполнчется так как выбивает ошибку Run_time error '-2147217900 (80040e14)' : Automation error
Подскажите пожалуйста что в коде не так?
Заранее благодарен
Имею код для передачи данных с листа 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 |