Bir Klasörden Diğerine Resim Atma

[blackakin]

Arkadaşlar Merhaba,

Bunun yeri burası mı bilmiyorum ama şansımı deneyeyim. Elimde bir klasörde 34000'e yakın resim var ve bir de excel dosyam var. Benim yapmak istediğim şey ise elimdeki excel dosyasındaki kodla resim klasöründeki resme ait kodu eşleştirmek ve onu ordan alıp başka bir klasöre aktarmaktır.

Böyle bir şey yapabilir miyim? Herhalde yapamam ama belki bilgisi olan vardır.

Paylaşırsanız sevinirim....

 

[Huseyinkis]

Eşleşme kısımları için dosyayı görmek gerekir ama dosyaları taşımak için ekteki gibi bir formül işinizi görecektir.

Sub taşı()

Set evn = CreateObject("scripting.filesystemobject")

yol = "C:\Users\Huseyin\Desktop\A2\"
yol2 = "C:\Users\Huseyin\Desktop\A1\"

dosyaadı = "A2.Txt" 'taşınacak dosya adı bu excel listesi varsa dongu yapılabilir.

On Error Resume Next
evn.movefile yol & dosyaadı, yol2


End Sub

 

[blackakin]

Selam dostum ilgin için teşekkürler resim dosyasının boyutu 7.16 Gb içindeki resimlerin excel i var .jpg uzantılı ekle butonunu bulabilirsem ekleyeceğim. Yukarıdaki kodu nereye yapıştırıcam bilmiyorum da ondan sordum.

 

[tahsinanarat]

Klasörden Klasöre resim kopyalama

Sn. blackakin, Bir zamanlar kendim için yaptığım dosyayı buldum, sizin de istediğiniz anladığım kadarıyla böyle bir program. Ekli dosyayı İnceleyiniz. Kayıt ve Vba şifreleri 123 tür. Bilginiz olsun.

Not: bu dosyayı hazırlarken kullandığım kodlar bu siteden temin ettiğim kodlardır, emeği geçen arkadaşların ellerine sağlık.

 

[blackakin]

Sn. blackakin, Bir zamanlar kendim için yaptığım dosyayı buldum, sizin de istediğiniz anladığım kadarıyla böyle bir program. Ekli dosyayı İnceleyiniz. Kayıt ve Vba şifreleri 123 tür. Bilginiz olsun.

Not: bu dosyayı hazırlarken kullandığım kodlar bu siteden temin ettiğim kodlardır, emeği geçen arkadaşların ellerine sağlık.

Merhaba ilginiz için teşekkür ederim yalnız verdiğiniz dosyayı indiremiyorum. Altın Üyelik falan diyor.

 

[tahsinanarat]

Sn. blackakin; Buradan indiriniz
http://s3.dosya.tc/server27/CrTU5Z/resimleribelirtilenklas_rekopyala.xls.html

 

[ceraeen]

Sn. blackakin; Buradan indiriniz
http://s3.dosya.tc/server27/CrTU5Z/resimleribelirtilenklas_rekopyala.xls.html

baya uzun süre sonra yazıyorum ama bana bu dosya lazım yardımcı olma şansınız var mı ?

 

[tahsinanarat]

Sn. @ceraeen istediğiniz dosyayı ekte gönderiyorum

resimleri_belirtilen_klasore_kopyala.xlsm dosyasını indir - download

resimleri_belirtilen_klasore_kopyala.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc