美文网首页
VBA调用JS网址转文字 & 获取下载文件名

VBA调用JS网址转文字 & 获取下载文件名

作者: 林万程 | 来源:发表于2017-02-13 23:43 被阅读51次

Function decodeURI(szInput)
Set js = CreateObject("MSScriptControl.ScriptControl")
js.Language = "JScript"
decodeURI = js.Eval("decodeURI('" & szInput & "')")
End Function

Function attfn(http)
attfn = Replace(decodeURI(http.getResponseHeader("Content-Disposition")), "attachment;filename=", "")
End Function

相关文章

网友评论

      本文标题:VBA调用JS网址转文字 & 获取下载文件名

      本文链接:https://www.haomeiwen.com/subject/cpatwttx.html