<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;}
/* 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.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;}
@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">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 = "https://api.gbif.org/v1/occurrence/download/" & 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"><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/"><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"><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">
<o:p></o:p></span></p>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
</body>
</html>