Consulta web desde Excel

"URL;http://www.mywebsite.com/resultados/jornada_"

Hola,
Quiero incluir en una hoja las tablas de una página web.

torneo y cada jornada recupero los resultados:

Sub Resultados()
'Declaro la variable DIA y la coloco en la casilla H1
Dim Dia As String
Dia = InputBox("Introduce el día del torneo ", "DIA DEL

Sheets("ConsultaWeb").Range("H1").Value = Dia

'Ahora necesito que la consulta recupere el día concreto

agregue a la URL de la web, en la que sólo cambia el día

With Selection.QueryTable
.Connection = _
"URL;http://www.mywebsite.com/resultados/jornada_X

"X" debería ser mi variable DIA
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "24,25"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

¿Alguna sugerencia?
Gracias de antemano


.

"URL;http://www.mywebsite.com/resultados/jornada_"

Hola,
Quiero incluir en una hoja las tablas de una página web.

torneo y cada jornada recupero los resultados:

Sub Resultados()
'Declaro la variable DIA y la coloco en la casilla H1
Dim Dia As String
Dia = InputBox("Introduce el día del torneo ", "DIA DEL

Sheets("ConsultaWeb").Range("H1").Value = Dia

'Ahora necesito que la consulta recupere el día concreto

agregue a la URL de la web, en la que sólo cambia el día

With Selection.QueryTable
.Connection = _
"URL;http://www.mywebsite.com/resultados/jornada_X

"X" debería ser mi variable DIA
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "24,25"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

¿Alguna sugerencia?
Gracias de antemano


.