Extraer dirección electrónica de una celda
Hola quisiera saber como extraigo la dirección de la página principal de un listado de páginas de internet ejemplos:
https://www.tienda.imcp.org.mx/product.php?productid=18641 https://www.tierracomunera.org/es/contenido/?iddoc=893 https://www.todoancianos.com/asociaciones-en-guadalajara https://www.todoarquitectura.com/v2/foros/topic.asp?... https://www.tododemonterrey.com/actividades.htm https://www.todoelderecho.com/.../colegiosdeabogados.htm https://www.todoendiabetes.org/diabe2/.../GruposAyuda.jsp - https://www.todoloscabos.com/.../asociacionescamarasyfederaciones.htm - https://www.todoperros.com/categorias.php?curr_cat... - https://www.todoslosdiarios.com/.../Mexico/.../Noticias-de-Diario-Rotativo-del-26-08-2010.html https://www.ttp//docs.google.com/viewer?a=v&q=cache:94LN91sOjngJ:www.ai.org.mx/archivos/seminarios/situacion-actual-prospectiva-energeticak1/Ing_Gomez_Cabrera/3.Que%2520es%2520el%2520colegio%2520de%2520ingenieros%2520petroleros%2520de%2520mexico.pdf+Colegio+de+Ingenieros+en+mexico&hl=es&gl=mx&pid=bl&srcid=m6Gv58ikStcXXhEgh0cMpyMqKlKdEOysovHr2vDYxHxglpNqF-6dP_R8eXO1xqWXA_5pHsr2JvzEGtaQ6gEOao3srcuONOnOnbSIJ26FZbrJuS01qNO5j2n-fi1&sig=AHIEtbRzcud55RM8SA6pp0W39hSHnTM5Kw
especificamente lo que quiero es extraer el contenido completo de la dirección de internet que inicia con http://?.?.?.?/ hasta la tercera diagonal ,despues del "http://"
osea http://loquesea.com/ , http://loquesea.com.mx/ , http://loquesea.org/
http://207.249.136.15/ , http://loquesea.net/ , http://loquesea.edu/ , etc.
Por favor necesito su ayuda debo depurar una base de 48000 registros
Todo el listado que tengo ya tiene el "http://" gracias.
https://www.tienda.imcp.org.mx/product.php?productid=18641 https://www.tierracomunera.org/es/contenido/?iddoc=893 https://www.todoancianos.com/asociaciones-en-guadalajara https://www.todoarquitectura.com/v2/foros/topic.asp?... https://www.tododemonterrey.com/actividades.htm https://www.todoelderecho.com/.../colegiosdeabogados.htm https://www.todoendiabetes.org/diabe2/.../GruposAyuda.jsp - https://www.todoloscabos.com/.../asociacionescamarasyfederaciones.htm - https://www.todoperros.com/categorias.php?curr_cat... - https://www.todoslosdiarios.com/.../Mexico/.../Noticias-de-Diario-Rotativo-del-26-08-2010.html https://www.ttp//docs.google.com/viewer?a=v&q=cache:94LN91sOjngJ:www.ai.org.mx/archivos/seminarios/situacion-actual-prospectiva-energeticak1/Ing_Gomez_Cabrera/3.Que%2520es%2520el%2520colegio%2520de%2520ingenieros%2520petroleros%2520de%2520mexico.pdf+Colegio+de+Ingenieros+en+mexico&hl=es&gl=mx&pid=bl&srcid=m6Gv58ikStcXXhEgh0cMpyMqKlKdEOysovHr2vDYxHxglpNqF-6dP_R8eXO1xqWXA_5pHsr2JvzEGtaQ6gEOao3srcuONOnOnbSIJ26FZbrJuS01qNO5j2n-fi1&sig=AHIEtbRzcud55RM8SA6pp0W39hSHnTM5Kw
especificamente lo que quiero es extraer el contenido completo de la dirección de internet que inicia con http://?.?.?.?/ hasta la tercera diagonal ,despues del "http://"
osea http://loquesea.com/ , http://loquesea.com.mx/ , http://loquesea.org/
http://207.249.136.15/ , http://loquesea.net/ , http://loquesea.edu/ , etc.
Por favor necesito su ayuda debo depurar una base de 48000 registros
Todo el listado que tengo ya tiene el "http://" gracias.
{"Lat":19.3111433550646,"Lng":-99.4921875}
1 respuesta
Respuesta de prozac
1
Esta función extrae el dominio, suponiendo que las URL originales están en la columna B y los copia en la A. POdrás modificarla a tu gusto para que haga lo que tu quieras.
Sub ExtraeDominio()
Dim i As Integer
Dim l As Integer
Dim maxi As Integer
Dim s As String
Dim r As String
'ojo se ejecuta en la hoja desde la que se haya llamado
maxi = Cells(1, 2).End(xlDown).Row
'Supongo que las direcciones están en la columna B y el dominio lo voya a dejar en la A
For i = 1 To maxi
s = Cells(i, 2).Value 'copio la dirección completa en s
l = InStr(10, s, "/") ' calcula la distancia del 3er slash
r = Left(s, l) 'extraigo el subdominio
Cells(i, 1).Value = r
Next i
End Sub
Sub ExtraeDominio()
Dim i As Integer
Dim l As Integer
Dim maxi As Integer
Dim s As String
Dim r As String
'ojo se ejecuta en la hoja desde la que se haya llamado
maxi = Cells(1, 2).End(xlDown).Row
'Supongo que las direcciones están en la columna B y el dominio lo voya a dejar en la A
For i = 1 To maxi
s = Cells(i, 2).Value 'copio la dirección completa en s
l = InStr(10, s, "/") ' calcula la distancia del 3er slash
r = Left(s, l) 'extraigo el subdominio
Cells(i, 1).Value = r
Next i
End Sub
