Visual Basic - Agregar referencias

Life is soft - evento anual de software empresarial
 
Vista:

Agregar referencias

Publicado por Juan Carlos (3 intervenciones) el 09/05/2007 17:38:11
Alguien sabe como agregar las referencias en VB por codigo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Agregar referencias

Publicado por Juan (18 intervenciones) el 10/05/2007 03:20:24
Te paso un ejemplo para agregar referencias en VBA (Excel). Es muy similar a lo que vos querés para VB, deberías modificarlo un poco.
En este caso agrego la referencia a la librería ADO. Lo más seguro es buscar el "GUID" o número de identificación de la libería de tu interés y agregarla por ese número. Tenía otro ejemplo, pero no lo encuentro.

Option Explicit

Sub AgregarReferencia()

Dim Ref As Variant
Dim Existe As Boolean
Dim strGUID As String
Dim RefADODB As Variant

For Each Ref In ThisWorkbook.VBProject.References
If Ref.Name = "ADODB" Then
MsgBox "La referencia a " & Ref.Name & " está disponible " _
& vbCrLf & Ref.Description & vbCrLf & Ref.fullpath & vbCrLf & Ref.GUID
Set RefADODB = Ref
Existe = True
Exit For
End If
Next Ref

strGUID = "{00000206-0000-0010-8000-00AA006D2EA4}"

If Existe = False Then
'Agrega referencia
ThisWorkbook.VBProject.References.AddFromGuid strGUID, 0, 0
End If

'Borra referencia si existe
ThisWorkbook.VBProject.References.Remove RefADODB

'Guid 2.1: {00000201-0000-0010-8000-00AA006D2EA4}
'Guid 2.6: {00000206-0000-0010-8000-00AA006D2EA4}
'Guid 2.7: {EF53050B-882E-4776-B643-EDA472E8E3F2}
'Guid 2.8: {2A75196C-D9EB-4129-B803-931327F72D5C}

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar