Referenser till arbetsböcker

 

Här demonstreras hur vi skapar och tar bort en referens till en annan arbetsbok. Nackdelen med denna typ av referens är att vi måste hårdkoda sökvägen. Alternativt kan det inhämtas mha ThisWorkbook.Path.

 

Sub Skapa_Referens_Arbetsbok()    '© 2002 Alla rättigheter XL-Dennis    'Här förekommer ingen referens till Microsoft Visual Basic for Applications Extensibility 5.3    Dim oVBReferens As Object    Dim wbBok As Workbook    Set wbBok = ThisWorkbook      'Ifall referensen redan är angiven.    On Error Resume Next      'Noterbart är att VBA-projektet som refereras till måste ha ett unikt projektnamn    'visavi VBA-projektet som refererar till den.      'Här skapas referensen till önskat arbetsbok filnamn.    wbBok.VBProject.References.AddFromFile "c:\Tidsdata.xls"   End Sub   Sub TaBort_Referens_Arbetsbok()    '© 2002 Alla rättigheter XL-Dennis    'Här förekommer ingen referens till Microsoft Visual Basic for Applications Extensibility 5.3    Dim oVBReferens As Object, oVBReferensFil As Object    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 oVBReferensFil = wbBok.VBProject.References.Item("Unikt")    'Här tas referensen bort från VBa-projektet.    wbBok.VBProject.References.Remove oVBReferensFil End Sub