Gracias. Me cambié a esto que me dijo chatgpt. Programo en Visual Basic 6 pero de descarga de webs o archivos es complicado. Ya me va bien.
---------------------------------------------------------------
Function LeeURL(sURL As String) As String
Dim http As Object
Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
On Error GoTo ErrorHandler
http.Open "GET", sURL, False
http.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/123.0.0.0 Safari/537.36"
http.SetRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
http.SetRequestHeader "Accept-Language", "es-ES,es;q=0.9"
http.SetRequestHeader "Connection", "keep-alive"
http.Send
LeeURL = http.ResponseText
Exit Function
ErrorHandler:
LeeURL = "Error: " & Err.Description
End Function
Tabla completa Depósitos Monillo https://acortar.link/CvLJ4L