Excel VBA Script that Downloads ACH Routing Numbers from the Federal Reserve and Imports them into a Spreadsheet
Before running this script, you must first install
DownloadGT.
Option Explicit
REM We use "Option Explicit" to help us check for coding mistakes'
REM Run Excel, then Press Alt+F11 to open VBA
REM Programming by Greg Thatcher, http://www.GregThatcher.com
Function DownloadACHRoutingNumbersFromFederalReserve()
Dim oCOMAddin
Dim oComAddinObject
Set oCOMAddin = Application.COMAddIns.Item("DownloadGT.Connect")
If Err.Number <> 0 Then
MsgBox "There was an error retrieving a reference to DownloadGT! Make sure it is installed!"
Exit Function
End If
'Check to see whether the COM add-in is connected
If oCOMAddin.Connect = False Then
MsgBox _
"DownloadGT must be enabled inside Excel before you can call its methods!"
Exit Function
End If
Set oComAddinObject = Application.COMAddIns.Item("DownloadGT.Connect").Object
REM Download ACH Routing Numbers
oComAddinObject.DownloadACHRoutingNumbers
End Function