silvagno

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

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

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.

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)

@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.

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.

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

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.