¿Es posible abrir varias webs desde Microsoft Excel?
La respuesta es Afirmativa, y lo vamos a demostrar.
Me surgió la inquietud, seguramente de muchas personas o empresas, de que si podemos abrir varias webs a la vez mediante la aplicación de Microsoft Excel, y por supuesto la he resuelto.
Tenemos en una hoja una tabla, en la cual, le hemos puesto un id, la dirección de la página web abrir, y un tercer campo que es el nombre común.
En mi caso, a esta tabla le hemos puesto el nombre de TablaWEBs, pero por supuesto cada uno puede ponerle el nombre que quiera.
Esta parte es para que solamente nos abra una web, la especificada en nuestro formulario.
En otra hoja tenemos una especie de formulario de la siguiente forma:
En la primera parte en Nombre Común, hemos creado una validación de datos, para que nos coja los nombres de las web de la tabla creada.
En la segunda parte hemos creado una fórmula con BuscarX con el objeto de que nos busque la dirección de la web en la tabla, la formula es la siguiente:
=BUSCARX(B3;TablaWEBs[NOMBRE COMUN];TablaWEBs[PAGINA];"La Web no se encuentra";0).
Vamos a explicar un poco está fórmula que no es muy compleja:
El valor buscado es el introducido en la celda B3 que.
La Matriz Buscada es el campo Nombre Comun de la tabla de la otra hoja.
La Matriz Devuelta es el campo Página de la tabla anterior.
Si no encuentra el valor nos introducirá La Web no se encuentra.
Modo de coincidencia es 0.
Posteriormente hemos creado un botón que nos abrirá un trozo de código y nos abrirá la web especificada.
La macro que nos abrirá una web es:
Sub AbrirUrlEspecifica()
Dim Url As String
Sheets("Pagina").Select
Url = Range("C3").Value
ActiveWorkbook.FollowHyperlink Url
End Sub
Sub AbrirVariasUrl()
Dim Url As String
Sheets("WEBS").Select
Range("B2").Select
Do Until IsEmpty(ActiveCell)
'MsgBox "Webs: " & ActiveCell.Value
Url = ActiveCell.Value
ActiveWorkbook.FollowHyperlink Url
ActiveCell.Offset(1, 0).Select
Loop
End Sub
No hay comentarios:
Publicar un comentario
Gracias por participar en esta página.