Launch Excel and open the Visual Basic Editor by going to the Tools menu.
To make sure the VB Editor knows that you have the SOAP Toolkit installed, select Tools->References.
Scroll down the list of libraries and pick "Microsoft Soap Type Library v3.0".
Add this piece of code by choosing Insert->Module. Copy this code into your Excel VBA module
Option Explicit 'Excel VBA Function to call the AphiaNameService Public Function getAphiaID(taxon As String) As Single Dim objSClient As MSSOAPLib30.SoapClient30 Dim fResult As Single Set objSClient = New SoapClient30 Call objSClient.mssoapinit(par_WSDLFile:="http://ras.biodiversity.aq/aphia.php?p=soap&wsdl=1") fResult = objSClient.getAphiaID(taxon, True) 'Optional parameters need to be there in VBA Set objSClient = Nothing getAphiaID = fResult End Function
Your screen should look something like this:
Close the VB Editor.
You can now use the function getAphiaID as you would any built-in Excel function.
Select the cell you want the value displayed in, then go to the Insert menu and choose Function.
In the Paste Function dialog box, scroll down to User Defined functions and you should see getAphiaID listed:
The result should be something like this:
Credits for this tutorial go to Rod Page.