Excel'deki Bilginin Ait Olduğu Klasörün İsmini Çağırmak

[Havenless]

Merhabalar,

Farklı kategorilerde yüzlerce ürün resmim var. Bu resimleri ve resim adlarını excel dosyama aldım ancak resimlerin ait olduğu klasör adlarını da aynı excel dosyasına almak istiyorum. Aşağıdaki 1. Linkte ürün resimlerimin ve adlarının toplandığı, ürünler isimli excel dosyasını görebilirsiniz. Aynı şekilde 2. Linkte ise bu resimleri excele aldığım klasörlerin ekran görüntüsünü görebilirsiniz. Şimdi tam olarak istediğim, ürünler isimli excel dosyasında, resim adının yanındaki kolona bu resmin hangi klasörden geldiğini görmek. Yardımcı olursanız çok sevinirim.

Şimdiden çok teşekkürler

https://www.dosya.tc/server31/yzt2no/Urunler.xlsx.html

https://www.dosya.tc/server31/0n0aag/Klasor_Ekran_Goruntusu.JPG.html

 

[Havenless]

Yardımcı olabilecek kimse yok mu dostlar?

 

[muygun]

Merhaba;
Resimlerin nerde olduğunu kim nerden bilecek?
Bunun yerine farklı bir uygulama yaptım.
Deneyin.
İyi çalışmalar.

Link:
https://www.dosyaupload.com/kb63

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu Sayfanın kod kısmına kopyalayıp çalıştırın.

AnaKlasor = "c:\Ürün Yönetimi\Yurtdışı Satış\BoyNgirl\Ürün Resimleri" ' Bu klasör yolunun doğruluğunu kontrol edin.

Sub Test()
    Dim Bak As Long
    Dim DosyaAdi As String
    Dim DosyaTamAdi As String
    Dim Klasor As Object
    Dim Klasorler As Object
    Dim AnaKlasor As String
    AnaKlasor = "c:\Ürün Yönetimi\Yurtdışı Satış\BoyNgirl\Ürün Resimleri" ' Bu klasör yolunun doğruluğunu kontrol edin.
    Set Klasorler = CreateObject("Scripting.FileSystemObject").GetFolder(AnaKlasor).subfolders
    
    For Bak = 2 To Cells(Rows.Count, "B").End(xlUp).Row
        DosyaAdi = Cells(Bak, "B")
        For Each Klasor In Klasorler
            DosyaTamAdi = Klasor.Path & "\" & DosyaAdi & ".jpg"
            If Not Dir(DosyaTamAdi) = "" Then
                Cells(Bak, "C") = Klasor.Path
                Cells(Bak, "D") = DosyaTamAdi
                Exit For
            End If
        Next
    Next
End Sub

 

[Havenless]

Merhaba;
Resimlerin nerde olduğunu kim nerden bilecek?
Bunun yerine farklı bir uygulama yaptım.
Deneyin.
İyi çalışmalar.

Link:
https://www.dosyaupload.com/kb63

Resimlerin içinde olduğu klasörün yolu belli. Uygulamanız için teşekkür ederim.