Dosya isimlerini excele aktarmak

[papatyamm]

Arkadaşlar sadece dosya isimlerinin excele aktarmak istiyorum.. Bunun için bir proğram varmı yada kodlarla nasıl halledebilirim.yardımcı olursanız sevinirim.

 

[hamitcan]

Linki inceleyin.
http://www.excel.web.tr/f48/klasor-icindeki-dosya-isimleri-alan-macro-hk-t121800.html

 

[halit3]

Arkadaşlar sadece dosya isimlerinin excele aktarmak istiyorum.. Bunun için bir proğram varmı yada kodlarla nasıl halledebilirim.yardımcı olursanız sevinirim.

Sitede benzer bir sürü kodlar var arama yapmalısınız.

kod:

Sub Dosya_Listele()
Columns("A:B").ClearContents
Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.SELF.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo Atla
If Right(Kaynak, 1) <> "\" Then Kaynak = Kaynak & "\"
Liste (Kaynak)
Set Klasor = Nothing
MsgBox "işlem tamam"
Else
Atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If
End Sub

Private Sub Liste(yol As String)
Dim fL As Object, fs As Object, f As Object, j As Long, n As Long
Set fL = CreateObject("Scripting.FileSystemObject").GetFolder(yol).subfolders
Set fs = CreateObject("Scripting.FileSystemObject").GetFolder(yol).Files
If Right(yol, 1) <> "\" Then ekle = "\"
On Error Resume Next
For Each Dosya In fs
j = WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("a1:a" & Rows.Count)) + 1
Cells(j, 1) = yol & ekle & Dosya.Name
Cells(j, 2) = Dosya.Name
Next
On Error GoTo sonraki
For Each f In fL
Liste (f.Path)
sonraki:
Next
Set fL = Nothing
End Sub

 

[cyildiz]

Merhaba,
bende aynı işlemi yapmak istiyorum (jpg. dosya isimlerinin excele aktarmak). Bu kodları nerede kullanacağımızı yazmamışsınız.
Onu detaylı yazabilir misiniz?

 

[chömRU]

Bunu yapmak için ; önce Komut yöneticisni açalım
> RUN(win+R) kombinasyonu ile çalıştır kısmına CMD yazın.

Komut istemini açtıktan sonra dosya isimlerinin bulunduğu klasörün içine girmek için
> CD yazıp listesini almak istediğiniz klasörün yolunu yazın :

Örneğim klasörünüz masa üstündeki "WALPAPERS" isimli bir dosya olsun.

CD C:\Users\KullanıcıAdı\Desktop\Wallpapers
gibi yazıp enterlayın , böylelikle klasörün içine girmiş olursunuz.

Ardından
> dir /b /o:n > wallpapers.xls

yazın ve enterlayın.
Walpapers adlı dosyanızın içerisinde bir excel dosyası oluşturulmuş olacak. Bu excel 'in içerisinde de o klasördeki bütün file 'ların isimleri listelenmiş olacak.

NOT1: yukarıda yazdığım gibi harflerin arasında boşluk olmasına dikkat edin.
NOT2: bu yöntemi internette buldum, kendim kullandım başarılı oldu. Alıntı yaptığımı bildirmek isterim.

 

[Orion1]

Excel dosyanızı jpg resimlerinizin olduğu klasöre koyun.
A sütununa dosya adlarını listeler.
Dosya ektedir.
Dosya aşağıdaki linktedir.

DOSYAYI İNDİR

Sub jpgdosyaismiaktar59()
Dim dosya As String, yol As String, sat As Long
Range("A:A").ClearContents
yol = ThisWorkbook.Path
dosya = Dir(yol & "\*.jpg")
Do While dosya <> ""
    sat = sat + 1
    Cells(sat, "A").Value = Left(dosya, Len(dosya) - 4)
    dosya = Dir
Loop
MsgBox "Dosya adları çıkarıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[olcaytoilker]

Bunu yapmak için ; önce Komut yöneticisni açalım
> RUN(win+R) kombinasyonu ile çalıştır kısmına CMD yazın.

Komut istemini açtıktan sonra dosya isimlerinin bulunduğu klasörün içine girmek için
> CD yazıp listesini almak istediğiniz klasörün yolunu yazın :

Örneğim klasörünüz masa üstündeki "WALPAPERS" isimli bir dosya olsun.

CD C:\Users\KullanıcıAdı\Desktop\Wallpapers
gibi yazıp enterlayın , böylelikle klasörün içine girmiş olursunuz.

Ardından
> dir /b /o:n > wallpapers.xls

yazın ve enterlayın.
Walpapers adlı dosyanızın içerisinde bir excel dosyası oluşturulmuş olacak. Bu excel 'in içerisinde de o klasördeki bütün file 'ların isimleri listelenmiş olacak.

NOT1: yukarıda yazdığım gibi harflerin arasında boşluk olmasına dikkat edin.
NOT2: bu yöntemi internette buldum, kendim kullandım başarılı oldu. Alıntı yaptığımı bildirmek isterim.

Mükemmel bir çözüm oldu, yüreğine sağlık.

 

[Ishak1]

Bunu yapmak için ; önce Komut yöneticisni açalım
> RUN(win+R) kombinasyonu ile çalıştır kısmına CMD yazın.

Komut istemini açtıktan sonra dosya isimlerinin bulunduğu klasörün içine girmek için
> CD yazıp listesini almak istediğiniz klasörün yolunu yazın :

Örneğim klasörünüz masa üstündeki "WALPAPERS" isimli bir dosya olsun.

CD C:\Users\KullanıcıAdı\Desktop\Wallpapers
gibi yazıp enterlayın , böylelikle klasörün içine girmiş olursunuz.

Ardından
> dir /b /o:n > wallpapers.xls

yazın ve enterlayın.
Walpapers adlı dosyanızın içerisinde bir excel dosyası oluşturulmuş olacak. Bu excel 'in içerisinde de o klasördeki bütün file 'ların isimleri listelenmiş olacak.

NOT1: yukarıda yazdığım gibi harflerin arasında boşluk olmasına dikkat edin.
NOT2: bu yöntemi internette buldum, kendim kullandım başarılı oldu. Alıntı yaptığımı bildirmek isterim.

Yöntemi denedim gerçekten başarılı oldu yüreğinize sağlık. Fakat benim söyle bi problemim var ben dosyaları tarih sıralamasına göre atmak istiyorum bunun bi yöntemi var mıdır ??

 

[burakinti]

Merhaba,
Dosyada tanımlı olan diğer bilgileri nasıl alabiliriz. Mesela resim dosyalarında resmin boyutlarını (genişlik-yükseklik) alabilirmiyiz.