Hoy vamos a ver cómo saber la dirección IP usando VBA en Microsoft Excel.
Para ello he creado un ejemplo muy sencillo, en el que obtendremos dicha información al pulsar un botón.
A continuación os muestro el código necesario,
Private Sub ip()
Dim strComputer As String
Dim objWMI As Object
Dim colIP As Object
Dim ip As Object
Dim i As Integer
Dim ipserver As String
ipserver = ""
strComputer = "."
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colIP = objWMI.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each ip In colIP
If Not IsNull(ip.IPAddress) Then
For i = LBound(ip.IPAddress) To UBound(ip.IPAddress)
ipserver = ip.IPAddress(i)
MsgBox ip.IPAddress(i), vbInformation, ip.Description(i)
Next
End If
Next
End Sub
Al pulsar el botón, aparecerá un msgbox con la dirección IP,
Espero que este post te haya servido para saber cómo obtener la dirección IP usando VBA en Microsoft Excel. Descárgate el archivo de ejemplo y practica.
Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.
Hasta la próxima.
Si te ha servido y quieres donar
Descarga el archivo del ejemplo
Últimas publicaciones
0 comentarios