klasör aratma, bulma ve acma

[addigital]

selamlar arkadaslar

konuyu sitede arattim ancak bulamadim. hücre icerisine benim girecegim klasör adini , butona tikladigimda "C:\Users\" icerisinde daha önce var olan klasörlerden arayacak bulacak ve ekrana acacak bir koda ihtiyacim var.
genelde sorular hep excel, txt, ppt gibi uzantilarin acilmasi üzerine geldigi icin sanirim bulamadim sitede.

ben sadece klasör acmasini istiyorum. herhangi bir dosya degil.
simdiden cok tesekkür ederim.

 

[muhasebeciyiz]

Sub KlasorAcma()
    Dim klasorAdi As String
    Dim klasorYolu As String
    Dim hedefKlasor As String
 
    klasorAdi = ThisWorkbook.Sheets(1).Range("A1").Value
 
    klasorYolu = "C:\Users\Administrator\"
    
    hedefKlasor = klasorYolu & klasorAdi
  
    If Dir(hedefKlasor, vbDirectory) <> "" Then
        Call Shell("explorer.exe " & hedefKlasor, vbNormalFocus)
    Else
        MsgBox "Klasör bulunamadı: " & hedefKlasor, vbExclamation
    End If
End Sub

Deneyiniz

 

[addigital]

Hocam cevabiniz icin cok tesekkürler ancak hala klasörlerin tamamini gösteriyor.

klasorAdi = ThisWorkbook.Sheets(1).Range("A1").Value bu bölümü kendi excel dosyamdaki gibi degistirdim
klasorYolu = "C:\Users\Administrator\" burayada kendi dosya yolumu attim

ancak tikladigimda dosyalarin tamami geliyor.

 

[muhasebeciyiz]

Bu makro, A1 hücresine yazdığınız klasör adını " C:\Users\Administrator\" dizininde arayacak ve klasör bulunursa onu açacaktır. Eğer klasör bulunamazsa, bir uyarı mesajı gösterecektir.

Bu makro zaten dosya açmıyor. Klasör var ise klasörü açıyor.

Klasörde altında dosyalar varsada tabikide klasör içeriğini gösterecektir.


Bu kod destek ekibinden Turist hocamız tarafından yazılmıştır.
Bu kod users içine açılan tüm klasörleri göstermektedir.
Bir modüle aşağıdaki kodları yazın.
Dosyanızı kaydedip kapatın, tekrar açın, F10'a basarak sonucu izleyin.

Sub Auto_open()
Application.OnKey "{F10}", "Klasor_Ac"
End Sub
Sub Klasor_Ac()
Shell "explorer C:\Users", vbNormalFocus
End Sub
Sub Auto_Close()
Application.OnKey "{F10}"
End Sub

 

[addigital]

Yanlis yazdim hocam klasör demek istedim. Users iceriginde 500 den fazla klasör var. Aynen yazdiginiz islemi yaptirmak istiyorum

Hücre icerisine yazidigim, users klasörü icinde ayni isimde var olan klasörü actirmak

Kodu kendime gore duzenledim ancak dedigim gibi hala users icerisindeki tum klasörleri görüyorum.