1. J

    VBA Code to Download Password Protected Excel File - Server Blocking Request

    I am trying to use the below code to download a list of daily reports from password protected sites. The server seems to be blocking the request. I have no issues when manually logging in to download each report. I am using Excel 2013 and not positive that this is the correct WinHTTP...
  2. S

    help Convert code from XMLhttp to WINhttp

    I have made a scraper using vba xmhttp method which is parsing very smoothly at this moment.However, I noticed that the site sometimes uses a redirection method.As a result I end up with nothing returned when I run the code.So if there is somebody out here that can help me create this...
  3. A

    WinHttpRequest as a function (us census API)

    Hi All, I have made a Sub that I would like to turn into a function, but am having issues getting it to work. here is the Sub I got to work and the function I am trying to get to work Public Sub Runapi() Dim W As Worksheet: Set W = ActiveSheet Dim URL As String: URL =...
  4. T

    Fetch CSV that is downloaded via an url

    Hey all, How do I get the underlying downloadable file downloaded, instead of the response html, when using winhttpreq? I have a URL (seen in the code below) that I can download a CSV file from. However, the url itself returns html when opened in code. When simply opening the link manually, I...
  5. X

    VBA - automate download of dynamicly generated csv from website

    Hello, Task: Using vba, automate the download of csv files from the following website: Current and Historical Alberta Weather Station Data Viewer In order to manually download a csv, once at this URL, select a weather station from the drop down on the right, let's say "Calgary Int'l Cr10"...
  6. J

    Do I Use WinHttp.WinHttpRequest or Microsoft.XMLHTTP?

    Sub Download() Set occXMLHTTP = CreateObject("Microsoft.XMLHTTP") Set fso = CreateObject("Scripting.FileSystemObject") DIY_Dir = "c:\DIYTraders\" DIYSub_Dir = "c:\DIYTraders\tickers\" If Not fso.FolderExists(DIY_Dir) Then MkDir DIY_Dir End If If Not fso.FolderExists(DIYSub_Dir) Then...

Some videos you may like

This Week's Hot Topics