<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="Generator" content="Microsoft Word 15 (filtered medium)">
<style><!--
/* Font Definitions */
@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;}
@font-face
{font-family:Consolas;
panose-1:2 11 6 9 2 2 4 3 2 4;}
@font-face
{font-family:"Time new Roman";
panose-1:0 0 0 0 0 0 0 0 0 0;}
/* Style Definitions */
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
{mso-style-priority:99;
mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:11.0pt;
font-family:"Calibri",sans-serif;
mso-fareast-language:EN-US;}
pre
{mso-style-priority:99;
mso-style-link:"HTML Vorformatiert Zchn";
margin:0cm;
margin-bottom:.0001pt;
font-size:10.0pt;
font-family:"Courier New";
mso-fareast-language:DE;}
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;
mso-fareast-language:DE;}
span.E-MailFormatvorlage19
{mso-style-type:personal;
font-family:"Calibri",sans-serif;
color:windowtext;}
span.HTMLVorformatiertZchn
{mso-style-name:"HTML Vorformatiert Zchn";
mso-style-priority:99;
mso-style-link:"HTML Vorformatiert";
font-family:Consolas;
mso-fareast-language:EN-US;}
span.E-MailFormatvorlage22
{mso-style-type:personal-reply;
font-family:"Calibri",sans-serif;
color:#1F497D;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 70.85pt 2.0cm 70.85pt;}
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]-->
</head>
<body lang="DE" link="#0563C1" vlink="#954F72">
<div class="WordSection1">
<p class="MsoNormal"><span style="color:#1F497D">Hi Matt,<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#1F497D"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="color:#1F497D">thanks for your help. Since I can put the URL in a browsers address field and download a file there without problems, it seems to be a restriction for MS Office and VBA. I’ve sent a question regarding this problem
to our IT department.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#1F497D"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="color:#1F497D">Best regards<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#1F497D">Michael<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#1F497D"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="color:#1F497D"><o:p> </o:p></span></p>
<div>
<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;color:#1F497D;mso-fareast-language:DE">Mit freundlichen Grüßen</span><span style="font-size:12.0pt;font-family:"Times New Roman",serif;color:#1F497D;mso-fareast-language:DE">
<br>
</span><span style="font-size:10.0pt;font-family:"Arial",sans-serif;color:#1F497D;mso-fareast-language:DE">Im Auftrag</span><span style="font-size:12.0pt;font-family:"Times New Roman",serif;color:#1F497D;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;color:#1F497D;mso-fareast-language:DE">Michael Reetz</span><span style="font-size:12.0pt;font-family:"Times New Roman",serif;color:#1F497D;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;color:#1F497D;mso-fareast-language:DE">*****************************************</span><span style="font-size:12.0pt;font-family:"Times New Roman",serif;color:#1F497D;mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:#1F497D;mso-fareast-language:DE">Nationalpark-Verwaltung Niedersächsisches Wattenmeer</span><span style="font-size:12.0pt;font-family:"Times New Roman",serif;color:#1F497D;mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:#1F497D;mso-fareast-language:DE">Virchowstr. 1</span><span style="font-size:12.0pt;font-family:"Times New Roman",serif;color:#1F497D;mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:#1F497D;mso-fareast-language:DE">26382 Wilhelmshaven</span><span style="font-size:12.0pt;font-family:"Times New Roman",serif;color:#1F497D;mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:#1F497D;mso-fareast-language:DE">Tel.: +49 (0) 4421 911 291</span><span style="font-size:12.0pt;font-family:"Times New Roman",serif;color:#1F497D;mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:#1F497D;mso-fareast-language:DE">Fax.: +49 (0) 441 799 61039</span><span style="font-size:12.0pt;font-family:"Times New Roman",serif;color:#1F497D;mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:#1F497D;mso-fareast-language:DE">e-mail:
</span><span style="font-size:12.0pt;font-family:"Times New Roman",serif;color:#1F497D;mso-fareast-language:DE"><a href="mailto:michael.reetz@nlpv-wattenmeer.niedersachsen.de"><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:blue">michael.reetz@nlpv-wattenmeer.niedersachsen.de</span></a>
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:#1F497D;mso-fareast-language:DE">Web:
</span><span style="font-size:12.0pt;font-family:"Times New Roman",serif;color:#1F497D;mso-fareast-language:DE"><a href="http://www.nationalpark-wattenmeer.niedersachsen.de/"><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:blue">http://www.</span></a></span><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;color:#1F497D;mso-fareast-language:DE">
<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:#1F497D;mso-fareast-language:DE">Flussgebietsmanagement Übergangs-/Küstengewässer</span><span style="color:#1F497D;mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:#1F497D;mso-fareast-language:DE">NLWKN * Betriebsstelle Brake / Oldenburg</span><span style="color:#1F497D;mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:#1F497D;mso-fareast-language:DE">e-mail:
<a href="mailto:michael.reetz@nlwkn.niedersachsen.de"><span style="color:blue">michael.reetz@nlwkn.niedersachsen.de</span></a></span><span style="color:#1F497D;mso-fareast-language:DE">
<br>
</span><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:#1F497D;mso-fareast-language:DE">Web:</span><u><span style="color:#1F497D;mso-fareast-language:DE">
</span></u><u><span style="font-size:7.5pt;font-family:"Arial",sans-serif;color:blue;mso-fareast-language:DE"><a href="http://www.nlwkn.niedersachsen.de/"><span style="color:blue">http://www.nlwkn.niedersachsen.de</span></a></span></u><span style="color:#1F497D;mso-fareast-language:DE">
<o:p></o:p></span></p>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
<div>
<div style="border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal"><b><span style="mso-fareast-language:DE">Von:</span></b><span style="mso-fareast-language:DE"> API-users <api-users-bounces@lists.gbif.org>
<b>Im Auftrag von </b>Matthew Blissett<br>
<b>Gesendet:</b> Mittwoch, 12. Mai 2021 17:56<br>
<b>An:</b> api-users@lists.gbif.org<br>
<b>Betreff:</b> Re: [API-users] Download ZIP-File via VBA<o:p></o:p></span></p>
</div>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
<div style="border:solid #003333 1.0pt;padding:2.0pt 2.0pt 2.0pt 2.0pt">
<p style="line-height:10.0pt;background:#D5EAFF"><span style="font-size:10.0pt;font-family:"Time new Roman",serif;color:red">ACHTUNG!!</span><span style="font-size:10.0pt;font-family:"Time new Roman",serif"> Diese E-Mail erreicht Sie von einem Absender außerhalb
der niedersächsischen Landesverwaltungs-Infrastruktur ohne TLS-Verschlüsselung. Bitte klicken Sie auf keine Links oder öffnen Sie keine E-Mail-Anhänge, falls Sie den Absender nicht kennen und nicht wissen, ob der Inhalt sicher ist.</span><span style="font-size:10.0pt;font-family:"Time new Roman",serif;mso-fareast-language:DE"><o:p></o:p></span></p>
</div>
<div>
<p>Hi Michael,<span style="font-size:12.0pt;font-family:"Times New Roman",serif"><o:p></o:p></span></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:<o:p></o:p></p>
<p>strDownload = "0211656-200613084148143"<br>
Set http = CreateObject("WinHttp.WinHttpRequest.5.1")<br>
strURL_Request = <a 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 href="https://smex-ctp.trendmicro.com:443/wis/clicktime/v1/query?url=https%3a%2f%2fapi.gbif.org%2fv1%2foccurrence%2fdownload%2frequest%2f0211656%2d200613084148143.zip&umid=80cb9736-359f-40eb-816d-a014d8f099b4&auth=4456e5223a495a0240a5eada979a61a7fdbe9da6-b4c1e3909bf198573829b11759f8dd7372547122">
"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 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")<o:p></o:p></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.<o:p></o:p></p>
<p>Kind regards,<o:p></o:p></p>
<p>Matt<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<div>
<p class="MsoNormal">On 12/05/2021 16:18, Reetz, Michael (NLPV) wrote:<o:p></o:p></p>
</div>
<blockquote style="margin-top:5.0pt;margin-bottom:5.0pt">
<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 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">
<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">
</span><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">Michael Reetz</span><span style="font-size:12.0pt">
</span><o:p></o:p></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">
<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">
<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">
<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">
<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">
<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">
<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"><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">
<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/"><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">
</span><o:p></o:p></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"><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/"><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">
</span><o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Times New Roman",serif;mso-fareast-language:DE"><br>
<br>
<o:p></o:p></span></p>
<pre>_______________________________________________<o:p></o:p></pre>
<pre>API-users mailing list<o:p></o:p></pre>
<pre><a href="mailto:API-users@lists.gbif.org">API-users@lists.gbif.org</a><o:p></o:p></pre>
<pre><a href="https://lists.gbif.org/mailman/listinfo/api-users">https://lists.gbif.org/mailman/listinfo/api-users</a><o:p></o:p></pre>
</blockquote>
</div>
</div>
</body>
</html>