• 02-07-2024, 19:26:15
    #1
    Bir klasörüm var ve içerisinde 100 video var. Hepsini toplu olarak nasıl satır satır excel dosyasına eklerim?
  • 02-07-2024, 19:27:47
    #2
    Klasörün içindeki video isimlerini excel'e mi yazdırmak istiyorsun doğru mu anladım?
  • 02-07-2024, 19:29:05
    #3
    CoderMaN adlı üyeden alıntı: mesajı görüntüle
    Klasörün içindeki video isimlerini excel'e mi yazdırmak istiyorsun doğru mu anladım?
    Evet doğru
  • 02-07-2024, 19:33:45
    #4
    En kestirme yol:

    Klasörün resmini çek (PNG)

    https://2ocr.com/online-ocr-turkish/ convert et.
  • 02-07-2024, 19:35:16
    #5
    esquare adlı üyeden alıntı: mesajı görüntüle
    En kestirme yol:

    Klasörün resmini çek (PNG)

    https://2ocr.com/online-ocr-turkish/ convert et.
    Teşekkürler
  • 02-07-2024, 20:02:01
    #6
    Bu cevap, konu sahibi tarafından kabul edilebilir bir cevap olarak işaretlendi.
    backlinkmatik.com
    aşağıdaki modülü ekleyerek yapabilirsiniz

    "C:KlasorYoluBuraya" ' bu alana gerçekklasör yolunuzu girin, içindeki tüm dosyaların adını A sütununa listeleyecek.

    Sub ListeleDosyaIsimleri()
        Dim folderPath As String
        Dim fileName As String
        Dim wb As Workbook
        Dim ws As Worksheet
        Dim i As Integer
        
        ' Klasör yolunu belirleyin
        folderPath = "C:\Klasor\Yolu\Buraya\" ' Buraya klasör yolunu yazın
        If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"
        
        Set wb = ThisWorkbook
        Set ws = wb.Sheets(1) ' Listelemenin yapılacağı sayfa
        
        ' A sütununu temizle
        ws.Columns("A").ClearContents
        
        ' Dosya isimlerini almak için
        fileName = Dir(folderPath & "*.*")
        i = 1
        
        Do While fileName <> ""
            ' Dosya adını uzantısı olmadan al
            ws.Cells(i, 1).Value = Left(fileName, InStrRev(fileName, ".") - 1)
            fileName = Dir
            i = i + 1
        Loop
        
        MsgBox "Dosya isimleri başarıyla listeledi!"
    End Sub