Skip to content

Ecxel® VBA

The extended functions can be used in Excel® VBA.

Example:

vb
Sub TestTaurecAddIn()
  ' Init
  Dim AddIn As COMAddIn
  Dim AddInObj As Object
  
  ' Set the AddIn
  Set AddIn = Application.COMAddIns.Item("TaurecAddIn.coTaurecAddIn")
  Set AddInObj = AddIn.Object
 
  ' Set a cell formula
  Range("A1").Formula2 = "=TRC_DB_ITEMBYNAME(""Day"",""1990-01-01"",""Caption1"")"
    
  ' Call a function
  Dim DayCaption As String
  DayCaption = AddInObj.TRC_DB_ITEMBYNAME("Day", "1990-01-01", "Caption1")
  
  ' Show the result
  MsgBox "The caption of the day is: " & DayCaption
End Sub