rellenar formulario WEB con excel

AGmzT · #1 (**permalink**) 18/08/2015, 18:22

Hola a Todos!

Quiero agilizar el trabajo en la oficina, para eso tengo que rellenar de forma automatica un formulario web desde excel usando VBA,
Se que para llenar un campo puedo usar el siguiente código:
"IE.Document.getelementbyid("gbqfq").Value = "1234""

Pero en la pagina el còdigo es este:
<tr>

<td class="rotulo"></td>
<td class="ingreso">
<input maxlength="2" size="10" name="Serie"></input>
</td>

He probado con getelementbyid, getelementbyname, y getelementbyTagName
pero sigue dandome el error 424

Que me sugieren
Muchas Gracias

Slds

jchuk · #2 (**permalink**) 19/08/2015, 01:49

Hola,

No sabría realmente solucionarte el problema, pero me pregunto si tu control no se llama "Serie" en lugar de "gbqfq".

Igual es ese el error que te está enviando.

Saludos!!

AGmzT · #3 (**permalink**) 19/08/2015, 14:09

Cita:

Iniciado por jchuk

Hola,

No sabría realmente solucionarte el problema, pero me pregunto si tu control no se llama "Serie" en lugar de "gbqfq".

Igual es ese el error que te está enviando.

Saludos!!

Hola!

Perdón, fue error mio, el "gbqfq" es algo que escribí solo como ejemplo del código que estaba usando, en realidad si use "Serie" en el código verdadero y me dio el error 424.

Disculpas del caso

Slds

Perr0 · #4 (**permalink**) 27/08/2015, 09:11

Hola AGmzT, ojo con las funciones, tienen sensitive case, como por ejemplo

no es lo mismo
document.getElementById(Id)
que
document.getelementbyid(Id)

ahora, para cargar por web, la macro la hago en ACCESS con un WEBBROWSER, me parece que EXCEL es limitado en esa parte.

salu2

mrocf · #5 (**permalink**) 05/09/2015, 12:35

Hola! a todos
No pretendo, AGmzT, enseñarte -en una respuesta- el lenguaje HTML. Pero si te puedo dar una idea de lo que está pasando. Veamos:

- Abre el Notepad tras lo cual copia y pega lo siguiente:

Código HTML:

Ver original<html>
  <head>
    <title>Este es el 'head' de la página</title>
  </head>
 
  <body>
    <input type="text" name="txtInput_1" value="Primera caja de texto">
    <br><br>
    <input type="text" name="txtInput_2" value="Segunda caja de texto">  
    <br><br>
    <input type="text" name="txtInput_3" value="Tercera caja de texto" id="ct01">  
  </body>
 
</html>

- Guarda este archivo de texto con el siguiente nombre: Htm de prueba.htm

- Vamos al Excel... Crea un nuevo libro e incorpórale a un módulo común la siguiente macro:

Código vb:

Ver originalSub Macro1()
Dim ie, mObj, iElem
Cells.Clear: Range("a1:c1") = Array("Por Id:", , "Por Name:")
 
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate ThisWorkbook.Path & "\Htm de prueba.htm"
 
'Búsqueda por Id:
Set mObj = ie.Document.getelementbyid("ct01")
Range("a2") = mObj.Value
 
'Búsqueda por Tag:
Set mObj = ie.Document.getElementsByTagName("input")
 
For Each iElem In mObj
  Cells(Rows.Count, "c").End(xlUp).Offset(1) = iElem.Value
Next
End Sub

- Guarda este libro Excel EN LA MISMA CARPETA donde guardaste el archivo de texto anterior con cualquier nombre.

- ¿Qué hace esta macro?...

a) Crea una instancia de IE
b) Navega hacia la página representada por el archivo Htm de prueba.htm.
c) Y utiliza las dos variantes sobre las que quiero hacerte notar la diferencia.
___________________________

- Cuando la macro hace:
Set mObj = ie.Document.getelementbyid("ct01")

es porque EN TODA LA PÁGINA Web existe un ÚNICO elemento identificado por el nombre "ct01".

Este hecho -en la página- lo ves aquí:
<input type="text" name="txtInput" value="Tercera caja de texto" id="ct01">
(¿ves que al final dice: id="ct01"?)

¿Nos vamos entendiendo?...
___________________________

- Ahora bien: las otras dos cajas de texto no están identificadas. Nos preguntamos: ¿Cómo acceder a ellas?...

- Lo hacemos utilizando una variante del "get" anterior que es:
Set mObj = ie.Document.getElementsByTagName("input")

Los detalles a tener en cuenta son:

- La "s" en getElementsByTagName te indica que no obtendremos "un único elemento" sino TODOS los elementos identificados por el tag "input" (para el ejemplo).

- Así el objeto "mObj" de la macro se transforma en una colección de "input" a la que accedemos -una a una- mediante: For Each - Next.

- Entonces: ¿Cómo identificas de entre todos los elementos "input" el que estás intentando localizar?...
. A veces por el "className": iElem.className
. Otras veces por el "Name": iElem.Name (aparentemente éste sería tu caso).
___________________________

- Para terminar, entonces: tu macro debe recorrer -en estos casos- TODO el conjunto de "input" hasta hallar aquél cuyo "Name" estás tratando de localizar.

- Y una vez localizado: ¿Qué haces?... Bueno:

En lugar del "tranquilo y cómodo":
IE.Document.getelementbyid("gbqfq").Value = "1234"

harás:
iElem.Value = "1234"
___________________________

¿Entendido?...
Saludos, Cacho R.