ie.Navigate save file to folder?

JumboCactuar

Well-known Member
Joined
Nov 16, 2016
Messages
609
Hi,
I managed to login to site then navigate to specific URL which is a JSON

After loading the page, a prompt comes up to open/save JSON

Is there a way I can save this to a specific folder with VBA?
 

Worf

Well-known Member
Joined
Oct 30, 2011
Messages
3,758
This example shows how to download a text file without Internet Explorer:

Code:
Sub DloadFile()
Dim ostream, wreq As Object
Set wreq = CreateObject("Microsoft.XMLHTTP")
wreq.Open "GET", "https://raw.githubusercontent.com/jdorfman/" & _
"awesome-json-datasets/master/tests/relaxed.json", False
wreq.send
If wreq.Status = 200 Then
    Set ostream = CreateObject("ADODB.Stream")
    ostream.Open
    ostream.Type = 1
    ostream.Write wreq.responseBody
    ostream.SaveToFile "C:\pub\file.json", 2    ' overwrite
    ostream.Close
End If
End Sub
 

JumboCactuar

Well-known Member
Joined
Nov 16, 2016
Messages
609
@Worf
Thanks for the reply but it isn't this simple as the site requires secure login.

I managed to automate this with IE, though stuck at the (Open /Save) notification bar that pops up.

Tried lots of code from various sites but no luck.
 

John_w

MrExcel MVP
Joined
Oct 15, 2007
Messages
5,958

Forum statistics

Threads
1,078,461
Messages
5,340,440
Members
399,375
Latest member
alwayssunny

Some videos you may like

This Week's Hot Topics

  • Problem with Radio Button's format control
    I am creating an employee evaluation template (a sample is below) Column A is the category Column B, C D, E and F will be ratings (unacceptable...
  • Last Display on userform to a Listbox
    [CODE=vba] lstdisplay.ColumnCount = 15 lstdisplay.RowSource = "A1:O600000" [/CODE] So when i do this it Displays everything on the sheet i am...
  • Rename and move files to a new location
    Dear all, I have an excel file with the following information. The actual file name is at column A but i want to rename it using the following...
  • Help with True/False Formula
    Hello! Am stumped how to fix this formula, in which my result returns 'True', but it should return False. =IF(AG2=True...
  • Clear extra characters from a provided range of cells
    Dear All, I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when...
  • Help with Current and highest streaks
    Hi there, I've just joined the forum and this is my first post. I've already spent quite a bit of time searching the net and this forum for a...
Top