AllBalancesLink

Notes for Microsoft 2000 users
==============================

Microsoft Excel 2000 cannot call a function directly in a COM Add-in from a
worksheet cell formula. However, you can create a Visual Basic for Applications
(VBA) wrapper for the COM Add-in function so that the function may be called
indirectly.


STEP BY STEP INSTRUCTIONS * Create an xla-Wrapper (for Excel 2000 only)

1. Start a new workbook in Microsoft Excel.

2. Press the ALT+F11 keys to open the Visual Basic Editor.

3. In the Project Explorer, right-click VBAProject for the new workbook
(Book1 by default), click Module, and then select Insert to add a new code
module.

4. Paste the following VBA functions into the code module:


Public Function CalcT(Param1 As String) As Double
  Dim oAdd As Object
  Set oAdd = Application.COMAddIns.Item("AllBalancesLink.ABLFunctions").Object
  CalcT = oAdd.CalcT(Param1)
End Function

Public Function AccountD(Param1 As String) As String
  Dim oAdd As Object
  Set oAdd = Application.COMAddIns.Item("AllBalancesLink.ABLFunctions").Object
  AccountD = oAdd.AccountD(Param1)
End Function

Public Function JobD(Param1 As String) As String
  Dim oAdd As Object
  Set oAdd = Application.COMAddIns.Item("AllBalancesLink.ABLFunctions").Object
  JobD = oAdd.JobD(Param1)
End Function

Public Function PhaseD(Param1 As String) As String
  Dim oAdd As Object
  Set oAdd = Application.COMAddIns.Item("AllBalancesLink.ABLFunctions").Object
  PhaseD = oAdd.PhaseD(Param1)
End Function

Public Function CostCodeD(Param1 As String) As String
  Dim oAdd As Object
  Set oAdd = Application.COMAddIns.Item("AllBalancesLink.ABLFunctions").Object
  CostCodeD = oAdd.CostCodeD(Param1)
End Function

Public Function AccountID(Param1 As String) As String
  Dim oAdd As Object
  Set oAdd = Application.COMAddIns.Item("AllBalancesLink.ABLFunctions").Object
  AccountID = oAdd.AccountID(Param1)
End Function

Public Function JobID(Param1 As String) As String
  Dim oAdd As Object
  Set oAdd = Application.COMAddIns.Item("AllBalancesLink.ABLFunctions").Object
  JobID = oAdd.JobID(Param1)
End Function

Public Function AccBudget(Param1 As String) As Double
  Dim oAdd As Object
  Set oAdd = Application.COMAddIns.Item("AllBalancesLink.ABLFunctions").Object
  AccBudget = oAdd.AccBudget(Param1)
End Function

Public Function AccBudgetRevise(Param1 As String) As Double
  Dim oAdd As Object
  Set oAdd = Application.COMAddIns.Item("AllBalancesLink.ABLFunctions").Object
  AccBudgetRevise = oAdd.AccBudgetRevise(Param1)
End Function

Public Function JobEstRev(Param1 As String) As Double
  Dim oAdd As Object
  Set oAdd = Application.COMAddIns.Item("AllBalancesLink.ABLFunctions").Object
  JobEstRev = oAdd.JobEstRev(Param1)
End Function

Public Function JobEstExp(Param1 As String) As Double
  Dim oAdd As Object
  Set oAdd = Application.COMAddIns.Item("AllBalancesLink.ABLFunctions").Object
  JobEstExp = oAdd.JobEstExp(Param1)
End Function


5. Close the VBA Editor to return to Excel.

6. On the File menu, choose SaveAs. In the Save As Type dropdown, select
Microsoft Excel Add-in (*.xla). Type the file name wrap.xla, and then click
Save.

7. Close the workbook.

8. On the Tools menu, click Add-ins. Check the Wrap add-in in the list, and
then click OK.

9. Quit Microsoft Excel.