accesar pagina web

Hola de nuevo Héctor...


Quisiera me ayudaras a identificar la posición del texto en la web para
incluir en la celda, como por ejemplo: Pos = InStr(TC, "Dólar") + 9 de la
página: http://www.elcomercioperu.com.pe/online


"Héctor Miguel" escribió en el mensaje
news:OtL$

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] :-(