Usps api vba code#

Usps api vba code#

Prints out some information (in XML format) about the zip code provided.

Function GetGeocodeXML(zipcode As String) As String.

Goes to and returns the latitude and longitude of a central point in the zip code specified.

Function GetGeocode(zipcode As String) As String.

Will return true if the input is a 5-digit numeric zip code with leading zeros, a 10-character zip code with format 'xxxxx-yyyy', or a Canadian zip code with format 'xyx yxy' where x is a letter and y is a number

Function IsZipCode(data As String) As Boolean.

The address need not match exactly it just has to be close enough for the USPS search engine to guess. This function connects the website and tries to get the zip code, given a street address, city, and state abbreviation.

Function GetZipcode(address As String, city As String, stateAbbr As String) As String.

This function connects to the website to get the city and state abbreviation for the zip code provided.

Function GetCityState(zipcode As String).

Although, in my opinion, since is run by the US government, it probably won't change any time soon. Some of these functions are definitely hacks, as they assume that the USPS website's structure will remain the same. these VBA functions utilize Microsoft's XMLHTTP Object to get some valuable geographic/zip code information.

I personally don't care much for VBA, but I use it a lot to do some pretty neat stuff in Excel. I figured that I would contribute some of my code (albeit pretty horrible code) for those who use VBA. Haven't posted anything to my blog in a while.