グローバルIPアドレスを取得する【ExcelVBA】

VBAでIPアドレスを取得したい場合があります。
今回はグローバルIPアドレスを取得する方法です。グローバルIPアドレスが取得できる、下記サイトにリクエストを送ります。

https://myip.dnsomatic.com

myip.dnsomatic.com

グローバルIPアドレスを取得するサンプルコード

'■グローバルIPを取得する
Public Function getPublicIPAdress() As String
    '■要参照設定　Microsoft XML, v6.0
    Dim httpReq  As XMLHTTP60
    Set httpReq = New XMLHTTP60
    
    '■GET送信する
    httpReq.Open "Get", "https://myip.dnsomatic.com", False
    httpReq.Send
    
    '■グローバルIP取得できるまで待つ
    Do While httpReq.readyState < 4
        DoEvents
    Loop
    
    '■グローバルIPを返す
    getPublicIPAdress = httpReq.ResponseText
End Function

実際の使い方

Public Sub sample()
    Debug.Print getPublicIPAdress  'XXX.XXX.XXX.XXX
End Sub

注意点

• グローバルIPアドレスではなく、ローカルIPアドレス取得する場合はこちら。

関連記事

• ネットワークフォルダを開く【Shell関数】
• Selenium「Edge/ChromeでGoogle検索する(GET送信)」
• VBAでIE操作「Google検索する(GET送信)」