Belirtilen dosya yolundaki excel dosyalarının isimlerini alma

[S.Yiğit]

Merhabalar,

Belirtilen dosyada bulunan excel dosyalarının isimlerini bir excel sayfasında sıralamam lazım. Forumda örnekler var ama hep dosya ismini almakta bana excel dosyalarının isimlerini alan makro lazım. Dosya yolunu aşağıda belirttim. Yardımcı olabilir misiniz?

\\Poldc\polz\SAHA HIZMETLERI\2011\PB BİTEN SERVİSLER

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub EXCEL_DOSYA_İSİMLERİNİ_LİSTELE()
    Dim DOSYA_YOLU As String, DOSYA_ADI As String, Satır As Long
 
    DOSYA_YOLU = "\\Poldc\polz\SAHA HIZMETLERI\2011\PB BİTEN SERVİSLER[COLOR=red]\[/COLOR]" 
 
    DOSYA_ADI = Dir(DOSYA_YOLU)
 
    Do While DOSYA_ADI <> ""
        If InStr(1, DOSYA_ADI, ".xls") Then
            Satır = Satır + 1
            Cells(Satır, 1) = DOSYA_ADI
        End If
 
        DOSYA_ADI = Dir
    Loop
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[S.Yiğit]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub EXCEL_DOSYA_İSİMLERİNİ_LİSTELE()
    Dim DOSYA_YOLU As String, DOSYA_ADI As String, Satır As Long
 
    DOSYA_YOLU = "\\Poldc\polz\SAHA HIZMETLERI\2011\PB BİTEN SERVİSLER" 
 
    DOSYA_ADI = Dir(DOSYA_YOLU)
 
    Do While DOSYA_ADI <> ""
        If InStr(1, DOSYA_ADI, ".xls[COLOR="Red"][B]m[/B][/COLOR]") Then
            Satır = Satır + 1
            Cells(Satır, 1) = DOSYA_ADI
        End If
 
        DOSYA_ADI = Dir
    Loop
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Hocam Merhaba,

Kodu çalıştırdığımda işleminiz tamamlanmıştır diyor ama excel sayfa isimleri gelmiyor. 2007 kullandığım için kırmızıya boyadığım yeri xlsm yaptım ama yine olmadı. Örnek dosyam ve almak istediğim excel sayfa isimleri resmi ektedir.
Yardımınız için teşekkürler.

 

[hasan.doru]

merhaba
DOSYA_YOLU = "\\Poldc\polz\SAHA HIZMETLERI\2011\PB BİTEN SERVİSLER\"
şeklinde denermisiniz.saygılar

 

[S.Yiğit]

Hasan bey merhaba,

İşlem tamamdır, Teşekkür ederim.

 

[hasan.doru]

Rica ederim.Kolay gelsin.Saygılar.

 

[S.Yiğit]

Merhabalar,

Aşağıdaki kod ile belirtilen klasör yolundaki excel dosyalarının isimlerini alıyorum. Şimdi başka bir çalışma için belirtilen klasör yolundaki resimlerin isimlerini almam lazım. Kodda kırmızıya boyadığım yeri jpg yapıp denediğimde sonuç aldım ama klasördeki resimlerin tamamının ismini almadı. jpg olan yeri JPG yaptığımda almadığı isimleri aldığını gördüm. her iki şekilde de alması için kodu nasıl değiştirmeliyim?

Option Explicit
 
Sub EXCEL_DOSYA_İSİMLERİNİ_LİSTELE()
    Dim DOSYA_YOLU As String, DOSYA_ADI As String, Satır As Long
 
    DOSYA_YOLU = "\\Poldc\polz\SAHA HIZMETLERI\2011\PB BİTEN SERVİSLER\" 
 
    DOSYA_ADI = Dir(DOSYA_YOLU)
 
    Do While DOSYA_ADI <> ""
        If InStr(1, DOSYA_ADI, ".[COLOR="Red"][SIZE="4"]xls[/SIZE][/COLOR]") Then
            Satır = Satır + 1
            Cells(Satır, 1) = DOSYA_ADI
        End If
 
        DOSYA_ADI = Dir
    Loop
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub EXCEL_DOSYA_İSİMLERİNİ_LİSTELE()
 
    Dim DOSYA_YOLU As String, DOSYA_ADI As String, Satır As Long
 
    DOSYA_YOLU = "[URL="file://\\Poldc\polz\SAHA"]\\Poldc\polz\SAHA[/URL] HIZMETLERI\2011\PB BİTEN SERVİSLER\"
 
    DOSYA_ADI = UCase(Replace(Replace(Dir(DOSYA_YOLU), "i", "İ"), "ı", "I"))
    
    Range("A1:A" & Rows.Count).ClearContents
 
    Do While DOSYA_ADI <> ""
 
        If InStr(1, DOSYA_ADI, ".JPG", vbTextCompare) > 0 Or _
           InStr(1, DOSYA_ADI, ".BMP", vbTextCompare) > 0 Or _
           InStr(1, DOSYA_ADI, ".GIF", vbTextCompare) > 0 Or _
           InStr(1, DOSYA_ADI, ".PNG", vbTextCompare) > 0 Or _
           InStr(1, DOSYA_ADI, ".JPEG", vbTextCompare) > 0 Then
 
            Satır = Satır + 1
            Cells(Satır, 1) = DOSYA_ADI
 
        End If
 
        DOSYA_ADI = Dir
    Loop
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
 
End Sub

 

[S.Yiğit]

Hocam merhaba,

Kod gayet güzel çalışıyor teşekkür ederim.