aktif vbe projesindeki references listesi

[hsayar]

Arkadaşlar aktif projdeki seçili references listesini elde etmenin yolu varmıdır.

 

[Zeki Gürsoy]

Arkadaşlar aktif projdeki seçili references listesini elde etmenin yolu varmıdır.

Sub Refleri_Listele()
 
For i = 1 To ThisWorkbook.VBProject.References.Count
 
    Cells(i, 1) = ThisWorkbook.VBProject.References.Item(i).Name
 
Next
 
End Sub

Konu açılmışken referans da işaretlensin.

Sub Ref_Ekle_ADO_ve_DAO()
 
ThisWorkbook.VBProject.References.AddFromFile ( _
"C:\Program Files\Common Files\System\ado\msado15.dll") 'ADO
 
ThisWorkbook.VBProject.References.AddFromFile ( _
"C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll") 'DAO
 
End Sub

 

[hsayar]

hocam teşekkür ederim yalnız teferences lisdtesindeki görünen adını öğrenmek mümnkün olabilkirmi

galiba sizin verdiğinz dll adlarını içeriyor
VBA > visual basic for aplications
Excel > microsoft excel 11.0 object library
stdole > ole otomation
Office > microsoft office 11.0 object library

 

[Zeki Gürsoy]

Bunu kullanın.

Sub Refleri_Listele()
 
For i = 1 To ThisWorkbook.VBProject.References.Count
 
    Cells(i, 1) = ThisWorkbook.VBProject.References.Item(i)[B].Description[/B]
 
Next
 
End Sub

 

[hsayar]

Sub Refleri_Listele_D()
 
For i = 1 To ThisWorkbook.VBProject.References.Count
 
    Cells(i, 1) = ThisWorkbook.VBProject.References.Item(i).Description
    Cells(i, 2) = ThisWorkbook.VBProject.References.Item(i).FullPath

Next
 
End Sub

bu daha çok işime yarayacak.

peki hocam şöyle bir sorum var şimdi kullandığım referenecları diziye alsam ve açılışta referensları seçili değil ise seçecek yoksa yok diye bilgi verecek kod nedir?
mesala bunlar
Visual Basic For Applications C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
Microsoft Excel 11.0 Object Library C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE
Microsoft Forms 2.0 Object Library C:\WINDOWS\system32\FM20.DLL
OLE Automation C:\WINDOWS\system32\stdole2.tlb
Microsoft Office 11.0 Object Library C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
Microsoft ActiveX Data Objects 2.7 Library C:\Program Files\Common Files\System\ado\msado27.tlb

 

[Zeki Gürsoy]

Kısa olması açısından kontrol olarak isimlere baktım. İsterseniz Description ya da Fullpath' e baktırın.

İsterseniz mesaj yerine ilgili referansı otomatik işaretlensin.(Ref. ekleme: 2 nolu mesaj)

Sub Ref_Kontrol()
Dim bool As Boolean
 
arr = Array( _
"VBA", "Excel", "stdole", "Office", "MSForms", "ADODB")
 
For i = 0 To UBound(arr)
    bool = False
 
    For Each ref In ThisWorkbook.VBProject.References
        If ref.Name = arr(i) Then bool = True
    Next
 
    If bool = False Then MsgBox arr(i) & " referansı yoktur."
 
Next
End Sub

 

[hsayar]

hocam istediğimde bu
dosya references listesinde ve sistemde varsa işaretlensin.... yoksa mesaj yollasın.

birazdan detaylı deneme yapacam

 

[hsayar]

hocam göndferdiğiniz son hali sereferenasın seçili olmadığını mesajlıyordu.

bu hali seçili değilse seçiyor.

Sub Ref_Kontrol()
Dim bool As Boolean
 
strRefPath = "C:\Program Files\Microsoft Office\OFFICE11\msoutl.olb" 'ADO
    
    bool = False
 
    For Each ref In ThisWorkbook.VBProject.References
        If ref.fullPath = strRefPath Then bool = True
    Next
 
    If bool = False Then ThisWorkbook.VBProject.References.AddFromFile (strRefPath)

End Sub

bunu fonksiyon giibi yapabilirmiyzi

mesala

sub xxxx()

    If TestRefKont("C:\Program Files\Microsoft Office\OFFICE11\msoutl.olb") = False Then
        call SecRef
    End If 
end sub

gibi

 

[Levent Menteşoğlu]

Aşağıdaki linkide incelemenizi öneririm.

References Kontrolühttp://www.excel.web.tr/showthread.php?t=15629&highlight=outlook

 

[hsayar]

hocam orada istediğim yok ki


şöyle birşey ;
...........
'Aktif internet bağlantısı varmı kontrol et.
If TestInternetConnection = False Then
MsgBox "BAĞLANTI YOK": Exit Sub
End If
..........
tanımlı fonksiyona bağlanarak internet bağlantısı nı kontrol eder, yoksa prosodürden çıkıyor........


bende tanınımlı fonksiyona bağlanarak reffullpath ve ya desritacition (açıklamas&#305 nı göre seçili değilse seçecek fonksiyon istiyorum.

 

[Levent Menteşoğlu]

hocam orada şstedşpşn yok ki

Pardon ne yok?

şöyle birşey
...........
'Aktif internet bağlantısı varmı kontrol et.
If TestInternetConnection = False Then
MsgBox "BAĞLANTI YOK": Exit Sub
End If
..........
tanımlı fonksiyoına bağlanarak internet bağlantısı yoksa prosodürden çıkıyor........


bende tanınımlı fonksiyona bağlanarak reffullpath ve ya desritacition (açıklamas&#305 nı göre seçili değilse seçecek fonksşiyon istiyorum.

Sn hsayar

Lütfen yazarken Türkçemizi dikkatli kullanmaya çalışalım.

 

[uzmanamele]

hocam orada şstedşpşn yok ki

merhaba
syn leventm Türkçenin yazım ve konuşma kurallarına dikkat edilmesi konusunda gösterdiğiniz duyarlılığa teşekkür ederim.

şstedşpşn~istediğim olsa gerek, syn hsayar tuşlara basarken biraz sola kaymış. siyasi düşüncesinin de parmaklarını takip etmesini dilerim

 

[hsayar]

Hocam uyarınız için teşekkür ederim.
Sn Uzmanamale sabah sabah güzel espri idi. neşem yerine geldi nsşşs neyse biz bildiğimiz yoldan gitmeye devam edelim.

 

[uzmanamele]

merhaba
syn hsayar, hep neşeli olmanızı dilerim.
amasya elması sever misiniz?

 

[hsayar]

elbette severim. yalnız konuyu geyiğie çevirmeye başladık.

 

[hsayar]

hocam orada istediğim yok ki


şöyle birşey ;
...........
'Aktif internet bağlantısı varmı kontrol et.
If TestInternetConnection = False Then
MsgBox "BAĞLANTI YOK": Exit Sub
End If
..........
tanımlı fonksiyona bağlanarak internet bağlantısı nı kontrol eder, yoksa prosodürden çıkıyor........


bende tanınımlı fonksiyona bağlanarak reffullpath ve ya desritacition (açıklaması) nı göre seçili değilse seçecek fonksiyon istiyorum.

güncel

Tekrar anlatmayı deneyeyim.

Bir refimiz var o işaretli olmadımı kodumuz çalışmıyor.... elle işaretlemek yerine işaretli mi değil mi kontrol işini girdiğimiz refdosyayolu ile fonksiyonla yapacak ve işaretli değilse False sonucunu çevirecek bir fonksiyon mümkünmüdür. yada direkt prosodürden çağıralım şöyle ki

 Sub Çalışanmakro()
refyolu = "c:\...................\ref.dll"
   call refkont(refyolu)
End sub

Sub Refkont(refyolu)
'herhalde parametrik prosodür denilen şey bu anemos hocamdan duydum bugün belki bu çözer

A1) Dosyayı sistemde kontrol et
a2) Dosya sistemde yoksa bo yolda istenilen dosya yoktur mesajı ver

b1) dosyayolunu referanslarda kontrol et
b2) işaretli ise çık, Çalışan makroda kaldığın yerden devam et
b3) işaretli değilse işaretle Çalışan makroda kaldığın yerden devam et




End sub[/code]


şu vba da türkçe gibi yukarıda yazıldığı gibi çalışsaydı.
gibi birşey

 

[Zeki Gürsoy]

Benim fikrim:
1- Sistemde ref. dosyalarının varlığının kontrolü. En az biri yoksa dosya kapansın.

2- Ref. işaretli olup olmadığına hiç bakmadan sırayla hepsi işaretlensin. Hataya karşı (işaretli olduğunda), satırın en başına "On Error Resume Next" ekleyin.

 

[hsayar]

1- Sistemde ref. dosyalarının varlığının kontrolü. En az biri yoksa dosya kapansın.

kullanılan ref dosyasının kontrolünü nasıl yapacağız?

2- Ref. işaretli olup olmadığına hiç bakmadan sırayla hepsi işaretlensin

1) bu işlem dosya boyutunu artırırmı
2) ref açıklaması (Microsoft ActiveX Data objects 2.0 library) Microsoft (ActiveX Data objects 2.1 library) (Microsoft ActiveX Data objects 2.2 library) vs aynı amaca önelik olanlar var bunlar arasında çakışma olur mu
3) buna ilişkin kodlar hangileridr.

 

[Haluk]

Alternatif:

Referans verip değişkenleri early binding (compile-derleme) deklare etmek yerine, CreateObject ile late bindig (runtime-çalışma sırasında) deklare etmek referans karmaşasına çözüm olur.

Forumda ADO, DAO, Outlook .... konularının bir çoğunda CreateObject yöntemi kullanılmıştır. Arama motoru ile bulabilirsiniz.

 

[hsayar]

hocam aslında bu soruyu sormamdaki teml amaç sizin verdiğini bir çok kooda
xxxxx Refaransı seçili olmalıdır. demeniz
bende bu şekilde bazı örnek uygulamalarda kullandım. ama create objectte kasparasky ile virüs uyarsına sebeb oluyır ve beni sinir ediyor her seferinde Skip demekten bıktım.