|
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. |
|
