Dosya adlarının Excele aktarılması

[gevezeosman]

Arkadaşlar herkeze merhaba;

Forumda bir kaç kişi benzer sorular sormus fakat cevap alamamışlar;

Örneğin "f:/dosyalar " adı altında bir dosya dizinim var ve içersinde 100 lerce klasor var.

Bu klasor isimlerini Excele aktarabilmenin bir yöntemi varmı?

Yardımlarınız için teşekkurler

 

[security]

Arkadaşlar herkeze merhaba;

Forumda bir kaç kişi benzer sorular sormus fakat cevap alamamışlar;

Örneğin "f:/dosyalar " adı altında bir dosya dizinim var ve içersinde 100 lerce klasor var.

Bu klasor isimlerini Excele aktarabilmenin bir yöntemi varmı?

Yardımlarınız için teşekkurler

Merhaba Dosyanız Ekte...
F:\dosyalar Klasörü İçindeki klasör İsimlerini Excelde A Sütününa Yazdıracaktır...

 

[gevezeosman]

Teşekkürler; yine sen koştun yardıma

ama amacımı tam olarak karşılayamadı;

Dizindeki dosya isimlerim;

etiket1 - 100000
etiket2 - 250000
etiket3 - 3000000

gibi;

Bu şekilde 100 den fazla dosya ismim var, (sondaki sayılar içeride kalan miktarı gösteriyor)
elemanlar içerden etiket aldıklarında dosya ismini değiştiriyorlar.
amacım etiket sayılarını sayısal rakam olarak görebilmek ve ne zaman sipariş vereceğimi bilmek

 

[security]

Resimdeki gibi işinizi görmesi lazım... dosyanızın yanındaki sayılar değişiyor diyorsunuz ve benimde ona göre sipariş verme zamanımı bilmem gerek diyorsunuz excel üzerindeki butona bastıgınızda dosyalardaki değişiklikler otomatik olarak güncellenecektir....

 

[onurcet]

hocam ayni problem benim icinde gecerli yanliz bana gerekli olan klasor icindeki pdf dosyalarinin isimlerini listelemem gerekiyor. yardimci olursaniz sevinirim.

 

[exclusive99]

dosyalar ve içindekiler

security.xls güzel klasör isimleri atıyor, ancak klasörlerin içinde çeşitli uzantılı dosyalar var, onları atmıyor. Onları da atan bir makro olursa süper olacak. teşekkürler

 

[security]

security.xls güzel klasör isimleri atıyor, ancak klasörlerin içinde çeşitli uzantılı dosyalar var, onları atmıyor. Onları da atan bir makro olursa süper olacak. teşekkürler

Tabi Olabilir Ekli dosyayı Denermisiniz...
Not : D:\security
Klasöründeki Dosya İsimlerini A sütünuna Yazacaktır...

 

[exclusive99]

Tabi Olabilir Ekli dosyayı Denermisiniz...
Not : D:\security
Klasöründeki Dosya İsimlerini A sütünuna Yazacaktır...

uğraş için teşekkür ancak yine olmadı tam anlatamadım herhalde. D veya x sürücüsünde (x) isimli bir klasör var. Bu klasörün içinde birden fazla alt klasör ve klasörlerin içinde de yine çok sayıda klasörler ve dosyalar var.
sütuna;
klasör adı1\klasör adı2\klasör adı3\dosya adı 1 vs.
klasör adı1\klasör adı2\dosya adı5 vs. gibi.

yani alt alta ve iç içe klasörler ve onların içinde de dosyalar
hem klasörlerin isimlerini hemde dosyaların isimlerini hiyerarşik atsın istiyorum.

teşekkürler

 

[marimar]

uğraş için teşekkür ancak yine olmadı tam anlatamadım herhalde. D veya x sürücüsünde (x) isimli bir klasör var. Bu klasörün içinde birden fazla alt klasör ve klasörlerin içinde de yine çok sayıda klasörler ve dosyalar var.
sütuna;
klasör adı1\klasör adı2\klasör adı3\dosya adı 1 vs.
klasör adı1\klasör adı2\dosya adı5 vs. gibi.

yani alt alta ve iç içe klasörler ve onların içinde de dosyalar
hem klasörlerin isimlerini hemde dosyaların isimlerini hiyerarşik atsın istiyorum.

teşekkürler

arkadaşlar aynısı banada lazım yardımcı olurmusunuz

 

[Husgvarna]

arkadaşlar aynısı banada lazım yardımcı olurmusunuz

Şöyle deneyebilirsiniz.

Sub listele ()

Dim i As Integer
Set sf = CreateObject("Scripting.FileSystemObject").GetFolder("C:\").SubFolders
'Set sf = CreateObject("Scripting.FileSystemObject").GetFolder("C:\klasör\").SubFolders
For Each f1 In sf
i = i + 1
r = f1.Path
Set dc = f1.Files
On Error Resume Next
For Each dosya In dc
For a = 1 To 1
c = c + 1
Cells(c, 1) = r
Cells(c, 2) = dosya.Name
Next
Next
Next

End Sub

 

[revix]

üstat nasıl yapıldıgını anlatırmısın hazıra konmak gibi olmasın
eline saglık.

 

[halit3]

alternatif olarak aşağıdaki linkdeki dosyaya bakarmısınız.

http://www.excel.web.tr/f117/kapaly-dosyalardan-veri-alma-t68879.html

 

[kerem3474]

konuyu hortlatmış olmayalım ama;
iki veya üç dizindeki dosya isimlerini excele aktarabilecek ve hücreye tıkladığımda ilgili dosyayı açabilecek ayrıca ilgili dizine dosya eklediğimde bunu otomatik olarak görebilecek ve listeye ekleyebilecek kodlara ihityacım var.yardımcı olurmusunuz.

 

[djfancy07]

alternatif olarak aşağıdaki linkdeki dosyaya bakarmısınız.

http://www.excel.web.tr/f117/kapaly-dosyalardan-veri-alma-t68879.html

yarın bakıyım tşkler.

 

[entegreinsaat]

Dosya adı A10 Hücresinden dosya yolu B10 Hücresinden başlayarak listeyebilirmiyiz?

 

[NBATMAN]

Merhaba,

aşağıdaki linke bakınız...

http://www.excel.web.tr/f48/klaosrd...adlary-ile-excel-sheetleri-ekleme-t86000.html

 

[ofa1979]

Arkadaşlar, benim bir klasördeki dosyaların tarihini A sütununa, dosyaların isimlerini B sütununa aktaran bir makro koduna ihtiyacım var, yardımcı olabilirseniz çok mutlu olurum...