Excel 2016 VBA and Macros (includes Content Update Program) (MrExcel Library) by Bill Jelen & Tracy Syrstad

Author:Bill Jelen & Tracy Syrstad [Jelen, Bill]
Language: eng
Format: azw3
Publisher: Pearson Education
Published: 2015-11-03T05:00:00+00:00

Set cl = ActiveCell

HistDate = cl(, 0)

If Intersect(cl, Range("C2:C" & Cells.Rows.Count)) Is Nothing Then

MsgBox "You must select a cell in column C."

Exit Sub

End If

If Not CBool(Len(cl(, -1))) Or Not CBool(Len(cl(, 0))) Then

MsgBox "You must enter a symbol and date."

Exit Sub

End If

Set ie = CreateObject("InternetExplorer.Application")

With ie

.Navigate _

"http://bigcharts.marketwatch.com/historical" & _

"/default.asp?detect=1&symb=" _

& cl(, -1) & "&closedate=" & Month(HistDate) & "%2F" & _

Day(HistDate) & "%2F" & Year(HistDate) & "&x=0&y=0"

Do While .Busy And .ReadyState <> 4

DoEvents

Loop

sHTML = .Document.body.innertext

.Quit

End With

Download

Copyright Disclaimer:
This site does not store any files on its server. We only index and link to content provided by other sites. Please contact the content providers to delete copyright contents if any and email us, we'll remove relevant links or contents immediately.