La integración de ChatGPT en Excel ha transformado la automatización de tareas a través de la generación de código VBA. En este post veremos con ejemplos cómo ChatGPT se ha convertido en una herramienta clave para simplificar el proceso de desarrollo de macros en Excel.
Descubre cómo la inteligencia artificial de ChatGPT se ha aplicado para generar código VBA en Excel, proporcionando soluciones eficientes y personalizadas. La combinación de ChatGPT y VBA en Excel ha generado un impacto significativo en la eficiencia y capacidad de automatización.
Exploraremos ejemplos prácticos de como se solicita y utilizan macros específicas a través de ChatGPT, desde operaciones básicas hasta tareas más complejas.
DESCARGAR IMAGENES DE FORMA MASIVA DESDE LA WEB A UNA CARPETA DEL EXPLORADOR DE WINDOWS
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
EXTRAER DATOS DE UNA TABLA DE WIKIPEDIA Y EXPORTARLOS A UNA HOJA DE EXCEL
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