dosya içindeki excel dosyalarının isimlerini excele almak.

[hurkanpisirici]

Merhaba

Sub Klasor_altklasor_listesi()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\deneme\")
Set colSubfolders = objFolder.SubFolders
For Each objSubfolder In colSubfolders
k = k + 1
Cells(k, "A") = objSubfolder.Name
Next
End Sub

bu kod ile klasör içindeki klasör isimlerini excel dosyasına listeletebiliyorum,

benim istediğim klasör içindeki excel dosyalarının isimlerini listeletmek bu mümkünmü acaba?

 

[halit3]

böyle birşeymi arıyorsunuz

Sub Klasor_altklasor_listesi()
dosyalar = "C:\deneme\"
For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder(dosyalar).Files
k = k + 1
Cells(k, "A") = Dosya.Name
Next
End Sub

 

[hurkanpisirici]

Merhaba ilginize teşekkür ederim

For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFold er(dosyalar).Files


bu satır hata veriyor

 

[janveljan]

Konuyu inceleyin.
http://www.excel.web.tr/f48/klasordeki-dosya-ve-sayfa-listesini-olusturma-t63927.html

 

[hurkanpisirici]

Sayın janveljan ilginize teşekkür ederim.
Kodları inceledim ama kendi klasör yolumu nereye yazacağımı bulamadım mesela benim klasörüm c nin içinde deneme klasöründe.

 

[hurkanpisirici]

benim istediğim listemde belirttiğim yolda yani c nin içinde ki deneme klasörünün içindeki kitapların isimleri kısacası.Bu kodlar o işe yarıyor ama ben kendime uyarlayamadım.

 

[Ayhan Ercan]

Merhaba ilginize teşekkür ederim

For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFold er(dosyalar).Files


bu satır hata veriyor

Merhaba

For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder(dosyalar).Files

yukarıda bold olarak belirlenen yerde bitişik yazılmasına dikkat edin. GetFold er değil GetFolder olarak yazıp deneyiniz..

 

[janveljan]

Set Yol = CreateObject("Shell.Application").BrowseForFolder _
(0, "Lütfen bir klasor seçin !", 1)
If Not TypeName(Yol) = "Nothing" Then Set YolItem = Yol.self
MyPath = YolItem.Path

yerine

MyPath = "C:\deneme"

yazıp deneyin.

 

[hurkanpisirici]

Sayın halit3,Ayhan Ercan ve janveljan hocalarım çok teşekkür ederim bu kodlar çok işime yarayacak.Saygılar.

 

[hurkanpisirici]

Sub Klasor_altklasor_listesi()
dosyalar = "C:\deneme\"
For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFold er(dosyalar).Files
k = k + 1
Cells(k, "A") = Dosya.Name
Next
End Sub



Bu koda link yani köprü kurma kodu ekleyebilirmiyiz acaba?

 

[hurkanpisirici]

Sayın janveljan hocam sizin hyperlink kodunuzu kendime uyarlayamadım.

Sub Klasor_altklasor_listesi()
dosyalar = "C:\deneme\"
For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFold er(dosyalar).Files
k = k + 1
Cells(k, "A") = Dosya.Name
Next
End Sub


bu koda nasıl uyarlayabiliriz.

 

[halit3]

bunu denermisiniz
Sub Klasor_altklasor_listesi()
dosyalar = "C:\deneme\"
For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder(dosyalar).Files
k = k + 1
'Cells(k, "A") = Dosya.Name
Cells(k, "A").Hyperlinks.Add Anchor:=Cells(k, 1), Address:=dosyalar & Dosya.Name, TextToDisplay:=dosyalar & Dosya.Name
Next
End Sub

 

[hurkanpisirici]

sayın halit3 hocam link oluşuyor ama güvenlik uyarısı çıkıyor evet diyip geçsem bile dosya açılmıyor diyor.

 

[halit3]

ekli dosyaya bakınız ben denedim açılıyor

 

[hurkanpisirici]

çok teşekkür ederim hocam ellerinize sağlık.Masa üstümdekiklasörün yolunu yazdım onda uyarı verdi ama c nin içine koyunca dediğiniz gibi dosyalar açılıyor teşekkür ederim tekrardan.