[Yardım]  Klasördeki Pdf Dosya İsimlerini Değiştirme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Klasördeki Pdf Dosya İsimlerini Değiştirme

İleti#1)  ANGEL 2 » 26 Mar 2020 19:59

Merhabalar

C surucusunde PD adında klasör mevcut bu klasörün içinde pdf ler mevcut pdf lerın isimleri 546-547-548....devam ediyor makronun çalışacağı excel calısma kitabında ıse a sutunu c surucusu altındaki PD klasörünün içindeki pdf ısımleri alt alta 546-547-548....yazılı c sütununda ise 547-Ahmet 548-Mehmet-549-Velı makronun bu C surucusundekı PD klasörundekı pdf dosya ısımlerini exeldekı C sutunundakı ısımler ile değiştirecek makroya ihtiyacım bulunmaktadır Teşekkür

excel Çalışma Kıtabı ;

A sutunu B sutunu C sutunu
546 Ahmet 546-Ahmet
547 Mehmet 547-Mehmet
548 Veli 548-Veli
.....
Kullanıcı avatarı
ANGEL 2
Site Dostu
 
Adı Soyadı:OKAN GÖK
Kayıt: 17 Şub 2010 17:59
Konum: ANTALYA
Meslek: MUHASEBE
Yaş: 42
İleti: 879
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA

Cevap: Klasördeki Pdf Dosya İsimlerini Değiştirme

İleti#2)  Ali ÖZ » 26 Mar 2020 21:37

Deneyin.

Kod: Tümünü seç
Sub isim_degistir()
On Error Resume Next
For Each dosya In CreateObject("scripting.filesystemobject").getfolder("C:\PD\").Files
  For i = 1 To Range("C65536").End(3).Row
    If Split(Range("c" & i).Value, "-")(0) & ".pdf" = dosya.Name Then
      yol = Replace(dosya.Path, dosya.Name, "")
      Name yol & dosya.Name As yol & "\" & Range("c" & i).Value & ".pdf"
    End If
  Next
Next
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 10093
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google Adsense [Bot], Sogou ve 3 misafir

Bumerang - Yazarkafe