Sub WebData()
With
ActiveSheet.QueryTables.Add(Connection:="URL;http://vb-the-techview.blogspot.in",
Destination:=Range("$A$1"))
.Name =
"http://vb-the-techview.blogspot.in"
.FieldNames =
True
.RowNumbers =
False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle
= xlInsertDeleteCells
.SavePassword
= False
.SaveData =
True
.AdjustColumnWidth = True
.RefreshPeriod
= 4 ' Time in minutes that would re populate the data from the website
.WebSelectionType = xlEntirePage
.WebFormatting
= xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh
BackgroundQuery:=False ' Make sure net is active
End With
End Sub
No comments:
Post a Comment