Navigating/Downloading Chrome using VBA

Hi All

Hope you are well and can help me out here. Its something so simple yet I am struggling so much.
I am using chrome. I have got my code to open the below hyper-link.

https://www.jse.co.za/downloadable-f...ives/Docs_DMTM

The problem now is that I cant select the top/latest excel file.

Eg: "yyyyMMdd_D_Daily MTM Report.xls"

If you could help with coding that will select this file and download it and open the file it would be much appreciated.


Regards
T

Pretty sure a workbooks.open would suffice

I agree, maybe with ReadOnly set to True …

Hi guys

Solved it with the below code...


Sub YieldX_Data()

Dim myURL As String
Dim The_Address As String
Dim oDate As Long
Dim TheFile As String
Dim Location As String

oDate = Format(Worksheets("Dates").Range("I4").Value, "yyyyMMdd")

The_Address = Worksheets("Dates").Range("H10").Value

Location = "M:\Safex & YieldX\Daily Statements\YieldX\YieldX Data"

TheFile = Location & " " & oDate & ".xls"

myURL = The_Address

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False
WinHttpReq.Send

myURL = WinHttpReq.ResponseBody

If WinHttpReq.Status = 200 Then

Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.ResponseBody

If Dir(TheFile) <> "" Then
MsgBox "File already exists!"
Else
oStream.SaveToFile (Location & " " & oDate & ".xls")
End If

oStream.Close


Thanks

Hi,

according to forum rules, you must use code tags ! …


Example to directly open top/latest excel file :

Please Login or Register  to view this content.

If you like, don't forget to click on bottom left star Add Reputation !