Sintax error in FROM clause
Intento subir un archivo excel como tabla access, para eso primero elimina la tabla si es que existe, despues sube el archivo, pero marca error en la sentencia SELECT
Sub actualizar_bd()
Dim ConAccess As ADODB.Connection
Dim ConExcel As String, obSQL As String
Dim Origen As String, Destino As String
Set ConAccess = New ADODB.Connection
ConAccess.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=Z:\Cost of Quality\2019\QRs-2019.accdb;"
On Error GoTo Control
obSQL = "DROP TABLE [QRS_eds];"
ConAccess.Execute obSQL
Control:
ConExcel = "' & Cells(3,2).Value & ' 'Excel 8.0;HDR=Yes;"
Origen = "[Sheet1$]"
Destino = "[QRS_eds]"
obSQL = "SELECT * INTO " & Destino & " FROM " & Origen & " IN " & ConExcel
ConAccess. Execute obSQL
ConAccess. Close
End Sub