Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
    (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Sub DescargarImagen()
    
    Dim URL As String
    Dim CarpetaDestino As String
    Dim i As Integer
    
    ' Establecer la URL de la imagen
    URL = "https://pxhere.com/es/tag/2624"
    
    ' Establecer la carpeta de destino
    CarpetaDestino = "C:\Users\USER\Downloads\Imagenes\" 'Asegúrate de incluir el \ al final
            
    For i = 1 To 3
            
        ' Crear una instancia de Internet Explorer
        Dim IE As Object
        Set IE = CreateObject("InternetExplorer.Application")
        
        ' Hacer visible Internet Explorer (para ver lo que sucede)
        IE.Visible = False
            
        ' Navegar a la URL
        IE.Navigate URL
            
        ' Esperar a que la página cargue completamente (puedes ajustar el tiempo)
        Do While IE.Busy Or IE.readyState <> 4
            Application.Wait DateAdd("s", 1, Now)
        Loop
            
        ' Guardar la imagen en la carpeta de destino con el nombre de la imagen
                
        Dim img As Object
        Set img = IE.Document.getElementsByTagName("img")(i) ' Ajusta el índice para la imagen deseada
        Dim imgURL As String
        imgURL = img.src
        URLDownloadToFile 0, imgURL, CarpetaDestino & "Imagen " & i & ".jpg", 0, 0
            
        ' Cerrar Internet Explorer
        IE.Quit
                
        ' Liberar la memoria
        Set IE = Nothing
        Set img = Nothing
        
        Application.StatusBar = "DESCARGANDO IMAGEN NRO: " & i
        
      Next i
      
      MsgBox "IMAGENES DESCARGADAS CORRECTAMENTE"
      
      Application.StatusBar = False
      
End Sub

Sub ExtraerDatosTabla()
    ' Declarar variables
    Dim IE As Object
    Dim tabla As Object
    Dim fila As Object
    Dim celda As Object
    Dim i As Integer, j As Integer
    
    ' Crear una instancia de Internet Explorer
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' Navegar a la página web
    IE.navigate "https://es.wikipedia.org/wiki/Anexo:Pa%C3%ADses_de_Am%C3%A9rica_por_poblaci%C3%B3n" ' Reemplaza con la URL de la página
    
    ' Esperar a que la página se cargue completamente
    Do While IE.readyState <> 4
        DoEvents
    Loop
    
    ' Acceder a la tabla por su etiqueta (por ejemplo, <table>)
    Set tabla = IE.Document.getElementsByClassName("wikitable")(0) ' Cambia el índice si hay varias tablas
    
    ' Recorrer las filas de la tabla
    For Each fila In tabla.Rows
        ' Recorrer las celdas de cada fila
        For Each celda In fila.Cells
            ' Hacer algo con los datos (por ejemplo, imprimir en la hoja de Excel)
            Cells(i + 1, j + 1).Value = celda.innerText
            j = j + 1
        Next celda
        i = i + 1
        j = 0
    Next fila
    
    ' Cerrar Internet Explorer
    IE.Quit
    
    ' Liberar la memoria
    Set IE = Nothing
End Sub