Dosya İsimlerini worde kopyalanabilir mi?

jeriko

Özel Üye

Özel üye

• 25 Nsn 2009

• #1

Klasör içindeki Dosya isimlerini word sayfasına veya başka herhangibir üzerinde değişiklik yapabilieceğim sayfaya (excel,metin belgesi vs.) kopyalabilirmiyim.

 

YoRuMSuZ

Biz işimize bakalım...

• 25 Nsn 2009

• #2

Hocam bu konu benim de işime yarayacak. Araştıralım bu konuyu.

 

jeriko

Özel Üye

Özel üye

• 25 Nsn 2009

• #3

Valla çok iyi olur.Ben print screen ile kopyalıyorum ama üzerinde değişiklik yapamıyorum.Yada resim olduğu için sayfa içinde arama yapamıyorum.

 

YoRuMSuZ

Biz işimize bakalım...

• 25 Nsn 2009

• #4

Hocam şöyle bir makro buldum excel için.

Kod:

Option Explicit
Sub DosyaIsimleri()
Dim i As Integer
With Application.FileSearch
.NewSearch
.LookIn = "c:\"
.Filename = "*.jpg"
.SearchSubFolders = True
.MatchTextExactly = True
.Execute
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Cells(i, 1) = .FoundFiles(i)
Next i
End If
End With
End Sub

Şimdi denedim çalışıyor. Ancak berlili dosyaların adlarını alabiliyorsunuz. Örneğin bir klasör içindeki *.jpg, *.doc, *.xml, *. xls ....

Makroyu ihtiyacınız doğrultusunda düzenleyebilirsiniz ancak daha kolay bir yöntem de bulunabilir.

 

jeriko

Özel Üye

Özel üye

• 25 Nsn 2009

• #5

Ben bu kodlardan hiç anlamıyorum.Eğer daha kolay bir yöntem varsa onu deneyim .Eğer yoksa bununla yapmaya çalışacağım.

 

YoRuMSuZ

Biz işimize bakalım...

• 25 Nsn 2009

• #6

Aslında çok kolaydır hocam. Excel'i açın. Araçlar menüsünden makrolara gelip yeni makro penceresini açıp kodları açılan penceredeki herşeyi silip ekleyin.

Örneğin C dizininde herhangi bir klasördeki word dokümanlarını arayacaksınız. bu durumda koddaki iki satırı alttaki gibi değiştirin ;

Kod:

.LookIn = "c:\dokumanlarim\"
.Filename = "*.doc"

Sonrada aynı penceredeki Run tuşuna basın excel belgenize tüm *.doc uzantılı dosyalarınız eklenecektir.

 

jeriko

Özel Üye

Özel üye

• 25 Nsn 2009

• #7

Hocam teşekkür ederim kolay görnüyor ama benim dosya uzantıları daha çok cbr pdf ve rar .Bunlarıda aynı şekilde yapabilirmiyim acaba.

 

YoRuMSuZ

Biz işimize bakalım...

• 25 Nsn 2009

• #8

Hocam bu işi daha kolay halledebileceğiniz 2 adet program ekledim download bölümüne. bu programlarla dosya isimlerini daha kolay alabilir, değişiklik yapabilirsiniz.

https://www.cerezforum.com/konu/coklu-dosya-ismi-degistirme-programlari-2-adet.28079/

 

jeriko

Özel Üye

Özel üye

• 25 Nsn 2009

• #9

Bu yöntemle başaramadım.Yeni makroyu açtım fakat bu kadar uzun kodu yazmak için yer yoktu.Yada ben yanlış yere yazmaya çalıştım.Araçlar-->makro--->Yeni makro kaydet...
Makro kaydet çıktı.Makro adını yazdım.Açıklama kısmındakileri sildim.Verdiğin kodları açıklama kısmına yapıştırmaya çalıştım yapışmadı.Yani beceremedim.