VBA 取得 JSON RESPONSE 后, 如何下载对应的 PDF?

sk7984

JSON 内的 LINK, 反馈到CELL  内后, 如何取得真实URL下载 PDF?

HTTP RESPONSE 如下:

attachment;  filename*=utf-8''%E5%9C%B0%E5%9D%80%E6%A0%87%E7%AD%BE%E6%89%93%E5%8D%B0_2018-08-30.pdf;  filename="%E5%9C%B0%E5%9D%80%E6%A0%87%E7%AD%BE%E6%89%93%E5%8D%B0_2018-08-30.pdf"

是否 BASE64 来的?? 如何解读?? 求各大大帮忙.

duquancai

解码            

sk7984

duquancai 发表于 2018-8-30 11:19
解码

是否只是PDF 的 URL ? 可以直接下载?
如何解碼你知道吗?

duquancai

sk7984 发表于 2018-8-30 11:37
是否只是PDF 的 URL ? 可以直接下载?
如何解碼你知道吗?

没看见你有 pdf的url          ？？？？？？？？？？？？？？？？？？？？？

sk7984

可以了~
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    URL = endpoint1
    objHTTP.Open "POST", URL, False

   objHTTP.setRequestHeader "Content-type", "application/json"
   objHTTP.send (Json)
   result = objHTTP.responseBody

   
   Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write objHTTP.responseBody
    oStream.SaveToFile ("C:\Temp\apitestpdf1.pdf")
    oStream.Close