Poner el IP en una celda de EXCEl con VBA

Si no te incomoda una DLL en lo que alguien dice otra respuesta:

http://mx.geocities.com/gozalo_ya/V...ocalIP.zip


Forma de cargar esta DLL.

1.- Iniciar la aplicacion Excel
2.- Menu Herramientas
- / Complementos
3.- Boton Automatizacion
4.- Dentro de la lista buscar el complemento LocalIP, nombre de la libreria
mencionada

Forma de usar esta DLL

1.- Seleccionan cualquier celda y colocan la formula:
=LaIP()

Y con esto nos aparece la direccion IP del equipo.

Saludos

Francisco

Se me olvidaba.

Esta DLL solo funciona con excel 10 o version XP y hay que registrarla en su
momento con el comando del XP

regsvr32 localip.dll

Saludos

hola, Augusto !

Como se podría poner la IP en una celda de EXCEL?

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