Controlador_ABL.jpg, 45 kB
abltitle.jpg, 11 kB
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.