Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Ajuda para acessar site via excel
-
- Colaborador
- Mensagens: 27
- Registrado em: Qua Ago 19, 2015 11:25 pm
Ajuda para acessar site via excel
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!!
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!!
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Ajuda para acessar site via excel
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:
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.
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
Teste e nos retorne. Abraços e bem vindo de volta.
-
- Colaborador
- Mensagens: 27
- Registrado em: Qua Ago 19, 2015 11:25 pm
Re: Ajuda para acessar site via excel
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:Segui o código que você me passou e espero que funcione desta vez.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
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?
Valeeeeeu!!!
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Ajuda para acessar site via excel
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.
Apenas substitua o valor doc, apresentado no erro, pelo comando objDoc.
Teste e nos retorne.
Abraços e bom final de semana.
-
- Colaborador
- Mensagens: 27
- Registrado em: Qua Ago 19, 2015 11:25 pm
Re: Ajuda para acessar site via excel
Mestre Mikel!!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.
td bem??
Apareceu esse novo erro ao rodar a linha "do until .readyState = 4: VBA.DoEvents: loop"
E agora?