Klasör içindeki pdf dosya isimlerinin alınması

[udentr2002]

Merhaba arkadaşlar konu başlığı pek açıklayıcı olmadı ama

Benim Sertifikalar adı altında bir dosyam var bu dosyanın içinde yüzlerce PDF uzantılı dosylarım var. Yapmaya çalıştığım excelde makro yardımı ile br butona tıkladığımda H stünuna 2. satırdan itibaren o sertifikalar dosyası içinde bulunan pdf uzantılı dosyaların adını alıp H stünuna "C:\Sertifikalar\1.pdf" şeklinde yazacak

Örnek verecek olursam Sertifikalar dosyasının içinde 1, 2, A, AB adında bir üsürü dosyam var hepside PDF uzantılı. Ben excelde bir butona tıkladığımda H stünunun 2. satırından itibaren o dosyaların adını alıp

C:\Sertifikalar\1.pdf
C:\Sertifikalar\2.pdf
C:\Sertifikalar\A.pdf
C:\Sertifikalar\AB.pdf

şeklinde yazacak. Sertifikalar dosyası içinde ne kadar dosya bulunuyorsa hepsini aynı şekilde yazacak bir kod olabilrmi.

Yardımcı olacak arkadaşlarıma şimdiden teşekkür ederim

 

[Orion1]

Dosyanız eketdir.

Sub pdf_adlari()
Dim fso As Object, fs As Object
Dim sat As Long
Sheets("Sayfa1").Select
sat = 2
Application.ScreenUpdating = False
Range("A2:A65536").ClearContents
Set fso = CreateObject("Scripting.FileSystemobject")
For Each fs In fso.getfolder("C:\Sertifikalar").Files
    If Right(fs.Name, 4) = ".pdf" Then
        Cells(sat, "A").Value = fs.Name
        sat = sat + 1
    End If
Next
Application.ScreenUpdating = True
MsgBox "Dosya adları alındı." & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[udentr2002]

hocam emeğinize ve bilginize sağlık tamam olmuş ama bir eksiklikle,

isimleri alırken ben
C:\Sertifikalar\1.pdf
C:\Sertifikalar\2.pdf
C:\Sertifikalar\A.pdf
C:\Sertifikalar\AB.pdf
şeklinde alması lazım demiştim yani dosya yolu ile birlikte bunun için ne yapabiliriz

 

[Orion1]

hocam emeğinize ve bilginize sağlık tamam olmuş ama bir eksiklikle,

isimleri alırken ben
C:\Sertifikalar\1.pdf
C:\Sertifikalar\2.pdf
C:\Sertifikalar\A.pdf
C:\Sertifikalar\AB.pdf
şeklinde alması lazım demiştim yani dosya yolu ile birlikte bunun için ne yapabiliriz

Pardon onu atlamışım.
Dosyanız ektedir.

Sub pdf_adlari()
Dim fso As Object, fs As Object
Dim sat As Long
Sheets("Sayfa1").Select
sat = 2
Application.ScreenUpdating = False
Range("A2:A65536").ClearContents
Set fso = CreateObject("Scripting.FileSystemobject")
For Each fs In fso.getfolder("C:\Sertifikalar").Files
    If Right(fs.Name, 4) = ".pdf" Then
        Cells(sat, "A").Value = fs
        sat = sat + 1
    End If
Next
Application.ScreenUpdating = True
MsgBox "Dosya adları alındı." & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[udentr2002]

Hocam emeğinize ve bilginize sağlık tam dediğim gibi olmuş teşekkürler

 

[Orion1]

Hocam emeğinize ve bilginize sağlık tam dediğim gibi olmuş teşekkürler

Rica ederim.
İyi çalışmalar.