Tipos Incompatíveis - VBA

Boa tarde pessoal.

Estou com uma macro que deve jogar dados do excel para um banco access, porém dá o erro de Dados Incompatíveis. Alguém pode me ajudar?

Sub TransfereDados()

'Cria variável que armazena os comandos SQL
Dim ComandoSQL As String

'looping das colunas

Sheets("BaseGeral").Select
Range("A2").Activate


'lopping das linhas
Do While ActiveCell <> ""

linha = ActiveCell.Row

'Armazena na variável o comando que fará a consulta SQL no BD Access

ComandoSQL = "select * from TB_Base_Banco_geral"

'Chama a rotina que faz a conexão com o BD
Call Conecta

'Atribui a variável de Objeto de BD a execução dos comandos SQL

Set consulta = banco.OpenRecordset(ComandoSQL) - O Erro acontece nessa linha

With consulta
'Abre o Recordset do BD para inserção

.AddNew

.Fields("Contratada") = Sheets("BaseGeral").Cells(linha, 1)
.Fields("OS") = Sheets("BaseGeral").Cells(linha, 2)
.Fields("Tecnologia") = Sheets("BaseGeral").Cells(linha, 3)
.Fields("Sistema") = Sheets("BaseGeral").Cells(linha, 4)



'Se houver erro
On Error Resume Next

'Efetiva a atualização do BD
.Update

'Fecha o Recorset e a conexão com o BD
consulta.Close
banco.Close

'Chama a rotina que desconecta do BD (libera variáveis objeto de BD)
Call Desconecta

ActiveCell.Offset(1, 0).Select

End With

Loop

'Abandona a subrotina
Exit Sub

End Sub

Olá Aline

Não tenho muito conhecimento dos comandos/códigos do Excell.

Mas, olhando teu código, vejo que a estrutura da função está um tanto errada.

Vou deixar aqui como deve ser a estrutura dela, e acredito que entenderá.

Por exemplo, o loop que estava sendo feito na planilha do excel, abria e fechava

a tabela toda vez que pegava um dado na planilha e transferia pra tabela.

É o mesmo que ter um cofre e você o abre coloca uma cédula dentro, fecha,
pega outra cédula, abre o cofre, coloca a cédula dentro, fecha, e o loop
continua até colocar todos o dinheiro dentro do cofre.
Cansativo, né?

Isso eu arrumei.

Abre-se a tabela uma vez somente.
Faz o loop na planilha e transfere os dados para a tabela.
Fecha a tabela
Fecha o BD.

Leia as observações em verde no código (ficará verde no Access).


[ ]'s

Código:


Sub TransfereDados()
'Cria variável que armazena os comandos SQL
Dim ComandoSQL As String

'Chama a rotina que faz a conexão com o BD

Call Conecta ' Primeiro, conectar banco de dados

'Armazena na variável o comando que fará a consulta SQL no BD Access

ComandoSQL = "select * from TB_Base_Banco_geral"


'Abre o Recordset do BD para inserção

Set consulta = banco.OpenRecordset(ComandoSQL)

With consulta

     'looping das colunas

     Sheets("BaseGeral").Select
     Range("A2").Activate


     'lopping das linhas
     Do While ActiveCell <> ""

        linha = ActiveCell.Row

        AddNew

        .Fields("Contratada") = Sheets("BaseGeral").Cells(linha, 1)
        .Fields("OS") = Sheets("BaseGeral").Cells(linha, 2)
        .Fields("Tecnologia") = Sheets("BaseGeral").Cells(linha, 3)
        .Fields("Sistema") = Sheets("BaseGeral").Cells(linha, 4)

        'Se houver erro, tem que mostrar o erro pra podermos consertar então
        'On Error Resume Next  '<--- isso não pode

        'Efetiva a atualização do BD
        .Update
  
        ActiveCell.Offset(1, 0).Select '<----- Esse comando não conheço,se for pra mudar de linha, fica ai mesmo
 
     loop

End With

Consulta.Close

Banco.close

Call Desconecta

End sub


Noobezinho, fiz as alterações que vc sugeriu, porém continua com o erro de dados incompatíveis na linha:

Set consulta = banco.OpenRecordset(ComandoSQL)

Aline

Anexe aqui, a tabela, consulta, formulário e a planilha do excel, para eu analisar, ok?

Lembrando que o site só aceita arquivos.zip.

Se tiver o winrar, veja ali embaixo na minha assinatura como fazer zip com ele.

Aguardo

Planilha

Não estou conseguindo subir o arquivo do banco em .zip

O tamanho máximo é 4.98 Mb

Se estiver ultrapassando isso, faça assim:

Abra o aplicativo segurando o Shift.

Na primeira opção do menu Ferramentas de Banco de Dados, clique nela (compactação e rest....)

Depois compacte com o zip.

[ ]'s

Segue o banco

Só com as tabelas, não posso fazer nada

Cade teu código,consultas, etc?

O código está no excel, no access só tenho as tabelas... e a única consulta que criei é esta que segue em anexo, porém não a utilizo no código uso apenas para unir as informações que preciso no excel que anexei aqui.

Sinto Aline

Sou programador de Access e não de excel.

E como pode ver, o fórum só atende sobre Access.

Aguarde, talvez tenha alguém que entenda de Excel possa  te ajudar.

[ ]'s

Uma coisa que não consegui achar foi o momento em que a variavel "Banco" recebe/conecta a um banco de dados...

...banco.OpenRecordset(ComandoSQL)

Verifique se realmente esta passando o banco de dados correto para essa Variável.