[Resolvido]Inserir dados na internet pelo access, pesquisa automática pelo browser

preciso pesquisar vários cadastros em um site. Para isso, tenho que fazer um login (igual ao que fazemos nesse forum) e informar os números de CNPJ de cada empresa (um de cada vez). o resultado da pesquisa retorna um pdf com as informaçoes desejadas. quero fazer isso através de uma macro no access que faça essa pesquisa de uma vez só.tem como fazer isso? seria através de uma tabela com os números dos CNPJs e um código para salvar os pdf em uma pasta?

Você possui esses CNPJs em uma tabela? Se sim, é só montar uma função para percorrer a tabela e ir fazendo os pdfs. Qual a versão do seu Access?

Olá,

a versão é 2003.

pois então, tenho os CNPJ em uma tabela sim.

Podes me passar essa função e, se possível, também as instruções para em "um clique"(por exemplo - ideal), acessar a página, preencher o(s) respectivo(s) campo(s) e então fazer os pdfs?

obrigado

alguém poderia me ajudar neste tópico?

Uma coisa que não entendi ainda: você quer converter em pdf cnpj já cadastrados na tabela ou quer fazer isso à partir de um site?

Existe uma página na web onde a gente que faz algumas pesquisas das empresas. é a própria página que cria um pdf para cada pesquisa do usuário (eu, no caso) fazer o download...

só que como eu tenho muitos cnpj para pesquisar, gostaria de saber se é possível com apenas um clique (situação ideal) no access, fosse aberta a página na web, inseridos os dados (cnpj) um após o outro e feito o download (que é da própria página na web) para que eu só precisasse ir no diretório e consultasse os pdf já baixados...

um abraço

A empresa tem acesso ao servidor da página ou é um site de terceiros? No primeiro caso até é um pouco mais fácil, mas no segundo a coisa se complica. Não que seja impossível, mas isso vai envolver ter que descobrir a identificação das colunas e/ou campos da página, para poder imputar os dados neles. Alem de quê fica mais complicado gerir o tempo de resposta do site, o que pode influenciar no resultado.

É de terceiros...

Tente adaptar este exemplo, mas digo-lhe que não vai ser facil;

http://maximoaccess.forumeiros.com/t94-entrar-no-forum-atraves-do-access

é JPaulo,

apesar de eu ser bem novato, acredito que não seja uma coisa fácil mesmo...

mas sabe aquelas coisas que se vc conseguir fazer vai fazer "a diferença" para todos que estao trabalhando ao seu lado?

essa é uma delas...

um abraço

Deixo aqui uma forma de se trabalhar com Internet Explorer à partir de um formulário:

Private Sub SeuBotão_Click()

Dim IExp As InternetExplorer 'Cria variável IE
Set IExp = New InternetExplorer 'Instancia variável como nova webpage

IExp.Navigate "url completa aqui" 'Endereço completo da página
IExp.Visible = True 'Torna o IE visível
Me.IExp.SetFocus 'Coloca foco no IE

Do While Me.IExp.busy = True 'Enquanto carrega a página...
Sleep 3000 '... aguarda
DoEvents
Loop

With Me.IExp.Document
.all("CampoLogin").Value = Me.txtUser ' Coloca o nome do campo usuário do form na página
.all("CampoSenha").Value = Me.txtSenha
.all("Confirmar").Click 'Clica no botão de confirmação
End With

End Sub

Migão esse site é algo restrito ou você pode nos informar qual é, que derrepente ficaria mais fácil lhe auxiliar... O controle webcontrol é muito util para isso, mas dai vc tem que localizar quais são os campos a serem preenchidos...

tipo assim:

Em determinado site uso essa intrução:

wb.Document.Forms(0).WucPesquisaCondutorPublico1_txtNumCPF.Value = CPF
wb.Document.Forms(0).WucPesquisaCondutorPublico1_txtRegistro.Value = CNH
wb.Document.Forms(0).WucPesquisaCondutorPublico1_btnFiltrar.Click

que joga os dados diretamento nos respectivos campos

é um site do governo federal. ele centraliza as pesquisar cadastrais dos fornecedores do governo.

tem que ser cadastrado para poder logar através de uma senha.

pelas regras do forum, será que eu poderia falar o nome do site?

criquio,

na linha:

Dim IExp As InternetExplorer 'Cria variável IE

dá o seguinte erro:

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

um abraço

pablo,

tem como traduzir pra mim? sou iniciante em VBA e o conteúdo postado é quase grego pra mim...

consigo entender a sintaxe mais ou menos, mas a função de cada instrução (é assim que se chama cada palavrinha daquelas!?) ainda me causa muita incompreensão... e agonia...

Leandro, tente o seguinte: Abra um módulo qualquer e vá no menu Ferramentas > Referências. Adicione a referência shdocvw.dll que se encontra na System32. Deve funcionar.

Agora no:

Me.IExp.SetFocus 'Coloca foco no IE

dá o erro:

"Método ou membro de dados não encontrado".

JPaulo,

o aplicativo entrar no fórum através do access parece ser o que eu procuro, mas...

como faço para visualizar o código/objetos? a tecla shift está desabilitada?

um abraço

JPaulo,

Utilizando o exemplo http://maximoaccess.forumeiros.com/t94-entrar-no-forum-atraves-do-access

consegui entrar na página e o "Usuário/senha" está funcionando...

bom, então pensei em fazer igual ao "alcóolicos anônimos": um passo de cada vez...então, agora, me foi passada uma informação importante: tenho que acessar com o mozilla firefox... como faço?

um abraço

Leandro

boa noite estou a seguir este tópico porque gostava de fazer uma coisa semelhante mas com o portal dos CTT (correios de portugal), para poder pesquisar os registos das cartas e/ou encomendas enviadas e saber quando chegaram e em que data.

Caso já tenham algumas coisas deste genero apitem, pois estava a pensar fazer uma form com o nº. do registo da carta em que ao clicar num botao fosse buscar o nº. de registo que coloquei na caixa do form.

1 abraço e muitos parabens pelo optimo forum que têm, pois tem me ajudado imenso.

Leandro boa noite!

Desculpe não ter lhe respondido antes, mas não recebí o e-mail do forum me avisando do post, você fala que tem que acessar pelo mozila, mas isso é uma exigência da empresa que você trabalha, não há explorer instalado na máquina? Se vc fizer dentro do access o explorer pode nem aparecer... ficando transparente ao usuário... Vou tentar montar um exemplo para você...

Bit a bit eu tenho uma aplicação rodando para os correios do Brasil (pode ser baixada aqui no forúm), e uma iniciada do CTT que esta parada, por incrivel que pareça apos a aplicação começar a rodar aqui na empresa, tivemos uma queda consideravel com reclamações referente a correspondências postadas nos correios...

Sds,


Pablo

Amigos,

O título do tópico foi modificado para facilitar a ferramenta de buscas.

Cumprimentos.

Leandro, como vc abriu o exemplo do JPaulo?

Sds

Pablo

Pablo,

não consegui abrir mas importei os módulos para um outro BD...

a questão do mozilla e que me parece que a página de consulta não funciona com o ie.

sei lá... como sou meio verdão tô preocupado mais e fazer funcionar...

valeu pelos retornos...

Bitabit,

olha, é quase isso, mas até poderia ser... a diferença e que ao invés de eu informar os dados um a um, eu gostaria que fosse feito um "loop" de pesquisa em uma tabela como os dados a serem informados... não sei se isso é possível...

um abraço a todos

P.S.: O legal nesse forum é que quando você acha que não vai ter mais jeito, aparece um monte de caras bons pra k... que fazem a gente se animar a cada dia!

mais uma vez, muito obrigado a todos vocês!!!!

olha,

não sei se é por causa do explorer ou por que tem um banner que surge logo após a informação do usuário e da senha... mas, tá dando erro 408 - sessão expirada. tente novamente.

Leandr

Bit a Bit da uma olhada ae:

http://maximoaccess.forumeiros.com/t1128-sro-sistema-de-rastreio-de-objetos-dos-correios

Leandro pode passar o link desse site não? Talvez poderia lhe ajudar mais!!!!


Sds,


Pablo

lá vai...

https://www3.comprasnet.gov.br/SICAFWeb/public/pages/default.jsf#


nesta página deves entrar em "acesso restrito" e "governo"

para então fazer o login

Leandro

Rapaz como não tenho usuário e senha fica realmente dificil..

Tente acessar usando o link abaixo substituindo que esta em vermelho pelo seu usuário e senha

https://www3.comprasnet.gov.br/SICAFWeb/public/pages/security/j_security_check&j_usertype=U&j_username=25845652400&j_password=12332

Para dai ver se conseguimos andar mais um pouco...

Ainda nos falamos...

Valeu a força Pablo,

Vou ter que esperar até amanhã para testar o teu link, pois como o logon depende do cadastramento do funcionário (que não sou eu) junto ao site (estou evitando o máximo ter que pedir a senha para ele, sem que isso seja estritamente necessário...) e, como ele já foi embora, terei que esperar...

um abraço

Ola Pablo neruda, agradeço muito o teu exemplo, mas quando abro o exemplo apenas aparece um form com fundo branco a dizer no canto inferior esquerdo "preparando ambiente..." e do canto inferior direito "conexão Internet e um smile á frente"

Já está assim ha 20 minutos e nao sai dali...

Tenho o Access 2007 e o 2010 ainda por instalar

Se puderes dar uma dica de como abro o exemplo agradeço.

1 abraço e obrigado

Preciso fazer a mesma lógica no firefox. Alguém têm alguma idéia?