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.



Vragen, suggesties en opmerkingen

Al het commentaar over deze pagina:


Commentaar van: Jean-Pierre Degroote (9-11-2013 14:09:13) deeplink naar dit commentaar

Dag Jan Karel,

Er ontgaat me iets in je code.


CheckAndFixLinks oBk
ReplaceMyFunctions oBk


Is ReplaceMyFunctions oBk nodig, voor zover ik kon testen met je file is dit niet nodig. Je geeft ook aan dat de UDF niet genest mag zijn.

1. Wat als je 20 functies in je add-in hebt? Welke moet je dan gaan zoeken en het is zelfs niet zeker dat ze gebruikt worden.
2. Hoe dan met genested functies?

Vriendelijke groeten,

JP


Commentaar van: Jan Karel Pieterse (9-11-2013 19:21:57) deeplink naar dit commentaar

Hoi Jean-Pierre,

In principe is die ReplaceMyFunctions ook niet nodig, alleen CheckAndFixLinks zou afdoende moeten zijn.

Ik heb het echter ooit aan de hand gehad dat CheckAndfixlinks onvoldoende bleek.


Heeft u vragen, suggesties of opmerkingen? Gebruik dan dit formulier.

Mocht uw vraag niet direct relevant zijn voor deze pagina, maar een algemene Excel vraag betreffen, dan adviseer ik om deze hier te stellen: excelexperts.nl/forum/index.php.




Als u VBA code in uw commentaar plaatst, gebruik dan [VB] tags: [VB]Uw code[/VB].