Notifications
Clear all

Inserir dados no input do HTML usando VBA

8 Posts
2 Usuários
0 Reactions
1,503 Visualizações
sagrado7
(@sagrado7)
Posts: 32
Eminent Member
Topic starter
 

Preciso inserir dados em campos de input de uma certa pagina na intranet da empresa que trabalho, porém não estou conseguindo. Testei vários códigos que funcionam em outras páginas da WEB, mas nessa que tenho infelizmente não funcionou nenhum dos métodos que testei.
O arquivo html está em anexo.

 Dim IE As Object
    Dim objElement As Object
    Dim objCollection As Object
    
    ' Cria instância do IE
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' Define se a janela do IE será ou não exibida
    IE.Visible = True
     
    ' Define o endereço a ser carregado
    IE.Navigate ("file:///C:/.../R.html") 'Inserir caminho do arquivo R.html

    IE.Document.all("CD_TRANSPORTE").innerText = "0123456789" 'Essa linha não funciona e não sei por quê

Conte Comigo!
Profissão: Programador VBA Pleno
"Para bom entendedor, meia palavra basta"

 
Postado : 11/03/2016 7:01 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde sagrado7,

Cara, na verdade não consegui nem mesmo abrir o html no meu IE, não sei se é porque não possuo os arquivos CSS e JS, mas abriu apenas no Chrome (meu html está enferrujado para olhar essa parte kkkkk)...
Mas tenta utilizar assim:

IE.Document.all.item("CD_TRANSPORTE").innerText = "0123456789"

Qualquer coisa da o grito.
Abraço

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

 
Postado : 11/03/2016 8:38 am
sagrado7
(@sagrado7)
Posts: 32
Eminent Member
Topic starter
 

Nao deu certo o seu metodo Bernardo. O arquivo que mandei está compactado em zip.

Conte Comigo!
Profissão: Programador VBA Pleno
"Para bom entendedor, meia palavra basta"

 
Postado : 11/03/2016 8:44 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Sim, descompactei e abri o HTML no Chrome, mas no meu IE não abriu.
O Código Fonte da página é exibido, mas a página aparece em branco.

Abre a página no Chrome, por exemplo, clique com o botão direito em qualquer local da página e clica em Salvar Como.
Vai salvar a página completa.
Compacta a página completa e me envia.

Qualquer coisa da o grito.

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

 
Postado : 11/03/2016 8:46 am
sagrado7
(@sagrado7)
Posts: 32
Eminent Member
Topic starter
 

Pronto salvei a pagina completa em anexo.
Ve se vc consegue inserir dados no input "CD_TRANSPORTE".

Conte Comigo!
Profissão: Programador VBA Pleno
"Para bom entendedor, meia palavra basta"

 
Postado : 11/03/2016 12:10 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Cara, seguinte...

Altera o endereço da intranet no código e executa ele.
Se der certo eu explico. Correria aqui no trampo. kkkkkkk

Qualquer coisa da o grito.
Abraço

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

 
Postado : 11/03/2016 1:28 pm
sagrado7
(@sagrado7)
Posts: 32
Eminent Member
Topic starter
 

Mas se eu alterar o endereço aí que não funciona mesmo, nem vai entrar na pagina.

Conte Comigo!
Profissão: Programador VBA Pleno
"Para bom entendedor, meia palavra basta"

 
Postado : 14/03/2016 5:00 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia sagrado7,

Não entendi cara...
Chegou a testar a planilha que enviei? Funcionou?

Qualquer coisa da o grito.
Abraço

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

 
Postado : 14/03/2016 6:10 am