VBA importing udf module from Add In to Workbook

Question

Итак, у меня есть .xlam AddIn с несколькими UDF в нем. В качестве обходного пути к хорошо известному absolute path problem я ввожу мой UDF к текущей рабочей книге, так что UDFs может быть вызван из Workbook, а не из надстройки, используя следующий код:

Sub CopyOneModule() 
Dim FName As String 
On Error GoTo errhandler 
With ThisWorkbook 
    FName = .Path & "\code.txt" 
    .VBProject.VBComponents("HMFunctions").Export FName 
End With 
ActiveWorkbook.VBProject.VBComponents.Import FName 
MsgBox ("Functions successfully imported") 
errhandler: 
If Err.Number <> 0 Then 
     Select Case Err.Number 
     Case Is = 0: 
     Case Is = 1004: 
      MsgBox "Please allow access to Object Model and try again.", vbCritical, "No Access granted" 
     End Select 
End If 

Это, кажется, работает хорошо. Итак, мой (возможно, немой) вопрос: есть ли способ заставить книгу с импортированными UDF «отменить» тот же модуль, который хранится в AddIn? Необходимо избегать следующей ситуации, которая может быть очень запутанной: 2 functions instead of 1

Благодарим вас заблаговременно.

Answer 1

Удаление личных ярлыков из временного текстового файла, как предложено snoopen, работало как шарм. Вопрос закрыт. Вот последний код, который я использую для импорта:

Sub CopyOneModule() 
Dim FName As String 
Dim FileContent As String 
Dim TextFile As Integer 
Dim ws As Workbook 

Set ws = ActiveWorkbook 

On Error GoTo errhandler 
With ThisWorkbook 
    FName = .Path & "\code.txt" 
    .VBProject.VBComponents("HMFunctions").Export FName 
End With 

TextFile = FreeFile 
Open FName For Input As TextFile 
FileContent = Input(LOF(TextFile), TextFile) 
Close TextFile 
FileContent = Replace(FileContent, "Private", "") 
TextFile = FreeFile 
Open FName For Output As TextFile 
Print #TextFile, FileContent 
Close TextFile 

ws.VBProject.VBComponents.Import FName 
MsgBox ("Functions successfully imported") 
errhandler: 
If Err.Number <> 0 Then 
     Select Case Err.Number 
     Case Is = 0: 
     Case Is = 1004: 
      MsgBox "Please allow access to Object Model and try again.", vbCritical, "No Access granted" 
     End Select 
    End If 

End Sub