Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Diğer Excel Soruları (http://www.excel.web.tr/forumdisplay.php?f=50)
-   -   Klasördeki dosya isimlerini listelemek (http://www.excel.web.tr/showthread.php?t=127788)

nokmen 05-04-2013 10:40

Klasördeki dosya isimlerini listelemek
 
Merhabalar,

Excel'in çok içinde olmayan ama excelde kullanmak için ihtiyacım olan bir konuda sorum olacaktı.

İçinde 131 adet dosya olan bir klasör var ve ben bu dosya isimlerini excelde listelemek istiyorum.

Dosya isimlerini tek tek kopyala-yapıştır yapmak çok uzun bir iş olacak. Bunun daha kısa bir yolunu bilen var mı acaba?

Yardımcı olacak arkadaşa şimdiden teşekkür ediyorum.

asi_kral 05-04-2013 11:11

Merhaba
Boş bir module kopyalayın ve deneyin.
Kod:

Option Explicit
Sub dosyalar()
Dim STR As Long, YL As String, DSY As String
STR = 1
YL = "F:\zzzz\"
DSY = Dir(YL, vbNormal)
Do While DSY <> ""
With WorksheetFunction
If (GetAttr(YL & DSY) And vbNormal) = vbNormal Then
Cells(STR, "A") = Replace(DSY, Right(DSY, Len(DSY) - _
.Find("*", .Substitute(DSY, ".", "*", Len(DSY) - Len( _
.Substitute(DSY, ".", "")))) + 1), "")
STR = STR + 1
End If: End With
DSY = Dir
Loop
End Sub

Kırmızı bölüme yol bilgisi yazmayı unutmayın.

nokmen 05-04-2013 14:16

Alıntı:

asi_kral tarafından gönderildi (Mesaj 694444)
Merhaba
Boş bir module kopyalayın ve deneyin.
Kod:

Option Explicit
Sub dosyalar()
Dim STR As Long, YL As String, DSY As String
STR = 1
YL = "F:\zzzz\"
DSY = Dir(YL, vbNormal)
Do While DSY <> ""
With WorksheetFunction
If (GetAttr(YL & DSY) And vbNormal) = vbNormal Then
Cells(STR, "A") = Replace(DSY, Right(DSY, Len(DSY) - _
.Find("*", .Substitute(DSY, ".", "*", Len(DSY) - Len( _
.Substitute(DSY, ".", "")))) + 1), "")
STR = STR + 1
End If: End With
DSY = Dir
Loop
End Sub

Kırmızı bölüme yol bilgisi yazmayı unutmayın.

Beni büyük bir yükten kurtardınız. Kuru bir teşekkür bence yetersiz kalıyor (Keşke sitede puanlama gibi birşey olsa) ama yapacak da birşey yok, çok teşekkür ederiz :).

OKUYANA NOT : Üstteki makro, (makro içine yazılan) bir klasör içindeki dosya isimlerini A sütununa listeler.

asi_kral 05-04-2013 14:43

Alıntı:

nokmen tarafından gönderildi (Mesaj 694495)
Beni büyük bir yükten kurtardınız. Kuru bir teşekkür bence yetersiz kalıyor (Keşke sitede puanlama gibi birşey olsa) ama yapacak da birşey yok, çok teşekkür ederiz :).

OKUYANA NOT : Üstteki makro, (makro içine yazılan) bir klasör içindeki dosya isimlerini A sütununa listeler.

Kolay Gelsin.

Ali Faruk 06-11-2017 08:36

Benimde çok ihtiyacım olan bir durumdu. Yardımınız için teşekkürler

ridvanucok 06-11-2017 09:57

Merhaba,

Aşağıdaki sorgu daha kısadır. Masaüstünde bir klasör oluşturarak, oluşturulan klasör adını kırmızı ile belirttiğim alanla değiştirerek kullanabilirsiniz.

Alıntı:

Sub Dosya_İsimleri()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Users\A48780\Desktop\RIDVAN")
Set dc = f.Files
For Each Dosya In dc
c = c + 1
Cells(c, 1) = Dosya.Name
Next
End Sub

Ali Faruk 06-11-2017 12:07

Alıntı:

ridvanucok tarafından gönderildi (Mesaj 916384)
Merhaba,

Aşağıdaki sorgu daha kısadır. Masaüstünde bir klasör oluşturarak, oluşturulan klasör adını kırmızı ile belirttiğim alanla değiştirerek kullanabilirsiniz.

Çok teşekkür ederim. Bir şey merak ettim hem klasör hem dosya isimlerini listeleme olabiliyor mu?


Saat 14:13

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.