otomatik referans (library) eklenmesi

[demirtas]

Herhangi bir referansı otomatik eklemek için tam olara ne tür bir kod kullanmamız gerekiyor Bazı pclerde belli makro kodlarının çalışması için belli referansların olması gerekiyor Bu referanslar olmadan da hata verdiğinden önce ilgili referansı ekletip, ondan sonra asıl kodu çalıştırmak daha verimli oluyor

Sitede araştırdım, ekteki kodlar Sn. Haluk tarafından yazılmış:

Sub CreateRef_Word()
Set ID = ThisWorkbook.VBProject.References
' Ufak Major ve Minor reference eklemek, diğer PC'lerde de çalışmasını sağlar
ID.AddFromGuid "{00020905-0000-0000-C000-000000000046}", 1, 0
End Sub

Sub RemoveRef_Word()
For Each myRefs In Application.VBE.ActiveVBProject.References
If myRefs.Name = "Word" Then Application.VBE.ActiveVBProject.References.Remove myRefs
Next
End Sub


Bu kodlar Microsoft Word 11.0 Object Library ekliyor
Anladığım kadarıyla her referansın belli bir guid numarası var ve eklemek istendiğinde bu numara kullanılıyor

Bu numaraları bulabileceğimiz ya da elde edebileceğimiz toplu bir yer mevcut mu?

Benim otomatik olarak eklemek istediğim referans ise Microsoft Visual Basic for Applications Extensibility 5.3
Peki, bunun guid numarası ne olabilir?

 

[alpi]

linkteki konuyu inceleğin
Çalışma zamanında referans eklemek

 

[demirtas]

Sn. Alpi,

İlgili linki inceledim.. Anlaşılır buldum fakat sorunuma çare bulamadım..
Burda anlatılanlara rağmen benim bilmediğim nokta, hangi isimdeki libraryin ya da .ocx dosyasının hangi işlevi yerine getirdiğini bilmemekten kaynaklanıyor sanırım..

Bu arada konu hakkında araştırmama devam ederken aşağıdaki kodu buldum; işaretli referansların guid numaralarını, major, minor ve fulpathlerini veriyor Böylece hangi referansın hangi guid numarasına sahip olduğunu bulmuş oldum
Gerisi zaten kendiliğinden geldi..

Sub Grab_References()

Dim n As Integer

Sheets.Add
ActiveSheet.Name = "GUIDS"

On Error Resume Next
For n = 1 To ActiveWorkbook.VBProject.References.Count
Cells(n, 1) = ActiveWorkbook.VBProject.References.Item.Name
Cells(n, 2) = ActiveWorkbook.VBProject.References.Item.Description
Cells(n, 3) = ActiveWorkbook.VBProject.References.Item.GUID
Cells(n, 4) = ActiveWorkbook.VBProject.References.Item.Major
Cells(n, 5) = ActiveWorkbook.VBProject.References.Item.Minor
Cells(n, 6) = ActiveWorkbook.VBProject.References.Item.fullpath
Next n

End Sub