accesar pagina web

hola, Ivan !

... como podria accesar una pagina pej. www.showmyip.com leer un dato para luego ponerlo en una celda

-> si conoces [+/- exactamente] donde buscar y que dato necesitas rescatar de la pagina web...
es decir... el 'que', 'desde donde', y 'hasta donde'...
puedes ver si te sirve algo de lo comentado en: -> http://tinyurl.com/jctqr

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

lo estoy intentando, pero no me resulta ( no se donde pueda estar mal ), la
idea es obtener el no de IP con el que estoy conectado mediante la macro,
pero la verdad no se en k pueda estar fallando ya qu no puedo ni siquiera
abrir la pagina http

lo que yo hago cuando necesito un dato de una pagina es importarla mediante
menu/datos/obtener datos externos/ nueva consulta web..
y averiguo en que celdas o que titulo tiene el dato que necesito y programo
su descarga mediante una macro.. algo asi es que necesitas?

"Ivan" wrote:

lo estoy intentando, pero no me resulta ( no se donde pueda estar mal ), la
idea es obtener el no de IP con el que estoy conectado mediante la macro,
pero la verdad no se en k pueda estar fallando ya qu no puedo ni siquiera
abrir la pagina http

por ejemplo al hacer el procedimiento anterior el dato de la ip me queda en
la celda a1

Sub traer_ip()
With
ActiveSheet.QueryTables.Add(Connection:="URL;http://www.showmyip.com/", _
Destination:=Range("A1"))
.Refresh BackgroundQuery:=False
End With
End Sub


"Ivan" wrote:

lo estoy intentando, pero no me resulta ( no se donde pueda estar mal ), la
idea es obtener el no de IP con el que estoy conectado mediante la macro,
pero la verdad no se en k pueda estar fallando ya qu no puedo ni siquiera
abrir la pagina http

hola, Ivan !

lo estoy intentando, pero no me resulta (no se donde pueda estar mal)
la idea es obtener el no de IP con el que estoy conectado mediante la macro
pero la verdad no se en k pueda estar fallando ya que no puedo ni siquiera abrir la pagina http

[pues...] tampoco comentas 'como' lo estas intentando [como para 'saber' lo que pudiera estar 'mal'] :))

pueba con la siguiente macro,,,
-> estableciendo PRIMERO una referencia en el proyecto de macros de tu libro...
-> en el editor de vba / -menu- herramientas / referencias..
-> a la biblioteca de objetos de: -> Microsoft Internet Controls

Sub Identifica_IP()
Dim IP As String
With CreateObject("InternetExplorer.Application")
.Navigate URL:="www.showmyip.com"
Do While .Busy Or .ReadyState <> 4
DoEvents
Loop
IP = .Document.Body.InnerText
.Quit
End With
ActiveCell = Left(IP, InStr(IP, vbCrLf) - 1)
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

p.d. es probable que pudieras lograr mayor 'rapidez' haciendo algunas llamadas a las API's de windows
o [quizas] 'leyendo' datos y componentes en el registro de windows...
[aunque quizas tengan otras 'implicaciones', sobre todo si vas a estar cambiando de equipos] :-(