[Resolvido]Importar dados da internet com zeros à esquerda

Boa tarde!

Procurei neste e em outros fóruns, mas não encontrei nenhum post com esse tipo de "problema".

Bd em Access 2010.

Estou importando dados da internet para um formulário com um campo chamado "Cod". Esse campo não tem um tamanho fixo e é alfanumérico.
Acontece que quando é feita a importação de um número que tem zeros à esquerda, esses zeros não estão sendo importados.
Exemplo: Cod 00123456, é capturado apenas 123456.
Se o campo tivesse o tamanho fixo, seria simples de resolver, mas como já disse, o tamanho é variável.
Assim busco um solução.

Desde já agradeço!

Segue código:

strCod = objDoc.getElementsByTagName("td")(90).innerText

objIE.Quit

Set objIE = Nothing
Set objDoc = Nothing

'Lança no Formulario
Form_Form_Principal.txtCod = strCod

Esse seu Campo na tabela está como texto? Se nao, coloque-o como texto que é pra aceitar o zero antes...

Experimente lançar direto na tabela 0123456, saia do campo, se ele permanecer, sabemos q o problema é no codigo...

Fabio,

o campo está sim definido como texto. Fiz o teste que você sugeriu digitando os zeros, e ao sair do campo eles permaneceram, inclusive após salvar o registro.

Avelino,

também fiz o teste que você sugeriu e no msgbox() o número apareceu sem os zeros.

Amigo, ficou claro que o problema esta na Captura dos dados...

Seria interessante se nos informasse mais dados... So com essas informações fica complicado amigo... De preferencia o aplicativo exemplo com instruções de uso...

Amigos,

O que estou tentando fazer é importar a Inscrição Estadual de uma empresa para o sistema.
Existe um site da Sefaz/RS onde é possível importar essa informação para o sistema, independente de qual UF você esteja pesquisando. Basta, por exemplo, informar o CNPJ, que o site identifica de que UF é a empresa e mostra a inscrição estadual e sua situação.
Até então, como a empresa é de MG eu havia feito a consulta no Sintegra de MG... e lá mostra (corretamente) que os primeiros dígitos da Inscrição começam com os zeros.
Porém, fiz a consulta dessa inscrição nesse site da Sefaz/RS (que é de onde estava importando o número da inscrição) e neste site em especial, ele mostra (erroneamente) a inscrição sem os zeros à esquerda, motivo pelo qual não estavam sendo importados.
Nesse ponto peço desculpas a vocês pela minha não observância deste fato, uma vez que para cada estado, a inscrição possui uma quantidade definida de dígitos para sua validação. Simplesmente confiei que a informação da Sefaz/RS também estaria correta.

Porém, para eu fazer o redirecionamento da busca é bem mais complicado, pois, no cadastro de clientes, além do CNPJ, teria que informar a UF e com isso criar um código que reconhecesse essas duas variáveis redirecionando para o site "oficial" do Sintegra da UF selecionada. Mas não tenho ideia de como montar isso...

Mais uma vez, obrigado pela atenção!

Deixa ver se entendi... Vc quer que dependendo do Estado da Empresa, a consulta seja redirecionada para o Site daquele Estado???


Se For amigo, Basta colocar um Selct Case para selecionar o Site correto para a Consulta...

Antes de selecionar o site coloque:

Select Case UF 'Partindo da Ideia que nesse Campo UF armazenara a UF do Cliente...
 Case "AC", "RS", "RO"
    SiteCOnsulta = "www......"
 Case "SP","TO","RJ"
    SiteCOnsulta = "www..aaaa...."
   Case Else
    SiteCOnsulta = "www..accc...."
End Select
continua seu codigo apos definição do site correto....

Fabio, obrigado pela dica.

Vou fazer os ajustes e testar...

Assim que tiver alguma resposta, farei contato.

Obrigado!

Boa noite!

Estou encerrando este post, pois existe uma complexidade muito grande para se ter acesso e capturar essas informações em cada Estado.
Sem dúvida seria um grande feito para adequação dos ERPs, pois proporcionaria praticidade e segurança no cadastro dos clientes, por exemplo.

No mais agradeço pela atenção de todos.

Abraço!