Erro de Sintaxe na Instrução INSERT INTO - Exportar do Excel

Processos de importação e exportação de dados, interação entre o Excel e demais softwares, interface com Banco de dados, SQL.

Erro de Sintaxe na Instrução INSERT INTO - Exportar do Excel

Mensagempor JVitor » Qui Jan 02, 2020 11:23 am

Bom dia pessoal,

Venho pedir a pessoal do Forum...

Achei uma instrução na internet para transferência de dados do Excel para Access, consegui fazer em uma de minhas planilhas, porem quando tentei em uma outra, esta apresentado um erro que esta tirando meu sono, já verifiquei de cabo a rabo as instruções e não encontrei nada de errado.

Vejam;

Código: Selecionar todos
Option Explicit

Private Sub CommandButton1_Click()

Dim MDB         As New ADODB.Connection
Dim RS           As New ADODB.Recordset
Dim FD           As ADODB.Field
Dim SQL         As String

Dim W            As Worksheet
Dim UltCel      As Range

Dim Ln           As Long
Dim Col          As Integer

Set W = Sheets("Planilha")
Ln = 2
Col = 1

W.Select
W.Range("A1").Select

MDB.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\juliano.vitor\Desktop\Projeto Access - Controle Custo\Controle de Custo.accdb;Persist Security Info=False;"

Set UltCel = W.Cells(W.Rows.Count, 1).End(xlUp)

Do While Ln <= UltCel.Row

        SQL = ("INSERT INTO Lançamento_Entrada_Produto")
        SQL = SQL & "(ID_Frota, NúmeroCT-e, Coleta, Remetente, CidadeOrigem, CidadeDestino, FretePeso, Natureza, Motorista)"
        SQL = SQL & " values "
        SQL = SQL & "('" & W.Cells(Ln, Col).Value & "', "             'ID_Frota,
        SQL = SQL & " '" & W.Cells(Ln, Col + 1).Value & "', "       'NúmeroCT-e, ,
        SQL = SQL & " '" & W.Cells(Ln, Col + 2).Value & "', "       'Coleta,
        SQL = SQL & " '" & W.Cells(Ln, Col + 3).Value & "', "       'Remetente,
        SQL = SQL & " '" & W.Cells(Ln, Col + 4).Value & "', "       'CidadeOrigem,
        SQL = SQL & " '" & W.Cells(Ln, Col + 5).Value & "', "       'CidadeDestino,
        SQL = SQL & " '" & W.Cells(Ln, Col + 6).Value & "', "       'FretePeso,
        SQL = SQL & " '" & W.Cells(Ln, Col + 7).Value & "', "       'Natureza,
        SQL = SQL & " '" & W.Cells(Ln, Col + 8).Value & "') "       'Motorista,

       
        RS.Open SQL, MDB       'O erro apresenta aqui, quando vou executar o banco
               
        Ln = Ln + 1
        Col = 1
       
        Application.StatusBar = Ln
        DoEvents
       
Loop

MDB.Close

Set W = Nothing
Set MDB = Nothing
Set RS = Nothing
Set FD = Nothing
Set UltCel = Nothing

End Sub


Código de erro;

Erro em tempo de execução '-2147217900 (80040e14)':

Erro de sintaxe na instrução INSERT INTO.


Até aqui, meu muito obrigado,

Att., JVitor
JVitor
Membro
Membro
 
Mensagens: 1
Registrado em: Qui Jan 02, 2020 10:52 am
Has thanked: 0 time
Have thanks: 0 time

{ SO_SELECT }

Voltar para Integração Excel & Access

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 0 visitantes