<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
</head>
<body>
<p>Hi Michael,</p>
<p>It's been a long time since I used VBA, but this routine works
when I run it in Excel — the zip file is downloaded to the local
disc:</p>
<p>strDownload = "0211656-200613084148143"<br>
Set http = CreateObject("WinHttp.WinHttpRequest.5.1")<br>
strURL_Request = <a class="moz-txt-link-rfc2396E" href="https://api.gbif.org/v1/occurrence/download/">"https://api.gbif.org/v1/occurrence/download/"</a>
& strDownload<br>
http.Open "GET", strURL_Request, False<br>
http.Send<br>
Debug.Print (http.Status)<br>
<br>
' (I have not bothered to parse the JSON output.)<br>
strURL_ZIP =
<a class="moz-txt-link-rfc2396E" href="https://api.gbif.org/v1/occurrence/download/request/0211656-200613084148143.zip">"https://api.gbif.org/v1/occurrence/download/request/0211656-200613084148143.zip"</a><br>
http.Open "GET", strURL_ZIP, False<br>
http.Send<br>
Debug.Print (http.Status)<br>
<br>
' From
<a class="moz-txt-link-freetext" href="https://stackoverflow.com/questions/59598416/vba-download-form-url-with-login-that-redirect-to-another-one">https://stackoverflow.com/questions/59598416/vba-download-form-url-with-login-that-redirect-to-another-one</a><br>
Set oStream = CreateObject("ADODB.Stream")<br>
oStream.Open<br>
oStream.Type = 1<br>
oStream.write http.ResponseBody<br>
oStream.SaveToFile "C:\Users\…\Documents\download.zip", 2<br>
oStream.Close<br>
Debug.Print ("Completed")<br>
</p>
<p>Our servers don't block this query, so I think it's most likely
to be a restriction on your own network / computer. Note there is
an HTTP redirect from the API server to the download server, but
WinHttpRequest follows this automatically.<br>
</p>
<p>Kind regards,</p>
<p>Matt<br>
</p>
<br>
<div class="moz-cite-prefix">On 12/05/2021 16:18, Reetz, Michael
(NLPV) wrote:<br>
</div>
<blockquote type="cite" cite="mid:d71dcdcdbac0475a94f2e701f9d8d8b8@nlpv-wattenmeer.niedersachsen.de">
<meta name="Generator" content="Microsoft Word 15 (filtered
medium)">
<style>@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri",sans-serif;
mso-fareast-language:EN-US;}a:link, span.MsoHyperlink
{mso-style-priority:99;
color:#0563C1;
text-decoration:underline;}a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:#954F72;
text-decoration:underline;}p.msonormal0, li.msonormal0, div.msonormal0
{mso-style-name:msonormal;
mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:12.0pt;
font-family:"Times New Roman",serif;}span.E-MailFormatvorlage18
{mso-style-type:personal-compose;
font-family:"Calibri",sans-serif;
color:windowtext;}.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;
font-family:"Calibri",sans-serif;
mso-fareast-language:EN-US;}div.WordSection1
{page:WordSection1;}</style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
<div class="WordSection1">
<p class="MsoNormal">Hello,<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">I’m trying to query and download occurences
with some subs written in VBA. While querying works fine,
download leads to errors.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">At the end oft he query, I have a download
link for a ZIP-archive. Putting this into a browser address
field lets me download the archive. Giving it to a VBA-Object
returns errors.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">E.g.,<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Set http =
CreateObject("WinHttp.WinHttpRequest.5.1")<o:p></o:p></p>
<p class="MsoNormal">strURL_Request =
<a class="moz-txt-link-rfc2396E" href="https://api.gbif.org/v1/occurrence/download/">"https://api.gbif.org/v1/occurrence/download/"</a> &
strDownload<o:p></o:p></p>
<p class="MsoNormal">http.setTimeouts 30000, 30000, 30000, 30000<o:p></o:p></p>
<p class="MsoNormal">http.Open "GET", strURL_Request, False<o:p></o:p></p>
<p class="MsoNormal">http.send<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">returns a jason file that contains the
download link. I extract this link and use it as parameter in
the next step:<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">http.Open "GET", strURL_ZIP, False<o:p></o:p></p>
<p class="MsoNormal">http.send<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">This results in a timeout. Using
"Microsoft.XMLHTTP" alternativly returns „Access denied“<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Is this a problem with our network
restrictions or does the GBIF server block the query?<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Kind regards<o:p></o:p></p>
<p class="MsoNormal">Michael<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:10.0pt;font-family:"Arial",sans-serif;mso-fareast-language:DE">Mit
freundlichen Grüßen</span><span style="font-size:12.0pt;font-family:"Times New
Roman",serif;mso-fareast-language:DE">
<br>
</span><span style="font-size:10.0pt;font-family:"Arial",sans-serif;mso-fareast-language:DE">Im
Auftrag</span><span style="font-size:12.0pt;font-family:"Times New
Roman",serif;mso-fareast-language:DE">
<o:p></o:p></span></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:10.0pt;font-family:"Arial",sans-serif;mso-fareast-language:DE">Michael
Reetz</span><span style="font-size:12.0pt;font-family:"Times New
Roman",serif;mso-fareast-language:DE">
<o:p></o:p></span></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:7.5pt;font-family:"Arial",sans-serif;mso-fareast-language:DE">*****************************************</span><span style="font-size:12.0pt;font-family:"Times New
Roman",serif;mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;mso-fareast-language:DE">Nationalpark-Verwaltung
Niedersächsisches Wattenmeer</span><span style="font-size:12.0pt;font-family:"Times New
Roman",serif;mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;mso-fareast-language:DE">Virchowstr.
1</span><span style="font-size:12.0pt;font-family:"Times New
Roman",serif;mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;mso-fareast-language:DE">26382
Wilhelmshaven</span><span style="font-size:12.0pt;font-family:"Times New
Roman",serif;mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;mso-fareast-language:DE">Tel.:
+49 (0) 4421 911 291</span><span style="font-size:12.0pt;font-family:"Times New
Roman",serif;mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;mso-fareast-language:DE">Fax.:
+49 (0) 441 799 61039</span><span style="font-size:12.0pt;font-family:"Times New
Roman",serif;mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;mso-fareast-language:DE">e-mail:
</span><a href="mailto:michael.reetz@nlpv-wattenmeer.niedersachsen.de" moz-do-not-send="true"><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:blue;mso-fareast-language:DE">michael.reetz@nlpv-wattenmeer.niedersachsen.de</span></a><span style="font-size:12.0pt;font-family:"Times New
Roman",serif;mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;mso-fareast-language:DE">Web:
</span><a href="http://www.nationalpark-wattenmeer.niedersachsen.de/" moz-do-not-send="true"><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:blue;mso-fareast-language:DE">http://www.</span></a><u><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:blue;mso-fareast-language:DE">nationalpark-wattenmeer.de</span></u><span style="font-size:12.0pt;font-family:"Times New
Roman",serif;mso-fareast-language:DE">
<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:7.5pt;font-family:"Arial",sans-serif;mso-fareast-language:DE">Flussgebietsmanagement
Übergangs-/Küstengewässer</span><span style="mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;mso-fareast-language:DE">NLWKN
* Betriebsstelle Brake / Oldenburg</span><span style="mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;mso-fareast-language:DE">e-mail:
</span><a href="mailto:michael.reetz@nlwkn.niedersachsen.de" moz-do-not-send="true"><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:blue;mso-fareast-language:DE">michael.reetz@nlwkn.niedersachsen.de</span></a><span style="mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;mso-fareast-language:DE">Web:</span><u><span style="mso-fareast-language:DE">
</span></u><a href="http://www.nlwkn.niedersachsen.de/" moz-do-not-send="true"><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:blue;mso-fareast-language:DE">http://www.nlwkn.niedersachsen.de</span></a><span style="mso-fareast-language:DE">
<o:p></o:p></span></p>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<pre class="moz-quote-pre" wrap="">_______________________________________________
API-users mailing list
<a class="moz-txt-link-abbreviated" href="mailto:API-users@lists.gbif.org">API-users@lists.gbif.org</a>
<a class="moz-txt-link-freetext" href="https://lists.gbif.org/mailman/listinfo/api-users">https://lists.gbif.org/mailman/listinfo/api-users</a>
</pre>
</blockquote>
</body>
</html>