Koppelingen naar UDFs in Addins herstellen

Pagina's in dit artikel

1. #Naam! fouten oplossen
2. Bestand openen detecteren
3. Geopende bestanden aanpassen
4. Werkmappen geopend via verkenner

Het zojuist geopende bestand aanpassen

Zodra de invoegtoepassing detecteert dat de gebruiker een bestand opent moet actie ondernomen worden.

Allereerst checken we alle koppelingen in het bestand om te zien of er één bij is die bij onze invoegtoepassing hoort. Daarna checken we voor de zekerheid (dit is dus normaal gesproken niet nodig!) ook alle formules of deze onze UDF(s) gebruiken en werken deze desnoods apart bij.

De code hieronder staat in een "normale" module genaamd modProcessWBOpen:

Sub ProcessNewBookOpened(oBk As Workbook)
'-------------------------------------------------------------------------
' Procedure : ProcessNewBookOpened
' Company   : JKP Application Development Services (c) 2005
' Author    : Jan Karel Pieterse
' Created   : 2-6-2008
' Purpose   : Deze routine wordt gestart zodra een bestand geopend wordt.
' Aangeroepen vanuit: clsAppEvents.App_Workbook_Open en ThisWorkbook.Workbook_Open
'-------------------------------------------------------------------------
    'Soms is OBk gelijk aan nothing, dan niets doen.
    If oBk Is Nothing Then Exit Sub
    If oBk Is ThisWorkbook Then Exit Sub
    If oBk.IsInplace Then Exit Sub
    CheckAndFixLinks oBk
    CountBooks
End Sub

Sub CheckAndFixLinks(oBook As Workbook)
'-------------------------------------------------------------------------
' Procedure : CheckAndFixLinks Created by Jan Karel Pieterse
' Company   : JKP Application Development Services (c) 2008
' Author    : Jan Karel Pieterse
' Created   : 2-6-2008
' Purpose   : Checkt koppelingen naar deze invoegtoepassing
'             en fixt deze als ze niet juist zijn
'-------------------------------------------------------------------------
    Dim vLink As Variant
    Dim vLinks As Variant
    'Alle koppelingen ophalen
    vLinks = oBook.LinkSources(xlExcelLinks)
    'Als we geen koppelingen hebben, dan eindigen
    If IsEmpty(vLinks) Then Exit Sub
    For Each vLink In vLinks
        If vLink Like "*" & ThisWorkbook.Name Then
            'Een koppeling gevonden naar onze invoegtoepassing, omleggen
            'naar de huidige lokatie
            Application.DisplayAlerts = False
            oBook.ChangeLink vLink, ThisWorkbook.FullName, xlLinkTypeExcelLinks
            Application.DisplayAlerts = True
        End If
    Next
    On Error GoTo 0
End Sub

Lees het commentaar in de code om uit te vinden wat hier gebeurt.

Nou, dat zou het dan moeten zijn zou je denken. Niet helemaal. Soms wanneer je een bestand opent vanuit verkenner, dan heeft Excel dat bestand al open voordat je invoegtoepassing is geladen en geinitialiseerd. De koppelingen van dat bestand worden dan dus niet bijgewerkt.

Volgende pagina:  Werkmappen die geopend worden vanuit verkenner aanpassen.