{"author_url":"https://blog.hatena.ne.jp/shikaku/","published":"2021-01-02 16:50:17","description":"\u305d\u308d\u305d\u308dIE\u3060\u3068\u5f3e\u304b\u308c\u308b\u30b5\u30a4\u30c8\u304c\u5897\u3048\u3066\u304d\u305f\u306e\u3067\u5fc5\u8981\u3060\u3002 Function myURLDownloadToFile(aUrl As String, aFilepath As String) As Boolean Dim oStream As Object Dim myURL As String myURL = aUrl Dim WinHttpReq As Object Set WinHttpReq = CreateObject(\"WinHttp.WinHttpRequest.5.1\") WinHttpReq.Option(4) = 13056 ' Ignore SSL Errors WinHtt\u2026","type":"rich","url":"https://blog.systemjp.net/entry/2021/01/02/165017","title":"ExcelVBA\u3067UserAgent\u6307\u5b9a\u578b URLDownloadToFile","provider_url":"https://hatena.blog","version":"1.0","categories":[],"author_name":"shikaku","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2021%2F01%2F02%2F165017\" title=\"ExcelVBA\u3067UserAgent\u6307\u5b9a\u578b URLDownloadToFile - shikaku&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":null,"blog_url":"https://blog.systemjp.net/","height":"190","blog_title":"shikaku's blog","width":"100%","provider_name":"Hatena Blog"}