Buen video. ¿Los los links no los reconoce si tienen "nombre descriptivo", osea la abreviacion para que el link se vea mas agradable? Me lanza error en donde escribiste ThisWorkbook esa linea...
Una pregunta, como puedo navegar por una web. pe: una web que tena que darle a un botón para descargar un fichero excel pero para ello tengo que darle a una opcion anteriormente. Gracias y explicas muy bien.
Gracias por compartir. Muestro otra forma de hacerlo, El procedimiento requiere que se SELECCIONE EL RANGO que contenga las URL que se desean abrir en el navegador. Sub Abrir_Paginas_Web() Dim Celda As Range Dim OBJ As Object
Set OBJ = CreateObject("Shell.Application") For Each Celda In Selection OBJ.ShellExecute Celda Application.Wait (Now + TimeValue("00:00:03")) Next End Sub
Buenas! Me dice al ejecutar "Se ha producido el error "424" en tiempo de ejecución: Se requiere un objeto. Esto me lo dice en la primer linea, que podra ser?
Mucha gracias mister. Tengo una pregunta: cuando la cantidad de urls no es el mismo hay alguna forma de no colocarle un rango definido sino que la macro interprete que debe abrir las direcciones de toda la columna A siempre y cuando haya url en cada celda, y en el evento que no haya texto ahí no las asuma?
Panita yo lo hice así de pronto aun te sirva Sub AbrirUrl() If Hoja8.Range("C2").Value "" Then Dim i As Integer
For i = 2 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row ThisWorkbook.FollowHyperlink ActiveSheet.Cells(i, 3).Value Application.Wait Now + TimeValue("00:00:01") Next i Else: MsgBox "Debe tener una URL como minimo para consultar" End If End Sub
como hago para que, abra una pestaña, la cierre y abra la siguiente, esto ya que tengo que revisar ventas en el entorno web y claro dar click link x link y cerrar... Gracias
resuelto... Llamo a la direccion web desde un listado abre, hace lo que necesito y cierro usando Application.SendKeys "%{F4}", True ' CTRL F4 las voy cerrando y luego Next Hasta acabar el listado Gracias
Gracias por el metodo amigo! pregunta, sabes como se puede realizar pero que abra por ventanas ? es decir que sean paginas independientes y no sobre una misma en pestañas, te lo agradecería!
FELICITACIONES POR TU TRABAJO!. Si alguien me puede ayudar... Necesito abrir urls en el Navegador (Chrome), seleccionar el contenido (sin imágenes); copiarlo y pegarlo en una celda Excel. Luego extraigo datos con fórmulas. Estaba usando esta que baja el HTML, pero ahora necesito abrir; seleccionar contenido; copiar y pegar. Entiendo que se usa .ExecWB 17, 0 / .ExecWB 12, 2 pero no tengo conocimiento en VBA. La Macro que estoy usando es: 'En una hoja vacía, poner las URL en la columna E, selecciona las celdas y ejecutar esta macro 'F es la columna donde descarga HTML de la Web 'Sub SeguimientoAndreani(): On Error Resume Next 'For Each url In Selection ' With CreateObject("MSXML2.XMLHTTP") ' .Open "GET", url, False ' .Send ' Range("F" & url.Row) = .ResponseText ' End With 'Next 'End Sub Sds.
Gracias andres siempre nos sorprende cada dia felecidades por tener gran virtud y por compartir a la comunidad bendiciones
gracias por aliviarme la vida de verdad, lo intente con una macro generada, pero no sabia como hacer la funcion For, muchisimas gracias
Buen video.
¿Los los links no los reconoce si tienen "nombre descriptivo", osea la abreviacion para que el link se vea mas agradable?
Me lanza error en donde escribiste ThisWorkbook esa linea...
Gracias amigo usted siempre me sorprende mis respetos 👏🤝
Una pregunta, como puedo navegar por una web. pe: una web que tena que darle a un botón para descargar un fichero excel pero para ello tengo que darle a una opcion anteriormente. Gracias y explicas muy bien.
Podrías hacer un vídeo con web scraping método post a una página web rellenar textos
Muy bien video, me recuerda mucho a los bots con UIPATH.
eso esta bueno maestro andres genial👌
Gracias por compartir. Muestro otra forma de hacerlo, El procedimiento requiere que se SELECCIONE EL RANGO que contenga las URL que se desean abrir en el navegador.
Sub Abrir_Paginas_Web()
Dim Celda As Range
Dim OBJ As Object
Set OBJ = CreateObject("Shell.Application")
For Each Celda In Selection
OBJ.ShellExecute Celda
Application.Wait (Now + TimeValue("00:00:03"))
Next
End Sub
Amigo sabes como abrir en ventanas cada link? te lo agradecería
Hola, alguna forma de que luego de que abra el primer link ejecute una busqueda con control+F y luego me diga en excel si hay coincidencias o no?
Buenas! Me dice al ejecutar "Se ha producido el error "424" en tiempo de ejecución: Se requiere un objeto. Esto me lo dice en la primer linea, que podra ser?
Mucha gracias mister.
Tengo una pregunta: cuando la cantidad de urls no es el mismo hay alguna forma de no colocarle un rango definido sino que la macro interprete que debe abrir las direcciones de toda la columna A siempre y cuando haya url en cada celda, y en el evento que no haya texto ahí no las asuma?
Panita yo lo hice así de pronto aun te sirva
Sub AbrirUrl()
If Hoja8.Range("C2").Value "" Then
Dim i As Integer
For i = 2 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
ThisWorkbook.FollowHyperlink ActiveSheet.Cells(i, 3).Value
Application.Wait Now + TimeValue("00:00:01")
Next i
Else: MsgBox "Debe tener una URL como minimo para consultar"
End If
End Sub
Abre todas las pestañas a la vez 👍
¿Por qué el i del for es declarado como long, si es un numero pequeño y sería sobrado un short?
Buen dia Andres, podrias crear una macro que envie datos a una hoja de google sheets. Gracias de antemano
como hago para que, abra una pestaña, la cierre y abra la siguiente, esto ya que tengo que revisar ventas en el entorno web y claro dar click link x link y cerrar...
Gracias
resuelto...
Llamo a la direccion web desde un listado
abre, hace lo que necesito y cierro usando
Application.SendKeys "%{F4}", True ' CTRL F4 las voy cerrando y luego
Next
Hasta acabar el listado
Gracias
@@victorberrios5369 Gracias. En el evento que uno desee que se cierre por ejemplo 20 segundos después que fracción de código se debe poner?
Gracias por el metodo amigo! pregunta, sabes como se puede realizar pero que abra por ventanas ? es decir que sean paginas independientes y no sobre una misma en pestañas, te lo agradecería!
debería ser :
SendKeys "^n"
FELICITACIONES POR TU TRABAJO!.
Si alguien me puede ayudar...
Necesito abrir urls en el Navegador (Chrome), seleccionar el contenido (sin imágenes); copiarlo y pegarlo en una celda Excel.
Luego extraigo datos con fórmulas.
Estaba usando esta que baja el HTML, pero ahora necesito abrir; seleccionar contenido; copiar y pegar.
Entiendo que se usa .ExecWB 17, 0 / .ExecWB 12, 2 pero no tengo conocimiento en VBA.
La Macro que estoy usando es:
'En una hoja vacía, poner las URL en la columna E, selecciona las celdas y ejecutar esta macro
'F es la columna donde descarga HTML de la Web
'Sub SeguimientoAndreani(): On Error Resume Next
'For Each url In Selection
' With CreateObject("MSXML2.XMLHTTP")
' .Open "GET", url, False
' .Send
' Range("F" & url.Row) = .ResponseText
' End With
'Next
'End Sub
Sds.
Sale un error que dice que no se ha definido la Variable
definela
@@claudiarociorocioishiyamag3853 Pero como, si todo está como el vídeo, no debería fallar...
Soberbia la manera de explicar VBA. Tus videos se hacen bien cortos. Un abrazo!!