Obtain external IP address with VBA

[Jose77]

I want to get the external IP address of a PC running an Excel spreadsheet. 'External IP address' meaning the public IP used to access the Internet.

I found some code ( http://www.mvps.org/access/api/api0067.htm ) that returns the IPs bound to a machine.

But this is not what I am looking for, as it will return a private address when the computer is behind a NAT.

Any help or pointers really appreciated.

Josep

[Jose77]

I thought some more about the problem, and I see there are a couple of web sites:
http://whatismyip.org/
http://whatismyip.com/automation/n09230945.asp

they both return the public IP address of the computer making the request.

So, let me re-state my question: how can I retrieve a website from Excel VBA and get the content?

Thanks,

[Marzuk]

Record a macro, run a webquery on the site that you want to use to get your IP Address, and then edit the code as needed.

[Leith Ross]

Hello Jose77,

It isn't clear to me what you want when you say "content". Your first post centers around the IP address of the host. Then in your second post you say...

So, let me re-state my question: how can I retrieve a website from Excel VBA and get the content?

I am guessing you want the IP address for a given URL. This macro will do that. There is one annoyance. The Command screen is visible while it is running. It closes when the macro finishes, but it does work.

Please Login or Register  to view this content.

Example

Please Login or Register  to view this content.

[DonkeyOte]

If on the other it is simply a case of getting the IP of the current PC (generated by the whatismyip website) then

Record a macro, run a webquery on the site that you want to use to get your IP Address, and then edit the code as needed.

which would give you something like:

Please Login or Register  to view this content.

The above is basically automating the following process in XL2007:

-- Go to the Data section on the Ribbon
-- From Web
-- Enter URL of Interest and Go
-- Select appropriate table you wish to retrieve
-- Click Import
-- Follow prompts

In the code I only changed one default setting which was to use Overwrite prior data rather than Delete and Insert new.

[romperstomper]

If you are behind a proxy/ISA server, then you could also run your original code against the gateway machine name rather than the machine with the workbook.