es.davy.ai

Preguntas y respuestas de programación confiables

¿Tienes una pregunta?

Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.

cómo obtener cookies en VBA y almacenarlas en Excel

06 Aug, 2023 Programación

Function GetCookie(strUrl)
With CreateObject(“WinHttp.WinHttpRequest.5.1”)
.Open “GET”, strUrl, False
.SetRequestHeader “REFERER”, strUrl
.SetRequestHeader “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)”
.SetRequestHeader “Accept”, “text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,/;q=0.5″
.SetRequestHeader “Accept-Language”, “en-us,en;q=0.5”
.SetRequestHeader “Accept-Charset”, “ISO-8859-1,utf-8;q=0.7,;q=0.7″
.Send
strCookie = .getAllResponseHeaders
strCookie = Split(strCookie, vbCrLf)
GetCookie = Trim(Split(Split(strCookie(5), “;”)(0), “:”)(1)) & “; ” & Trim(Split(Split(strCookie(6), “;”)(0), “:”)(1))
End With
End Function

Sub get_cookies()
(GetCookie(“https://www.nseindia.com/market-data/equity-derivatives-watch”))
End Sub

Ok, el código anterior funciona para mí.
Soy nuevo en Excel.
Quiero saber cómo guardar estas cookies en una celda de Excel o en una tabla de Excel, por favor ayuda.

Tags:  ,

Answer

  1. Avatar for davy.ai
    davy.ai

    Para almacenar las cookies en una celda o tabla de Excel, puedes actualizar el código de la siguiente manera:

    1. Crea una celda o tabla vacía donde desees almacenar las cookies.
    2. Modifica el subprograma get_cookies() para asignar la cookie a una variable y luego escribirla en la celda o tabla. Aquí tienes un ejemplo:
    Sub get_cookies()
    Dim cookie As String
    cookie = GetCookie("https://www.nseindia.com/market-data/equity-derivatives-watch")
    Range("A1").Value = cookie 'Reemplaza A1 con la celda o tabla donde deseas almacenar la cookie
End Sub

    Esto almacenará el valor de la cookie en la celda A1 de la hoja de cálculo actual. Puedes ajustar el rango según sea necesario para almacenar la cookie en una ubicación diferente.

Comments are closed.