Copiar Pagina Web

"MN" escribió en el mensaje news:

Como puedo hacer para que se copie y pegue en Excel una tabla que sale en
una pagina web determinada... es posible?

Muchas Gracias.

MN

Prueba desde Datos->Obtener datos externos->Nueva consulta web, pero ten en cuenta que si la tabla "parece" una tabla pero no lo es, no aparecerá la flechita que permite seleccionarla para luego importarla a Excel...
Un saludo.


Fernando Arroyo
MS MVP - Excel

Menu Datos-Obtener datos externos-Nuea consulta web



"MN" escribió en el mensaje
news:

Como puedo hacer para que se copie y pegue en Excel una tabla que sale en
una pagina web determinada... es posible?

Muchas Gracias.

MN

Fernando, me funciono perfecto, pero lo único que me falta es poder hacerlo
desde una macro. Quiero que aparezca un cuadro donde uno ingrese el numero
(o código Ej.:046006001602) y Excel busque esa determinada pagina

http://plataformaconsulta/222.asp?t...colocacion6006001602

lo que cambia es el final después del signo


Muchas Gracias, se que tu me puedes ayudar.

Atte.

MN

"Fernando Arroyo" escribió en el mensaje
news:
"MN" escribió en el mensaje
news:

Como puedo hacer para que se copie y pegue en Excel una tabla que sale en
una pagina web determinada... es posible?

Muchas Gracias.

MN

Prueba desde Datos->Obtener datos externos->Nueva consulta web, pero ten en
cuenta que si la tabla "parece" una tabla pero no lo es, no aparecerá la
flechita que permite seleccionarla para luego importarla a Excel...
Un saludo.


Fernando Arroyo
MS MVP - Excel

Grabando una macro me sale este codigo, como puedo cambiar desde la URL los
ultimos numeros y que los ingrese desde un cuadro de datos.

With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://plataformaconsulta/222.asp?t...colocacion6006001602", _
Destination:=Range("A1"))
.Name = "222.asp?txtOpe_colocacion6006001602"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With





"MN" escribió en el mensaje
news:

Fernando, me funciono perfecto, pero lo único que me falta es poder

hacerlo

desde una macro. Quiero que aparezca un cuadro donde uno ingrese el numero
(o código Ej.:046006001602) y Excel busque esa determinada pagina

http://plataformaconsulta/222.asp?t...colocacion6006001602

lo que cambia es el final después del signo >


Muchas Gracias, se que tu me puedes ayudar.

Atte.

MN

"Fernando Arroyo" escribió en el mensaje
news:
"MN" escribió en el mensaje
news:
> Como puedo hacer para que se copie y pegue en Excel una tabla que sale

en

> una pagina web determinada... es posible?
>
> Muchas Gracias.
>
> MN
>
>

Prueba desde Datos->Obtener datos externos->Nueva consulta web, pero ten

en

cuenta que si la tabla "parece" una tabla pero no lo es, no aparecerá la
flechita que permite seleccionarla para luego importarla a Excel...
Un saludo.


Fernando Arroyo
MS MVP - Excel

Para modificar la conexión de la consulta podrías usar algo parecido a:

With Worksheets("Hoja1").QueryTables(1)
.Connection = "URL;http://plataformaconsulta/222.asp?t...ion=" & strVariable
.Refresh
End With

donde strVariable sería una cadena de texto.

Si quieres seleccionar dicho dato desde un cuadro de lista o un cuadro combinado situado en la hoja de cálculo, primero tendrías que crearlo (desde la barra de herramientas "Cuadro de controles"), después "poblarlo", y luego poner algo parecido al siguiente código en el módulo de la hoja:

Private Sub ListBox1_Change()
With Me.QueryTables(1)
Stop
.Connection = "URL;http://plataformaconsulta/222.asp?t...ion=" & Me.ListBox1
.Refresh
End With
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel


"MN" escribió en el mensaje news:

Grabando una macro me sale este codigo, como puedo cambiar desde la URL los
ultimos numeros y que los ingrese desde un cuadro de datos.

With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://plataformaconsulta/222.asp?t...colocacion6006001602", _
Destination:=Range("A1"))
.Name = "222.asp?txtOpe_colocacion6006001602"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With





"MN" escribió en el mensaje
news:
> Fernando, me funciono perfecto, pero lo único que me falta es poder
hacerlo
> desde una macro. Quiero que aparezca un cuadro donde uno ingrese el numero
> (o código Ej.:046006001602) y Excel busque esa determinada pagina
>
> http://plataformaconsulta/222.asp?t...colocacion6006001602
>
> lo que cambia es el final después del signo > >
>
>
> Muchas Gracias, se que tu me puedes ayudar.
>
> Atte.
>
> MN
>
> "Fernando Arroyo" escribió en el mensaje
> news:
> "MN" escribió en el mensaje
> news:
> > Como puedo hacer para que se copie y pegue en Excel una tabla que sale
en
> > una pagina web determinada... es posible?
> >
> > Muchas Gracias.
> >
> > MN
> >
> >
>
> Prueba desde Datos->Obtener datos externos->Nueva consulta web, pero ten
en
> cuenta que si la tabla "parece" una tabla pero no lo es, no aparecerá la
> flechita que permite seleccionarla para luego importarla a Excel...
> Un saludo.
>
>
> Fernando Arroyo
> MS MVP - Excel
>
>