Notifications
Clear all

Copiar dados da internet com VBA

5 Posts
2 Usuários
0 Reactions
1,015 Visualizações
(@absilva)
Posts: 4
New Member
Topic starter
 

Boa tarde.
Sou recém Chegado no fórum e sou quase totalmente leigo em vba.
Pois bem...
Preciso construir um banco de dados com informações coletadas da internet. Mas quando faço todo o procedimento de consulta, o resultado abre em uma nova página da web e eu não sei como copiar os dados para o excel.
Segue o arquivo anexo.

Desde já, obrigado.

 
Postado : 31/01/2016 1:27 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite absilva

Seja bem-vindo ao fórum!

Como você é novo no fórum, sugiro acessar os links abaixo, com informações importantes para facilitar a tua navegação por aqui.

viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/01/2016 3:32 pm
(@absilva)
Posts: 4
New Member
Topic starter
 

Boa noite.
Aproveito para informar que os dados para consulta estão no arquivo anexo.

Obrigado a todos.

 
Postado : 05/02/2016 4:28 pm
(@absilva)
Posts: 4
New Member
Topic starter
 

Boa tarde.

Segue o código que construí até o momento:

Private Sub CommandButton_CONSULTAR_Click()

On Error Resume Next
Dim objIE  As InternetExplorer

Dim elem
Dim tbl
Dim tr

Set objIE = CreateObject("InternetExplorer.Application") 'UserForm2.WebBrowser1

With objIE
 
 .StatusBar = False
 .Toolbar = False
 .Width = 1000
 .Height = 600
 .Resizable = False
 .AddressBar = False
 .Visible = True
 .Top = 200
 .Left = 150
 
 .Navigate "http://smap14.mda.gov.br/extratopf/PesquisaTitular.aspx"
 Do While .Busy Or _
 .ReadyState <> 4
 DoEvents
 Loop

.Document.all.Item("ctl00_ctl00_CONTENTEXTRATO_ContentPlaceHolder1_txtCPF").innertext = TextBox_CPF


reset:
.Document.getElementById("ctl00_ctl00_CONTENTEXTRATO_ContentPlaceHolder1_txtUserCode").Focus

x = .Document.activeElement.Name

Do While x = "ctl00_ctl00_CONTENTEXTRATO_ContentPlaceHolder1_txtUserCode"
x = .Document.activeElement.Name
DoEvents
Loop

If .Document.all.Item("ctl00_ctl00_CONTENTEXTRATO_ContentPlaceHolder1_txtUserCode").Value = "" Then GoTo reset

.Document.all("ctl00$ctl00$CONTENTEXTRATO$ContentPlaceHolder1$btnPesquisar").submit


Do While .Busy Or _
 .ReadyState <> 4
 DoEvents
 Loop

End With
End Sub
 
Postado : 10/02/2016 1:25 pm
(@absilva)
Posts: 4
New Member
Topic starter
 

Boa noite.

Alguém em condições de me ajudar?

Obrigado!

 
Postado : 15/02/2016 2:51 pm