references - как подключить

Вторник, 11 Декабря 2018 г. 11:58 + в цитатник

Друзья помогите с решением проблемы. Есть офис, установленный локально 16 версии. И есть офис 15 версии, который установлен на citrix ферме. Приложение для работы приходится запускать именно на цитриксе, а пишу основное - локально.
Так вот каждый раз приходится ручками подключать "C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE15\MSO.DLL". Пытался делать так

Public Function CheckReferences()
 
Dim ref As Reference
Dim comp$
For Each ref In CurrentProject.Application.References
    Set ref = References.AddFromGuid("{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}")   ' OFFICE15
    Debug.Print ref.Name, ref.Guid, ref.IsBroken, ref.FullPath
    
    'Office        {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}    False         C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE16\MSO.DLL
    'Office        {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}    False         C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE15\MSO.DLL
    
    comp = txtCompName
    If ref.Name = "Office" And comp Like "*CTXDCN*" And ref.IsBroken = True Then
        CurrentProject.Application.References.Remove ref    ' îòêëþ÷èì OFFICE16
        Set ref = References.AddFromFile("C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE15\MSO.DLL")   ' OFFICE15
        Exit For
    End If

Next ref
Set ref = Nothing
End Function