Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: Dosya Adlandırmak  (Okunma sayısı 6864 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı sicilyali

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: yasin dinç
  • İl / İlçe: Güngören/İstanbul
  • İşletim Sisteminiz: Windows XP
  • Mesleğiniz: Banka çalışanı
  • Office Versiyonunuz: Office 2007
Dosya Adlandırmak
« : 18 Haziran 2011, 00:07:47 »
Arkadaşlar, bu sitede ve birçok yerde aradım fakat bulamadım; konunun yeri umarım doğrudur. Benim sorunum; bir klasör içindeki dosya isimlerinin (.tiff dosyaları) exceldeki 2 sütun halinde eşleştirilmiş listedeki isimlerle değiştirilmesi konusunda yardımlarınızı rica ediyorum. Örneğin klasördeki 100a.tiff dosyasının isminin excel listemdeki karşılığı 102122.tiff olup, benim istediğim excel sütunundaki 102122.tiff ismi gerçekte olan dosya ismimle yerdeğiştirmesi.
Birçok toplu dosya adlandırma programına baktım ne yazıkki hiç biri dışardan import dosyası alıp isim değiştirmiyor.
Önerebileceğiniz bir program var mıdır? lütfen yardımcı olun ismi düzenlenecek 20.000'e yakın veri var elimde. İlginize şimdiden teşekkürler.
Saygılarımla.

Çevrimdışı Arslanbey

  • Excelce Onbaşı
  • **
  • İleti: 23
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Süleyman Arslan
  • İl / İlçe: Yozgat-Sorgun
  • Mesleğiniz: Sağlık
Ynt: Dosya Adlandırmak
« Yanıtla #1 : 18 Haziran 2011, 16:45:26 »
Örnek ekleyiniz lütfen .

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: Dosya Adlandırmak
« Yanıtla #2 : 19 Haziran 2011, 12:30:23 »
A sütunu: Klasör yolu
B sütunu: Mevcut isim
C sütunu: Yeni isim
şeklinde yazıp, aşağıdaki kod ile dener misiniz?

Kod: [Seç]
Sub ExcelceDosyaAdlandir()
Rem Excelce.Net
On Error GoTo hata
For excelce = 2 To Range("A1:A65530").End(3).Row
    MecvutAd = Range("A" & excelce) & Application.PathSeparator & Range("B" & excelce)
    YeniAd Range("A" & excelce) & Application.PathSeparator & Range("C" & excelce)
    MecvutAd As YeniAd
Next excelce
MsgBox "İşlem Tamam."
Exit Sub
hata:
MsgBox Err.Description, vbCritical, "Hata oluştu:" & Err.Number
End Sub
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)