Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 05-04-2013, 10:40   #1
nokmen
 
Giriş: 25/01/2013
Şehir: İstanbul
Mesaj: 170
Excel Vers. ve Dili:
2010 Home Business Türkçe
Varsayılan 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.
__________________
Gülün ömrü bir gündür, o zaman koparma kalsın !
nokmen Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-04-2013, 11:11   #2
asi_kral
Özel Üye
 
asi_kral kullanıcısının avatarı
 
Giriş: 22/02/2012
Şehir: İstanbul /
Mesaj: 2,761
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Merhaba
Boş bir module kopyalayın ve deneyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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.
__________________
Dosyalarınızı UPLOAD sitelerine yükleyip link ile ekleyebilirsiniz.
asi_kral Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-04-2013, 14:16   #3
nokmen
 
Giriş: 25/01/2013
Şehir: İstanbul
Mesaj: 170
Excel Vers. ve Dili:
2010 Home Business Türkçe
Varsayılan

Alıntı:
asi_kral tarafından gönderildi Mesajı Görüntüle
Merhaba
Boş bir module kopyalayın ve deneyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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.
__________________
Gülün ömrü bir gündür, o zaman koparma kalsın !

Bu mesaj en son " 05-04-2013 " tarihinde saat 14:39 itibariyle nokmen tarafından düzenlenmiştir....
nokmen Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-04-2013, 14:43   #4
asi_kral
Özel Üye
 
asi_kral kullanıcısının avatarı
 
Giriş: 22/02/2012
Şehir: İstanbul /
Mesaj: 2,761
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Alıntı:
nokmen tarafından gönderildi Mesajı Görüntüle
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.
__________________
Dosyalarınızı UPLOAD sitelerine yükleyip link ile ekleyebilirsiniz.
asi_kral Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-11-2017, 08:36   #5
Ali Faruk
 
Ali Faruk kullanıcısının avatarı
 
Giriş: 15/10/2009
Şehir: Kırklareli
Mesaj: 79
Excel Vers. ve Dili:
İş : Türkçe Excel 2010
Varsayılan

Benimde çok ihtiyacım olan bir durumdu. Yardımınız için teşekkürler
__________________
[CENTER][B][COLOR="Red"][SIZE="4"]AĞZINDA BAL TAŞIYAN ARININ BİLE
ARKASINDA İĞNESİ OLDUĞUNU UNUTMA[/SIZE][/COLOR][/B][/CENTER]
Ali Faruk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-11-2017, 09:57   #6
ridvanucok
Altın Üye
 
ridvanucok kullanıcısının avatarı
 
Giriş: 10/03/2013
Şehir: ERZURUM
Mesaj: 117
Excel Vers. ve Dili:
2016 - İngilizce
Varsayılan

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
__________________
www.ridvanucok.com
ridvanucok Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-11-2017, 12:07   #7
Ali Faruk
 
Ali Faruk kullanıcısının avatarı
 
Giriş: 15/10/2009
Şehir: Kırklareli
Mesaj: 79
Excel Vers. ve Dili:
İş : Türkçe Excel 2010
Varsayılan

Alıntı:
ridvanucok tarafından gönderildi Mesajı Görüntüle
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?
__________________
[CENTER][B][COLOR="Red"][SIZE="4"]AĞZINDA BAL TAŞIYAN ARININ BİLE
ARKASINDA İĞNESİ OLDUĞUNU UNUTMA[/SIZE][/COLOR][/B][/CENTER]
Ali Faruk Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 08:46


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden