From 91f691296a1bf42dab018626b25873ed2bca0a66 Mon Sep 17 00:00:00 2001
From: agustinpetti02 <agustinpettigrossolevy@gmail.com>
Date: Thu, 24 Jul 2025 14:39:09 -0300
Subject: [PATCH] Create cotizaciones0km

---
 cotizaciones0km | 57 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 cotizaciones0km

diff --git a/cotizaciones0km b/cotizaciones0km
new file mode 100644
index 0000000..d2f053b
--- /dev/null
+++ b/cotizaciones0km
@@ -0,0 +1,57 @@
+Sub CotizarAutoMercadoLibre()
+
+    Dim modelo As String
+    Dim accessToken As String
+    Dim url As String
+    Dim http As Object
+    Dim json As Object
+    Dim result As Object
+    Dim i As Integer
+
+    ' Modelo de auto en A2
+    modelo = Trim(Cells(2, 1).Value)
+    
+    ' Token de acceso de tu app
+    accessToken = "APP_USR-5183773064841897-072412-2e137b60093173bd4810074534d37684-242507349"
+    
+    If modelo = "" Then
+        MsgBox "Ingresá un modelo en la celda A2"
+        Exit Sub
+    End If
+
+    ' Crear conexión HTTP
+    Set http = CreateObject("MSXML2.XMLHTTP")
+    
+    ' Construir URL
+    url = "https://api.mercadolibre.com/sites/MLA/search?q=" & Replace(modelo, " ", "%20") & "%200km&category=MLA1743&sort=price_asc&limit=3"
+    
+    ' Hacer GET
+    http.Open "GET", url, False
+    http.setRequestHeader "Authorization", "Bearer " & accessToken
+    http.Send
+    
+    ' Validar respuesta
+    If http.Status <> 200 Then
+        MsgBox "Error al obtener datos: " & http.Status
+        Exit Sub
+    End If
+    
+    ' Parsear JSON
+    Set json = JsonConverter.ParseJson(http.ResponseText)
+
+    ' Limpiar celdas anteriores
+    Range("B2:D4").ClearContents
+
+    ' Mostrar resultados
+    i = 2
+    For Each result In json("results")
+        Cells(i, 2).Value = result("title")
+        Cells(i, 3).Value = result("price")
+        Cells(i, 4).Value = result("permalink")
+        i = i + 1
+        If i > 4 Then Exit For
+    Next
+
+    MsgBox "Cotizaciones cargadas correctamente."
+
+End Sub