Avatar billede Roehmann Nybegynder
04. november 2014 - 18:45 Der er 5 kommentarer og
1 løsning

Hent IP adresse i Excel med VBA

Hej Eksperter :)

Er der nogen som kan være behjælpelig med en vba-kode som kan hente min IP-adresse og sætte den ind i en celle i Excel? Jeg har gennemsøgt nettet for løsninger i 2 dage nu og de løsninger jeg har fundet, fungerer ikke for mig! Har nogen en løsning?

På forhånd tak,

hilsen Kim
Avatar billede kabbak Professor
04. november 2014 - 19:50 #1
Kan du selv rette til

Public Sub test2()
Dim NIC1, Nic, StrIP, CompName

Set NIC1 = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

For Each Nic In NIC1

If Nic.IPEnabled Then

StrIP = Nic.IPAddress(I)

Set WshNetwork = CreateObject("WScript.Network")

CompName = WshNetwork.Computername

MsgBox "IP Address: " & StrIP & vbNewLine _
& "Computer Name: " & CompName, 4160, "IP Address and Computer Name"


End If

Next
End Sub
Avatar billede kabbak Professor
04. november 2014 - 19:53 #2
som funktion

Public Function MinIP() As String

Dim NIC1, Nic, StrIP, CompName

Set NIC1 = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

For Each Nic In NIC1

If Nic.IPEnabled Then

MinIP = Nic.IPAddress(I)
Exit Function
End If

Next
End Function

Kaldes med
=MinIP()
Avatar billede kabbak Professor
04. november 2014 - 19:54 #3
;-))
Avatar billede Roehmann Nybegynder
04. november 2014 - 21:28 #4
Det er oversejt, mange tak for din ekspertise, og meget hurtige tilbagemelding :) Men kære Kabbak kan du ikke give et eksempel på den public sub, hvor adressen ikke kommer i msgbox, men ind i en celle, og ipadressen i sin egen celle og comp. name i en anden? Du får naturligvis dine velfortjente point :)
Avatar billede kabbak Professor
04. november 2014 - 22:39 #5
#2 giver IP

her er computermame

Public Function CompName() As String
    Set WshNetwork = CreateObject("WScript.Network")
    CompName = WshNetwork.Computername
End Function

Kaldes i cellen med
=CompName()
Avatar billede Roehmann Nybegynder
05. november 2014 - 10:47 #6
Tak tak endnu en gang :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester