Forum :: Başlık Görünümü

Forum » GENEL » Soru - Cevap » Dosya isimlerini listeleme
Üye Olmak İstiyorum Parolamı Unuttum Aktivasyon Linki Gönder Yardım Arama
[Yardım] Dosya isimlerini listeleme
Burada Olan Üyeler: 1 ziyaretçi
Mesaj Tarihi: 19.09.2017 14:16 #1
Dosya isimlerini listeleme

veysi0047 Mesaj Sayısı: 14
Katılım Tarihi: 05.08.2017
Teşekkür Sayısı: 1

Üye

Selamlar;
Klasör icindeki excel dosyalarının isimlerini tek dosyaya nasıl ekleyebilirim. Yardımcı olurmusunuz

Düzenleyen: OrkmesB Düzenleme Tarihi: 07.07.2018 23:35
Bu mesaja teşekkür eden olmadı. | Teşekkür eden üyeler: Yok
IP: 0.0.0.0
Mesaj Tarihi: 19.09.2017 15:45 #2
Cevap: Dosya isimlerini listeleme

OrkmesB Mesaj Sayısı: 49
Katılım Tarihi: 06.12.2016
Teşekkür Sayısı: 5
Bu üye 12 mesajına 12 teşekkür aldı.

Süper Yönetici

https://www.excel...osya_no=51 linkinde örnek dosyamız vardır.
Bu mesaja 1 üye teşekkür etti. | Teşekkür eden üyeler: tugkan
IP: 0.0.0.0
Reklam
Mesaj Tarihi: 18.06.2018 22:17 #3
Cevap: Dosya isimlerini listeleme

tugkan Mesaj Sayısı: 1
Katılım Tarihi: 21.12.2017
Teşekkür Sayısı: 1
Bu üye 1 mesajına 1 teşekkür aldı.

Yeni Gelen

Alıntı [Tümünü Seç]
veysi0047 tarafından yazılan metin:

Selamlar;
Klasör icindeki excel dosyalarının isimlerini tek dosyaya nasıl ekleyebilirim. Yardımcı olurmusunuz


Merhaba,
Aşağıdaki kodu deneyin


Alıntı [Tümünü Seç]

Sub GetFileList()
'updateby Extendoffice 20150909
Dim xFSO As Object
Dim xFolder As Object
Dim xFile As Object
Dim xFiDialog As FileDialog
Dim xPath As String
Dim i As Integer
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xPath = xFiDialog.SelectedItems(1)
End If
Set xFiDialog = Nothing
If xPath = "" Then Exit Sub
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFSO.GetFolder(xPath)
ActiveSheet.Cells(1, 1) = "Folder name"
ActiveSheet.Cells(1, 2) = "File name"
ActiveSheet.Cells(1, 3) = "File extension"
i = 1
For Each xFile In xFolder.Files
i = i + 1
ActiveSheet.Cells(i, 1) = xPath
ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
Next
End Sub
Bu mesaja 1 üye teşekkür etti. | Teşekkür eden üyeler: OrkmesB
IP: 0.0.0.0
Reklam
Dosya isimlerini listeleme konusuna oy veriniz.
5 üzerinden 5 | Oran: 100% | Toplam: 1 kişi
Güncel Oy:
Lütfen oyunuzu seçiniz: Başlığa oy verebilmek için üye olmanız ya da üye girişi yapmanız gerekmektedir.
Atlanılacak Forum:
« Önceki Başlık

Benzer Başlıklar

Başlık / Açan Forum Cevap Adedi
Görüntülenme
En Son Mesaj
Yeni Mesaj Yok Dosya Ekli Başlık [Yardım] Listboxta listeleme yapmak...

Bu başlık Cuma Burda tarafından 11.08.2017 14:34 tarihinde açıldı.
Soru - Cevap Cevaplar: 3
Görüntüleme: 2013
Gönderen OrkmesB
11.08.2017 17:05 Son forum mesajına git