buenas noches, dispongo de esta macro para navegar dentro de una pagina web
Sub test()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Top = 0
.Left = 0
.height = 1000
.Width = 1050
.Visible = True
.Navigate "www.google.com"
Do While .Busy Or Not .ReadyState = 4: DoEvents: Loop
End With
End Sub
estoy tratando de cambiar el "www.google.com" por el valor de una celda, específicamente concatenando el texto inicial del link (www.google.com/) y el texto de una celda que quiero buscar, por ejemplo:
el texto inicial seria www.google.com/
celda a1 contiene el texto "item1" por lo que el link debería quedar como: www.google.com/item1
celda a2 contiene el texto "item2"por lo que el link debería quedar como: www.google.com/item2
he intentado de las siguientes formas
.Navigate Range("a" & CStr(i)).Hyperlinks(1).Address (utilizando el link completo en una celda)
también he probado con
.Navigate "www.google.com/ & CStr(i)" tratando de dejar www.google.com/ como texto fijo y utilizando el valor de las celdas a1 y a2, pero no logro resultados
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
Dim rng As Range
Set rng = Range("r1", Range("r200"))
counter = rng.Count
For i = 1 To counter
With IE
.Top = 0
.Left = 0
.height = 1000
.Width = 1550
.Visible = True
.Navigate Range("a" & CStr(i)).Hyperlinks(1).Address
Do While .Busy Or Not .ReadyState = 4: DoEvents: Loop
End With
End If
Next i
End Sub
por favor agradecería mucho cualquier tipo de ayuda para aclarar la forma en la que debo escribir el código
gracias
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
buenas noches, dispongo de esta macro para navegar dentro de una pagina web
Sub test() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") With IE .Top = 0 .Left = 0 .height = 1000 .Width = 1050 .Visible = True .Navigate "www.google.com" Do While .Busy Or Not .ReadyState = 4: DoEvents: Loop End With End Sub
estoy tratando de cambiar el "www.google.com" por el valor de una celda, específicamente concatenando el texto inicial del link (www.google.com/) y el texto de una celda que quiero buscar, por ejemplo:
el texto inicial seria www.google.com/
celda a1 contiene el texto "item1" por lo que el link debería quedar como: www.google.com/item1
celda a2 contiene el texto "item2"por lo que el link debería quedar como: www.google.com/item2
he intentado de las siguientes formas
.Navigate Range("a" & CStr(i)).Hyperlinks(1).Address (utilizando el link completo en una celda)
también he probado con
.Navigate "www.google.com/ & CStr(i)" tratando de dejar www.google.com/ como texto fijo y utilizando el valor de las celdas a1 y a2, pero no logro resultados
Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") Dim rng As Range Set rng = Range("r1", Range("r200")) counter = rng.Count For i = 1 To counter With IE .Top = 0 .Left = 0 .height = 1000 .Width = 1550 .Visible = True .Navigate Range("a" & CStr(i)).Hyperlinks(1).Address Do While .Busy Or Not .ReadyState = 4: DoEvents: Loop End With End If Next i End Sub
por favor agradecería mucho cualquier tipo de ayuda para aclarar la forma en la que debo escribir el código
gracias