Boa tarde pesquisei vários tópicos através da busca, inclusive um do Usuário "Criquio", de buscar ceps .
Porem na intenção de não usar uma tabela que com certeza ficaria imensa, estou tentando trazer o resultado de uma busca na pagina da internet para o meu cadastro de clientes.
Pesquisando criei o seguinte código:
Private Sub BuscaCEp_Click()
'Cria um novo objecto do IE
Dim ie As Variant
Set ie = CreateObject("InternetExplorer.Application")
' Indica ao IE que deve navegar para a página
ie.navigate "http://http://m.correios.com.br/movel/buscaCep.do"
ie.Visible = True
' Preenche os campos necessários
ie.Document.all.item("cepEntrada").Value = Me.CEP <----- "campo no formulário que criei."
'----------------------------------------------------------
Bom essa função abre o site dos correios e ja preenche
o campo CEP da pagina.
Queria agora implementar esse código fazendo com que o botão "Buscar" da pagina
fosse acionado pelo vba
e em seguida as informações d pagina viessem para meu form no Access.
Isso é possível?
Porem na intenção de não usar uma tabela que com certeza ficaria imensa, estou tentando trazer o resultado de uma busca na pagina da internet para o meu cadastro de clientes.
Pesquisando criei o seguinte código:
Private Sub BuscaCEp_Click()
'Cria um novo objecto do IE
Dim ie As Variant
Set ie = CreateObject("InternetExplorer.Application")
' Indica ao IE que deve navegar para a página
ie.navigate "http://http://m.correios.com.br/movel/buscaCep.do"
ie.Visible = True
' Preenche os campos necessários
ie.Document.all.item("cepEntrada").Value = Me.CEP <----- "campo no formulário que criei."
'----------------------------------------------------------
Bom essa função abre o site dos correios e ja preenche
o campo CEP da pagina.
Queria agora implementar esse código fazendo com que o botão "Buscar" da pagina
fosse acionado pelo vba
e em seguida as informações d pagina viessem para meu form no Access.
Isso é possível?