C
cferoiu
I record this macro:
Sub Macro1()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://asianodds.org/next_50_games.asp",
Destination:=Range("$A$1"))
.Name = "next_50_games"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = "5"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
I whant to refresh this page at 3 min. interval, but I whant each refresh
record under one another, it is possible?
Any help appreciated.
Sub Macro1()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://asianodds.org/next_50_games.asp",
Destination:=Range("$A$1"))
.Name = "next_50_games"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = "5"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
I whant to refresh this page at 3 min. interval, but I whant each refresh
record under one another, it is possible?
Any help appreciated.