Merhabalar, bu konu üzerinde forumda çok fazla mesaj var hepsine baktım. Hatta işi gerçekleştiren kodu farklı bir yer de buldum fakat çok karmaşık ve düzenlenemez bir biçimde olduğu için bu konuyu açtım.
Şimdi öncelikle bir yolda yer alan dosyaları excel açıldığında listelemek istiyorum. ve bunlara tıklandığında ise ilgili dosyanın açılmasını istiyorum. Listelemeyi bulduğum bu kod ile yapabiliyorum.
Sub dosya_isimleri()
yol = CreateObject("wscript.shell").specialfolders(10) & "\sonuc"
Set nesne = CreateObject("Scripting.FileSystemObject")
Set klasor = nesne.GetFolder(yol)
Set dosyalar = klasor.Files
For Each dosya In dosyalar
c = c + 1
Cells(c, "a") = Replace(dosya.Name, "." & nesne.GetExtensionName(dosya.Name), "")
Next
End Sub
Fakat sadece isimleri geliyor. Bir kaç yerde açılan diyalog penceresi ile yol seçilen kodu gördüm bunu da istemiyorum. Çünkü her açıldığında ilgili yolu seçmek veya sehven başka yolu seçmek de istemiyorum ve gelen dosya isimlerinin köprülü bir şekilde gelmesini istiyorum. Şimdiden yol gösteren herkese teşekkür ederim.
Şimdi öncelikle bir yolda yer alan dosyaları excel açıldığında listelemek istiyorum. ve bunlara tıklandığında ise ilgili dosyanın açılmasını istiyorum. Listelemeyi bulduğum bu kod ile yapabiliyorum.
Sub dosya_isimleri()
yol = CreateObject("wscript.shell").specialfolders(10) & "\sonuc"
Set nesne = CreateObject("Scripting.FileSystemObject")
Set klasor = nesne.GetFolder(yol)
Set dosyalar = klasor.Files
For Each dosya In dosyalar
c = c + 1
Cells(c, "a") = Replace(dosya.Name, "." & nesne.GetExtensionName(dosya.Name), "")
Next
End Sub
Fakat sadece isimleri geliyor. Bir kaç yerde açılan diyalog penceresi ile yol seçilen kodu gördüm bunu da istemiyorum. Çünkü her açıldığında ilgili yolu seçmek veya sehven başka yolu seçmek de istemiyorum ve gelen dosya isimlerinin köprülü bir şekilde gelmesini istiyorum. Şimdiden yol gösteren herkese teşekkür ederim.