Web Query Excel - Betexplorer

[chinchi81]

Hi,

I have a web query which used to work fine but has stopped doing so recently. It was set-up to copy the whole of a webpage from BetExplorer so I could get the football odds but now when I run it, all of the numbers underneath the 1,X,2 do not appear in excel. Does anyone know what that might be the case. The coding used for the web query is below.

I am using excel 2010

Sub BetExplorer()

Application.ScreenUpdating = False

Sheets("BetExplorer").Visible = True
Sheets("BetExplorer").Select
Cells.Select
On Error Resume Next
Selection.QueryTable.Delete
Selection.ClearContents
Selection.NumberFormat = "General"

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.betexplorer.com/soccer/england/premier-league", Destination:= _
Range("$A$1"))
.Name = "premier-league"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

End Sub