Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro VBA - IE erro
 
Notifications
Clear all

Macro VBA - IE erro

 
2024 - VBA & Macros
6 Posts
2 Usuários
0 Reactions
893 Visualizações
RSS
 adrianofc
(@adrianofc)
Posts: 3
New Member
Topic starter
 

Pessoal boa tarde,

Estou fazendo uma macro onde insiro algumas informações via VBA no IE, está dando erro de execução '424' na linha em negrito, quero fazer com que a textbox da pág do IE receba o valor do id_transporte.

Obs.: Este link é de intranet, é uma pesquisa onde pretendo extrair relatório a partir de uma id_transporte de rádio frequência. Desde já já agradeço.

Sub WHP_RF()

Dim IE As Object
Dim qtde As Integer
Dim id_transporte As Variant

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate " http://hor-miirfprd:50000/XMII/CM/RF/Relatorios/RelatorioDePicking/relatorioPicking.irpt"

id_transporte = "251879294"

With IE
Set Document.getElementByID("CD_TRANSPORTE") = id_transporte
End With

End Sub

 
Postado : 24/02/2016 1:32 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

e qual o texto do erro ?
Tudo que aparece na msg de erro , além do 424 erro em tempo de execução...

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

 
Postado : 24/02/2016 1:50 pm
 adrianofc
(@adrianofc)
Posts: 3
New Member
Topic starter
 

Erro em tempo de exceção '424':
O objeto é obrigatório

 
Postado : 24/02/2016 2:00 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

É esse "Document" que não existe no escopo !

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

 
Postado : 24/02/2016 2:01 pm
 adrianofc
(@adrianofc)
Posts: 3
New Member
Topic starter
 

declarei ela como objeto e apareceu novo erro na linha

Erro em tempo de exceção '91':
A variável do objeto ou a variável do bloco 'Witch' não fou definida

 
Postado : 24/02/2016 2:06 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Essa linha não é boa:
Set Document.getElementByID("CD_TRANSPORTE") = id_transporte

pq ela seta o document do jeito errado, ... tá tudo errado nela...

troque por algo assim:

dim document
dim elemento
Set document = IE.Document
Set elemento= Document.getElementByID("CD_TRANSPORTE")

'daí depois vc tenta mudar o valor do elemento:
elemebto.value = id_transporte

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

 
Postado : 24/02/2016 8:44 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico