I have been working with this marco for about 3 months trying to make it work for me to download some specific Vanguard Group quotations. My issue is getting only the information I need from this comprehensive generalized code. I have searched endlessly and unsuccessfully for some decent field definitions for the QueryTables keyword. I only need to pull down the Symbol name definition, last close price value and previous close price value and date. I could probably us some of the other .Name stuff too if I know what it was, i.e., .WebTables = "1,2" definition(s). And I would like to pull about 8 or 10 symbols down to a single/multiple sheet(s) in a workbook. I am better than the average bear with macros but like most its the syntax that kills me. Not looking for copy/cut and paste code, just good keyword definitions and direction.
*********************************************************************
Sub Basic_Web_Query()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://finance.yahoo.com/q?s=VBIAX", Destination:=Range("$A$1"))
.Name = "q?s=VBIAX"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1,2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With