-
Posts
-
Private Sub CommandButton1_Click() Dim Celda As Range, x As Long Application.ScreenUpdating = False For x = 2 To Range("A" & Rows.Count).End(xlUp).Row Range("K" & x) = "" Set Celda = Sheets("Sheet2").Columns("A").Find(Range("A" & x), , , xlWhole) If Not Celda Is Nothing Then Range("K" & x) = Celda.Offset(0, 1) Next End Sub
-
Hola @Galactico, ¿has probado a extraer el texto de la etiqueta "a"? Y si ha sido así, ¿qué resultado has obtenido?
-
buenas noches, estoy trabajando en una macro para obtener datos web, de a poco he ido aprendiendo como poder obtener objetos desde las diferentes paginas pero ahora he llegado a un punto donde no puedo seguir avanzando, precisamente con lo siguiente tengo este código de pagina fuente <a href="www.google.com" data-original-title="" title=""> <span itemprop="category">Hola</span> "Adios" </a> con el siguiente código htmlDeRespuesta.getElementsByTagName("span")(0).innerText puedo obtener el texto Hola, pero no he logrado dar con la solución para obtener el dato Adios por favor agradecería mucho su apoyo y gracias por el espacio saludos!
-
hola Sergio. Gracias por tu respuesta. Pues algo así también he pensado. traducir las diferentes cantidades e ir cambiándolas en la macro saludos
-
By Gerson Pineda · Posted
Pues creo que si hay algo... aunque si ya lo hiciste, pues no estaría mal que lo compartas Saludos!
-
-
Recently Browsing
No registered users viewing this page.
Recommended Posts
Archived
This topic is now archived and is closed to further replies.