¡Hola!
Tu código iba bien encaminado, y tu idea de jugar con el classname también. El problema es el código fuente de la URL proporcionada. Si lees el código fuente, verás que en realidad el elemento que buscas no está en el propio HTML (yo lo leo con Mozilla Firefox, y no me sale), porque el input que tú buscas, en realidad está dentro de un frame que se carga en la principal. Es decir, está en otro documento (si sabes JS y PHP estoy convencido de que sabes más que yo de esto de los documentos, frames y demás, pero espero haberme explicado, yo de PHP y JS ni idea, puro VBA es lo mío).
Sabiendo esto, antes de intentar conseguir el elemento, tienes que acceder al documento del frame. En concreto, el frame que te interesa se llama mainFrame.
Mi código es una copia del tuyo, pero ampliando un poco. Por resumir, los pasos son:
- Navegamos a la URL objetivo
- Seleccionamos el documento principal de la URL
- Dentro de ese documento principal, seleccionamos el frame objetivo
- Una vez dentro del frame, seleccionamos el documento que compone el frame
- Seleccionamos el Input objetivo, y escribimos lo que queremos (en este caso, prueba)
Y ahora el código. Espero que te pueda servir. Modifícalo para tus necesidades.
IMPORTANTE: Tienes que activar dos referencias en la librería VBA. Las librerías son:
- Microsoft HTML Object Library
- Microsoft Internet Controls
El código:
Dim IE As InternetExplorer
Dim DOC As HTMLDocument
Dim url As String
url = "http://www.salvadorescoda.com/tarifas/index.htm"
Set IE = New InternetExplorer
IE.Visible = True
IE.navigate url
While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE
DoEvents
Wend
Set DOC = IE.document
Dim iFrameDoc As HTMLDocument
Set iFrameDoc = DOC.frames("mainFrame").document 'especificamos el nombre del frame
If iFrameDoc Is Nothing Then
MsgBox "No existe ningún frame con el nombre especificado."
IE.Quit
Set IE = Nothing
Exit Sub
End If
Dim itemEle As Object
'ya estamos en el frame, ahora podemos conseguir el elemento INPUT
For Each itemEle In iFrameDoc.getElementsByTagName("input")
If itemEle.getAttribute("class") = "campocodigo" Then
itemEle.Value = "prueba"
Exit For
End If
Next
'<----------resto de tu código------->
IE.Quit
Set IE = Nothing
Lo que yo consigo ejecutando el código:
Espero que te sirva, y te animo a seguir con VBA, que es un lenguaje muy puñetero, pero a la larga creo que merece la pena.
Un saludo.
ACTUALIZACIÓN: OP tiene un problema con IE 11, porque no le reconoce los frames. Vamos a probar con otra manera de llamarlos, a ver si cuela.
CÓDIGO VERSIÓN IE 11
Dim IE As InternetExplorer
Dim DOC As HTMLDocument
Dim url As String
Set IE = Nothing
Set DOC = Nothing
url = "http://www.salvadorescoda.com/tarifas/index.htm"
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate url
While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE
DoEvents
Wend
Set DOC = IE.document.frames
Dim iFrameDoc As HTMLDocument
Set iFrameDoc = DOC.Item("mainFrame").document 'especificamos el nombre del frame
If iFrameDoc Is Nothing Then
MsgBox "No existe ningún frame con el nombre especificado."
IE.Quit
Set IE = Nothing
Exit Sub
End If
Dim itemEle As Object
'ya estamos en el frame, ahora podemos conseguir el elemento INPUT
For Each itemEle In iFrameDoc.getElementsByTagName("input")
If itemEle.getAttribute("class") = "campocodigo" Then
itemEle.Value = "prueba"
Exit For
End If
Next
'<----------resto de tu código------->
IE.Quit
Set IE = Nothing