Toplu dosya adlarını kopyalama

[fiko7474]

merhaba arkadaşlar

bir klasörde 1000 adet jpg uzantılı dosyam var, ben bu klasördeki dosya adlarını toplu olarak excel e kopyalamak istiyorum bu konuda yardımcı olabilirmisiniz

 

[Muzaffer Ali]

Merhaba.

Öncelikle yukarıdaki menülerden
Tools / Referances seçin, açılan listeden
Microsoft Scripting Runtime bulun yanındaki onay kutusunu işaretleyin. Tamam ı tıklatın

Sub ResimAdlari()
    Dim Dizin As String
    Dim Obj As New FileSystemObject
    Dim Dosya As Scripting.File
    Dim Klasor As Scripting.Folder
    Dim Sira As Long
    Dizin = "c:\KlasorAdi" 'Buraya resimlerinizin bulunduğu klasör adresini yazınız.
    Set Klasor = Obj.GetFolder(Dizin)
    For Each Dosya In Klasor.Files
      If InStr(Dosya.Name, ".jpg") > 0 Or InStr(Dosya.Name, ".jpeg") > 0 Then
        Sira = Sira + 1
        Range("A" & Sira).Value = Dosya.Name
      End If
    Next
End Sub

 

[fiko7474]

çok teşekkür ederim

 

[hb3102]

Merhaba benim de bir sorum olacaktı izninizle
Forumda başlık açtım ama ilgilenen olmadı.
Tek pdf sayfasında 50 adet pdf sayfası var.
Her sayfa farklı bir müşteriye ait.
Örneğin 50 adet müşterinin Şubat-2018 Bs formunu tek dosya pdf yaptım.
Benim sorum bu birleşik pfd dosyasını internette pdf ayrıştırıcı kullanarak ayrı ayrı sayfalara ayırıyorum ama her sayfaya
page-1
page-2
page-3
...vb
dosya adı veriyor benim istediğim sayfada yer alan firmanın ünvanını sayfa adı yapması.
Saygılar

 

[hb3102]

Pdf sayfasına adlandırma

Merhaba benim de bir sorum olacaktı izninizle
Forumda başlık açtım ama ilgilenen olmadı.
Tek pdf dosyasında 50 adet pdf sayfası var.
Her sayfa farklı bir müşteriye ait.
Örneğin 50 adet müşterinin Şubat-2018 Bs formunu tek dosya pdf yaptım.
Benim sorum bu birleşik pfd dosyasını internette pdf ayrıştırıcı kullanarak ayrı ayrı sayfalara ayırıyorum ama her sayfaya
page-1
page-2
page-3
...vb
dosya adı veriyor benim istediğim sayfada yer alan firmanın ünvanını sayfa adı yapması.
Örneğin örnek dosya ÖRNEK TEKSTİL LTD.ŞTİ.'ye ait bu ÖRNEK TEKSTİL LTD.ŞTİ. ismini pdf sayfasının adı olarak kaydetmesini istiyorum.
Saygılar

 

[metince54]

Peki excellde bir hücreye direk ismi yazsakta makro oradan alabilir mi daha kullanışlı olabilir diye düşünüyorum