Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: sicilyali - 18 Haziran 2011, 00:07:47

Başlık: Dosya Adlandırmak
Gönderen: sicilyali - 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.

Başlık: Ynt: Dosya Adlandırmak
Gönderen: Arslanbey - 18 Haziran 2011, 16:45:26

Örnek ekleyiniz lütfen .

Başlık: Ynt: Dosya Adlandırmak
Gönderen: Bülent Öztürk - 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