INDIRIZZO IP

Hai un problema con Excel?

Nuova discussione

INDIRIZZO IP
di Sal (utente non iscritto) data: 02/10/2012 14:21:16
buongiorno a tutti
non so se è il foriìum giusto
vorrei sapere se è possibile, magari sto chiedendo qualcosa di non fattibile, inserire in una cella di un foglio excel in automatico il n. IP di un pc
mi spiego, quando io carico il file excel in un pc automaticamente mi deve comparire in una determinata cella (es. A1) il n. ip di quel pc

magari sto chiedendo l'impossibile, ma ci provo
un grazie a tutti
ciao
Sal
di HarryBosch data: 02/10/2012 15:14:19
E' possibile.. te lo dico perchè ho un file che fa proprio questo;
non è farina del mio sacco, ma è una funzione che ho trovato in rete.
Credo che per commentarlo ci voglia un esperto di API
Ti allego il file

di Vecchio Frac data: 02/10/2012 15:28:27
Carina la domanda :)
Le API sono nostre amiche infatti :)
Io però quelle poche volte che ne ho avuto bisogno ho utilizzato il pezzo di codice qui sotto, che usa il sottoservizio WMI di Windows (p.s. non l'hai detto, ma si suppone che la domanda sia per Windows).

Sub test_ip()
Dim objWMIService As Object, IPConfigSet As Variant, IPConfig As Variant, i As Long

    Set objWMIService = CreateObject("winmgmts:\.
ootcimv2")
    Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration")

    For Each IPConfig In IPConfigSet
        If Not IsNull(IPConfig.IPAddress) Then
            For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
                Debug.Print "Ip: " & IPConfig.IPAddress(i)
            Next
        End If
    Next
End Sub

di sal (utente non iscritto) data: 02/10/2012 18:43:28
ho scaricato il file
ma quando mi posiziono sul pulsante, non va, mi compare come quando è aperta l'attivazione a visual basic per le modifiche

non succede nulla

cosa faccio?

*********************

per quanto riguarda il codice inviatomi fra un po lo provo, vorrei solo saoere dove lo devo posizionare il codice
ciao grazie ancora a tutti
di sal (utente non iscritto) data: 02/10/2012 18:47:27
per nuovo frac

il codice l'ho posizionato nel foglio1

ma non fa niente, in quale cella mi compare l'ip?

devo scrivere qualce formula in qualche cella?

come faccio a far venire l'ip nella cella desiderata? esempio nella cella A4

ciao e grazie
di Vecchio Frac data: 02/10/2012 19:05:14
Il file di Vanni è .xlsm e se lo apri con una versione < 2007 non lo apri :)
Il mio codice funziona subito ma visualizza il risultato nella finestra Immediata...

Coraggio, basta un po' di fantasia e attenzione per leggere il codice, non era incomprensibile.

Basta che cambi la riga con Debug.Print in:
[A4] = [A4] & IPConfig.IPAddress(i) & " - "
di HarryBosch data: 02/10/2012 19:27:16
What's?
Se hai la versione 2003 scaricati questo file che allego, con l'estensione corretta; funziona anche in questo caso, appena controllato :)

Ma se hai la versione 2007 dovrebbe andare... a patto di attivare le macro.
di Vecchio Frac data: 02/10/2012 20:23:41
cit. mia " Il file di Vanni è .xlsm e se lo apri con una versione < 2007 non lo apri "
---> Vanni ha ragione e mi correggo, con Excel < 2007 puoi scaricare un viewer che però non attiva tutte le funzionalità incompatibili con la versione 2003. Anche la prima versione di Vanni funzionava bene, pure in Excel 2003, bastava solo richiamare la macro manualmente o riassociarla al pulsantone del foglio. Insomma, smanettando un po' ci si arrivava. E non vi commento le API proposte perchè diventerebbe troppo lunga, anche se a rigore sarebbero da preferire alla mia versione più concisa per una serie di motivi =)
di SAL (utente non iscritto) data: 02/10/2012 22:41:38
ho risolto con la siluzione di vecchio frac sostituendo la riga

grazie a entrambi

per la cronaca, io uso (purtroppo) excel2000

ciao
Sal
di Vecchio Frac data: 03/10/2012 11:07:11
Perché "purtroppo"?
Il salto da Office 97 a Office 2000 è stato poderoso, e fino alla successiva versione 2007 non ci sono stati grandi cambiamenti. Non lamentarti, hai a disposizione il meglio ^_^ (lo dico perchè io pure uso la versione 2003 che è una 2000 migliorata)

Se ritieni risolta questa discussione, prego spuntare la casella "Spunta se risolta".
di Sal (utente non iscritto) data: 03/10/2012 18:24:47
grazie a tutti
ciao
di Sal (utente non iscritto) data: 03/10/2012 18:25:02
grazie a tutti
ciao
di Sal (utente non iscritto) data: 03/10/2012 18:25:13
grazie a tutti
ciao

Vuoi Approfondire?