[Pegar dados de ID na web - VBA]

Bom dia pessoal,

Tenho o código para abrir e navegar na web, porem que navegar a uma determinada web e capturar os dados de sua id e baixar para o excel de forma organizada.
Fiz varias pesquisas e não encontrei um exemplo para que eu possa tentar fazer sozinho, assim que peço a ajuda de vocês para executar esse projeto.
Vou deixar o exemplo feito manual de como deveria ficar no excel para que me entenda.

Desde já agradeço.


Link da web para pegar os dados
https://economia.uol.com.br/cotacoes/cambio/dolar-comercial-estados-unidos/

Dados da web com id

 

Exemplo de como ficaria

Código

Sub Automate_IE_Load_Page()
'This will load a webpage in IE
    Dim i As Long
    Dim URL As String
    Dim IE As Object
    Dim objElement As Object
    Dim objCollection As Object
 
    'Criar objeto do InternetExplorer
    Set IE = CreateObject("InternetExplorer.Application")
 
    'Set IE.Visible = True para tornar o IE visível, ou False for IE para executar em segundo plano
    IE.Visible = True
 
    'Define URL
    URL = "http://www.planilhando.com.br/"
 
    'Navigate to URL
    IE.Navigate URL
 
    ' Statusbar permite que o usuário conheça o site está carregando
    Application.StatusBar = URL & " is loading. Please wait..."
 
    ' Aguarde enquanto o IE está carregando ...
    'IE ReadyState = 4 significa que a página web foi carregada (o primeiro loop está configurado para evitar ignorar inadvertidamente o segundo loop)
    Do While IE.ReadyState = 4: DoEvents: Loop   'Do While
    Do Until IE.ReadyState = 4: DoEvents: Loop   'Do Until
 
    'Página carregada
    Application.StatusBar = URL & " Loaded"
    
    'Unload IE
    Set IE = Nothing
    Set objElement = Nothing
    Set objCollection = Nothing
    
End Sub

 

[VBA internet]

Em 13/11/2009 at 09:32, warcanjow disse:

 

Cara, essa não parece ser a solução mais elegante. Se entendi bem a sua dúvida basta que você troque isso:

 

For Each linha In tabela.all.tags("tr")

 

por isso:

 

For Each linha In tabela.all.tags("td")

 

e tudo se resolveria.

 

Abraços!

Boa noite,

 

   Estava testando o código e da erro nessa linha.   produto = linha.all.tags("td") (0).innertext

[Função para conectar a web por form]

Boa noite,
Fiz um botão para chamar um form onde esse deve ser preenchido com usuário e senha e ao clicar em entrar deve fazer login em uma determinada web.

Gostaria da ajuda de vocês.

Quais a função que devo colocar no botão entrar para que esse abra uma web e faça login automático?

Fiz um teste com o código de Tomás que encontrei e funciona muito bem, o único inconveniente que encontrei é que abre duas input,uma para colocar o usuário e a outra para a senha.

 

Sub x()
    Dim ie As InternetExplorer
    Dim C
    Dim ULogin As Boolean, ieForm
    Dim MyPass As String, MyLogin As String
redo:
    MyLogin = Application.InputBox("Por Favor entre com o Login", "Forum Tomás Vásquez", Default:="login", Type:=2)
    MyPass = Application.InputBox("Por favor entre com a senha", "Forum Tomás Vásquez", Default:="Password", Type:=2)
    If MyLogin = "" Or MyPass = "" Then GoTo redo
    Set ie = New InternetExplorer
    ie.Visible = True
    ie.Navigate "http://www.tomasvasquez.com.br/forum/ucp.php?mode=login"
 
    Do Until ie.ReadyState = READYSTATE_COMPLETE
    Loop
 
    ie.Document.all("username").innerText = MyLogin
    ie.Document.all("password").innerText = MyPass
    'obtém o forma a qual o controle de login pertence para submetê-lo
    ie.Document.all("username").form.all("login").Click
 
    If ULogin = False Then MsgBox "Usuário logado"
    Set ie = Nothing
End Sub

Sub Referencia()
    Dim ObRef
    On Error Resume Next
    ' Adiciona Controles da Net
    ThisWorkbook.VBProject.References.AddFromGuid "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}", 1, 1
End Sub

 

 

essa é a imagem do meu projeto.

 

[Função Mid campo Text]

Bom dia Graymalkin, é isso mesmo, consegui fazer funcionar em um novo projeto, porem quando tento inserir no projeto que eu tenho ele fala que a variável não esta declarada.

 

O campo Text2 é pra trazer o total em segundos.

Vou montar em um novo projeto e te mostro para ver como funciona, mais deixo uma imagem dela funcionando no modo antigo( quando le somente 1:24:32)

 

 

[Função Mid campo Text]

@Graymalkin

  Não sou um esperto em visual basic6, não consegui aplicar essa função, leva em consideração que não é apenas aceitar os dois formatos no campo Text1, também tenho que fazer o calculo de horas para segundos.

[Função Mid campo Text]

Bom dia,

   Tenho uma ferramenta para calculo, estou usando a função mid para identificar no campo text os dígitos das horas.

Função completa:

Dim X As Integer, Y As Integer, Z As Integer
X = Mid(Text1.Text, 7, 2)
Y = Mid(Text1.Text, 4, 2)
Z = Mid(Text1.Text, 1, 1)

segundos = X + Y * 60 + Z * 3600 (aqui estou convertendo horas em segundos, preciso converter para concluir o calculo)

 

Ex: Y = Mid(Text1.Text, 4, 2) > nesse formato ele considera a hora no formato 11:02:32

Y = Mid(Text1.Text, 3, 2) > agora se mudo o 4 para 3 ele não le o primeiro digito da hora e considera 1:02:32

Gostaria que esse campo Text entendesse os dois formatos.

[Calculo VB6]

Boa tarde,

 

      Estou tentado fazer uma calculo de três variáveis mais estou tendo dificuldades, vou tentar explicar o mas detalhado possível.

O codigo abaixo esta funcionando bem o problema é que depois tenho que seguir com o calculo e não sei como, depois de >> MsgBox ("Total de TMA " & media & "") << tenho que dividir por 214-1 e não sei como, já tentei algo como >> MsgBox ("Desvio TMA " & media & "") / 214 - 1 << e não du certo.

Vou deixar o link do projeto para verificar.

 

Obrigado

https://www.sendspace.com/file/p00z64

 

Private Sub Command1_Click()
Dim a, b As Integer
Dim media As Long
a = Val(InputBox(" Quantidade de Chamadas"))
b = Val(InputBox(" Total em Segundos"))
media = (b / a)

MsgBox ("Total de TMA " & media & "")

End Sub

 

[script phpsfp - schedule facebook posts]

Bom Dia.

Estou tendo esse erro com o script.

Já resintalei , já deletei e criei um novo aplicativo e o erro permanece

Segue o print por si alguém sabe algo desse erro.

Obrigado.