エクセルのVBでPCのアドレスを調べる

質問

使っているパソコンのグローバルIPアドレスをエクセルのVBを使って表示させたいのですが？
宜しくお願いします。

回答No.3

Wendy02

#2の回答者です。

>セルの中にアドレスを出すにはどのようにしたら

MsgBox buf
これを、

　Range("A1").Value = buf

と書き換えればよいです。Range("A1") は、書き出す場所のセル

お礼

大変助かりました。
有難う御座いました。

回答No.2

Wendy02

こんにちは。

ローカルIPアドレスなら、いくつか方法がありますが、グローバルIPアドレスの場合は、いずれにしても、インターネットにつないでなくてなりません。そして、しかるべきところにアクセスしないといけません。そのまま取れる場所もありますが、一応、国内サイトに限定します。

ここを使っています。
http://www.kent-web.com/www/anhttpd/ipview.cgi

こんなところもあります。
http://dog.tele.jp/lookup.php

'-------------------------------------------

Sub GetGlobalObject()
Dim objHTTP As Object
Dim buf As String
Const strURL As String = "http://www.kent-web.com/www/anhttpd/ipview.cgi" '余計な文字が入ったら、入れなおしてください。
　　Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
　　objHTTP.Open "GET", strURL
　　objHTTP.Send
　　If objHTTP.Status = 200 Then
　　　 Debug.Print objHTTP.ResponseText
　　　 buf = Mid$(objHTTP.ResponseText, InStr(1, objHTTP.ResponseText, "size=", 1) + 10, 24)
　　　 buf = Mid$(buf, 1, InStr(1, buf, "font", 1) - 3)
　　End If
　　MsgBox buf
　　Set objHTTP = Nothing
End Sub

'-------------------------------------------

お礼

早速有難う御座いました。
BOXの中にアドレスが出ました、感動しました。
初心者なので教えて頂きたいのですが、BOXではなく、エクセルのセルの中にアドレスを出すにはどのようにしたら良いのでしょうか？
お手数をお掛けしますがお願いします。

回答No.1

akina_line

こんにちは。

　過去の質問をご参照ください。
　　http://oshiete1.goo.ne.jp/qa327535.html

では。

お礼

早速有難う御座いました。
参考にさせて頂きます。