VBA EXCEL CONEXÃO ACCESS

[Kelvim]

Boa tarde

Meu nome é Kelvim.

Eu tenho um código que salva o que tiver na planilha, através do VBA em um banco de dados ACCESS local.

Entretanto estou tentando usar o mesmo código para salvar em um banco na rede no servidor DEBIAN que utiliza o SAMBA, só que está gerando um erro. Gostaria de saber se é algum código em especifico ou até mesmo habilitar alguma biblioteca se sim qual.

Atualmente estou usando o Microsoft Office Professional Plus 2013 32 Bits

---------------------------

Microsoft Visual Basic for Applications

---------------------------

Erro de compilação:

O tipo definido pelo usuário não foi definido

---------------------------

OK Ajuda

---------------------------

''''------'

Sub BASE()

Dim cn As ADODB.Connection ' variavel base

Dim rs As ADODB.Recordset 'variavel para tabela

Dim r As Long 'variavel para o numero da linha da planilha

'conectando ao banco de dados do access

Set cn = New ADODB.Connection

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = K:\TESTE_REUSO\BANCO DE DADOS REUSO\REUSO.mdb;"

'abrindo a tabela do banco de dados

Set rs = New ADODB.Recordset

rs.Open "REUSO REMOTO", cn, adopenkeyset, adlockoptimistic, adcmdtable ' Todos os registro da tabela

'numero da linha que irá coomeçar na planilha

r = 2

Do While Len(Range("A" & r).Formula) > 0 ' repete equanto a coluna A for maior igual a Zero

With rs

.addnew 'insere novo registro no banco de dados

'adiciona valores para cada campo na tabela

.Fields("NDS") = Range("A" & r).Value

.Fields("SMARTCARD") = Range("B" & r).Value

.Fields("MODELO") = Range("C" & r).Value

.Fields("STATUS") = Range("D" & r).Value

.Fields("DATA") = Range("E" & r).Value

.Fields("PDV") = Range("F" & r).Value

.Update 'atualiza o novo registro

End With

r = r + 1

Loop

'fecha a tabela

rs.Close

Set rs = Nothing

'fecha o banco de dados

cn.Close

Set cn = Nothing

'---------------------------

Range("A2:XFD1048576").Select

Selection.ClearContents

Range("A1").Select

'---------------------------

End Sub

[Basole]

Habilite a Referencia "Microsoft ActiveX Data Objects x.x Library"

[Kelvim]

Habilite a Referencia "Microsoft ActiveX Data Objects x.x Library"

 

 

 

Boa tarde

 

Muito obrigado, deu certo.

 

Att