vba Registro de célula do Excel retorna 0 no access

[hucsantos]

Pessoal, Bom Dia !

Sou novo aqui no Fórum, ultimamente tenho trabalhado bastante com demandas de automatização em planilhas de Excel.

Estou com o seguinte problema:

Criei uma planilha com uma interface simples onde os valores de algumas células serão atualizadas como novos registros em um Banco de Dados Access, porém ao verificar os valores das variáveis, os valores estão aparecendo como 0, ou 00:00:00 horas e 30/12/1899 para datas, sendo que os registros nas células do excel estão preenchidas corretamente e devidamente formatadas.

A única variável que traz corretamente é a informação do usuário que eu pego ObjNetwork.UserName, todas as demais vindas do Excel, vem com valores zerados.

Aparentemente o conexão com o Banco de Dados esta funcionando corretamente, pois os valores estão sendo registrados.

Utilizo o seguinte código para associar as informações;

Dim vdata As Date
Dim vOR As Integer

vOR = Sheets("Formulario").Range(D5).Value
vdata = Sheets("Formulario").Range(D3).Value

........

objRecordSet.AddNew
objRecordSet("OR") = vOR
objRecordSet("Data") = vdata

 

Se alguém tiver uma luz para me ajudar !!!

Obrigado

Hugo Santos

 

 

 

 

Editado Abril 27, 2016 por hucsantos
Editar configurações