Consulta web desde Excel

19/01/2005 - 12:09 por jose | Informe spam
Hola,
Quiero incluir en una hoja las tablas de una página web. Se trata de un
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 TORNEO")
Sheets("ConsultaWeb").Range("H1").Value = Dia

'Ahora necesito que la consulta recupere el día concreto en esa celda y la
agregue a la URL de la web, en la que sólo cambia el día de cada jornada

With Selection.QueryTable
.Connection = _
"URL;http://www.mywebsite.com/resultados...html" => donde
"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

Preguntas similare

Leer las respuestas

#1 Tamariz
19/01/2005 - 12:19 | Informe spam
Prueba con :
.Connection = _
"URL;http://www.mywebsite.com/resultados/jornada_"


& DIA & ".html"

Un saludo


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


Se trata de un
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


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

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


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


de cada jornada

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


.html" => donde
"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


.

Respuesta Responder a este mensaje
#2 jose
19/01/2005 - 12:25 | Informe spam
Claro!!! Perfecto.
Muchas gracias, Tamariz. Tu magia es genial, como siempre :-)

Un saludo


"Tamariz" escribió en el mensaje
news:224201c4fe18$be747570$
Prueba con :
.Connection = _
"URL;http://www.mywebsite.com/resultados/jornada_"


& DIA & ".html"

Un saludo


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


Se trata de un
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


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

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


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


de cada jornada

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


.html" => donde
"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


.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida