Referenser till tilläggsverktyg

Här demonstreras hur vi skapar och tar bort en referens till ett tilläggsverktyg. Här har en referens satts till "Microsoft Visual Basic for Applications Extensibility 5.3".

 

Sub Skapa_Referens_Tilläggsverktyg()    '© 2002 Alla rättigheter XL-Dennis    'Här förutsätts att referens finns till Microsoft Visual Basic for Applications Extensibility 5.3    Dim oVBReferens As VBIDE.Reference    Dim wbBok As Workbook      Set wbBok = ThisWorkbook      'Ifall inte referensen finns.    On Error Resume Next      'Namnet på referensen måste anges korrekt såsom det visas i dialogrutan "Referenser - VBA-   ' Projekt".    Set oVBReferens = wbBok.VBProject.References("atpvbaen")      'Tilläggsverktyget måste vara installerat - Se artikeln Skapa tilläggsverktyg Del 1.     If oVBReferens Is Nothing Then       'Lägger till referensen       wbBok.VBProject.References.AddFromFile _             Application.AddIns("Analysis ToolPak - VBA").FullName       MsgBox "Referensen skapad i projektet."    Else       MsgBox "Referensen existerar redan."    End If   End Sub   Sub TaBort_Referens_Tilläggsverktyg()    '© 2002 Alla rättigheter XL-Dennis    'Här förutsätts att referens finns till Microsoft Visual Basic for Applications Extensibility 5.3    Dim VBReferensFil As VBIDE.Reference    Dim wbBok As Workbook     Set wbBok = ThisWorkbook      'Ifall referensen inte existerar.    On Error Resume Next      'Namnet på referensen måste anges korrekt såsom det visas i dialogrutan "Referenser - VBA-    Projekt".    Set VBReferensFil = wbBok.VBProject.References.Item("atpvbaen")      If VBReferensFil Is Nothing Then       MsgBox "Referensen existerar inte."    Else       'Här tas referensen bort från VBA-projektet.       wbBok.VBProject.References.Remove VBReferensFil       MsgBox "Referensen borttagen från projektet."    End If End Sub