Página 1 de 1
Ajuda para acessar site via excel
Enviado: Qui Fev 18, 2016 8:31 pm
por romulocesar
Boa noite Mikel!!!
Quanto tempo!!
Td bem??
Cara,seguinte, voltando a ultima ajuda que lhe pedir!!!
Trabalho na caixa!!E existe um site interno nosso em que rodo meus processos!! Gostaria de automatizar alguns desses meus processos para agilizar os trabalhos do meu dia a dia e facilitar qualquer pessoa rodar esses processos tbm.
Ja tentei varias vezes acessar esse site atraves do excel, mas na hora que o codigo executa a linha de comando para linkar o excel ao explorer aparece a mensagem:"O objeto chamado foi desconectado de seus clientes"
O codigo esta em anexo!!
Ver se é possivel conectar esse site com o excel. A linha que quero acessar esta em vermelho!!
Arrocha ai!!! \o/
Obrigaaaado!!
Re: Ajuda para acessar site via excel
Enviado: Sex Fev 19, 2016 10:17 am
por Mikel Silveira Fraga
Fala Rômulo, a quanto tempo. Tudo bem?
Cara, achei que você havia desistido dessa rotina, pois não retornou mais. hehehehe
Olha, dei uma olhada agora e criei uma estrutura, utilizando o
Microsoft Internet, conforme já vinhamos trabalhando. Teste o código abaixo, acrescentando os valores nos lugares comentados:
Código: Selecionar todos
Option Explicit
Dim objIE, objLink, objLinkCol, objDoc As Object
Const strURL As String = "" 'Informe o endereço.
Sub LogarCaixa()
Set objIE = Nothing
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Navigate URL
.Visible = False
Do Until .ReadyState = 4: VBA.DoEvents: Loop
Set objDoc = .Document
End With
objDoc.getElementsByName("username").Item.InnerText = "" 'Informe o Login.
objDoc.getElementsByName("password").Item.InnerText = "" 'Informe a Senha.
Set objLinkCol = Nothing
Set objLinkCol = doc.getElementsByTagName("A")
For Each objLink In objLinkCol
If objLink.InnerText = "Entrar" Then
objLink.Click
Exit For
End If
Next objLink
End Sub
Segui o código que você me passou e espero que funcione desta vez.
Teste e nos retorne. Abraços e bem vindo de volta.
Re: Ajuda para acessar site via excel
Enviado: Sáb Mar 05, 2016 6:41 pm
por romulocesar
Mikel Silveira Fraga escreveu:Fala Rômulo, a quanto tempo. Tudo bem?
Cara, achei que você havia desistido dessa rotina, pois não retornou mais. hehehehe
Olha, dei uma olhada agora e criei uma estrutura, utilizando o
Microsoft Internet, conforme já vinhamos trabalhando. Teste o código abaixo, acrescentando os valores nos lugares comentados:
Código: Selecionar todos
Option Explicit
Dim objIE, objLink, objLinkCol, objDoc As Object
Const strURL As String = "" 'Informe o endereço.
Sub LogarCaixa()
Set objIE = Nothing
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Navigate URL
.Visible = False
Do Until .ReadyState = 4: VBA.DoEvents: Loop
Set objDoc = .Document
End With
objDoc.getElementsByName("username").Item.InnerText = "" 'Informe o Login.
objDoc.getElementsByName("password").Item.InnerText = "" 'Informe a Senha.
Set objLinkCol = Nothing
Set objLinkCol = doc.getElementsByTagName("A")
For Each objLink In objLinkCol
If objLink.InnerText = "Entrar" Then
objLink.Click
Exit For
End If
Next objLink
End Sub
Segui o código que você me passou e espero que funcione desta vez.
Teste e nos retorne. Abraços e bem vindo de volta.
Boa noite meu amigo Mikel!!
Td bom??
cara,ao executar a macro dava um erro logo de cara.
Tem como vc dar uma olhadinha pra mim?
- Erro (3).jpg (240.95 KiB) Exibido 5598 vezes
Valeeeeeu!!!
Re: Ajuda para acessar site via excel
Enviado: Sáb Mar 05, 2016 7:05 pm
por Mikel Silveira Fraga
Romulo, boa noite.
Apenas substitua o valor doc, apresentado no erro, pelo comando objDoc.
Teste e nos retorne.
Abraços e bom final de semana.
Re: Ajuda para acessar site via excel
Enviado: Sáb Mar 12, 2016 5:20 pm
por romulocesar
Mikel Silveira Fraga escreveu:Romulo, boa noite.
Apenas substitua o valor doc, apresentado no erro, pelo comando objDoc.
Teste e nos retorne.
Abraços e bom final de semana.
Mestre Mikel!!
td bem??
Apareceu esse novo erro ao rodar a linha "do until .readyState = 4: VBA.DoEvents: loop"
- erro mikel.jpg (175.85 KiB) Exibido 5556 vezes
E agora?