Name

Söz dizimi​

Name eskiYol As yeniYol

• eskiYol: Var olan dosyanın ya da klasörün tam yolu veya yalnızca adı; zorunludur. Yalnızca ad verilirse geçerli klasör kullanılır. Klasör yolu da verilebilir.
• yeniYol: Dosyanın alacağı yeni ad ve konum; zorunludur. Bu adla bir dosya veya klasör zaten varsa işlem hata verir.

Taşıma, yeniden adlandırma ve sınırlar​

• Yeniden adlandırma: İki yol aynı klasörde ise yalnızca ad değişir.
• Taşıma: Yeni yol başka bir klasörde ise dosya oraya taşınır. Hedef klasör önceden var olmalıdır; Name klasör oluşturmaz. Gerekirse önce MkDir deyimini kullanın.
• Sürücü sınırı: Dosya başka bir sürücüye taşınamaz. Bu durumda FileCopy ile kopyalayıp ardından Kill ile silmeniz gerekir.
• Joker karakter: Yollarda * ve ? kullanılamaz. Birden çok dosya için döngü kurup her dosyaya ayrı ayrı Name uygulayın.
• Açık dosya: Açık olan bir dosya üzerinde Name kullanmak hata verir; önce dosyayı kapatın.

Sık görülen hata kodları​

• 53: Dosya bulunamadı (eskiYol yok).
• 58: Yeni ad zaten var.
• 55: Dosya açık.
• 75: Yol veya dosya erişim hatası (ör. sürücüler arası taşıma ya da yazma izni yok).
• 76: Yol bulunamadı (hedef klasör yok).

Name özelliğiyle karıştırmayın​

1. Dosyaları listeden yeniden adlandırma​

Option Explicit

Sub DosyalariYenidenAdlandir()
    Dim ws As Worksheet
    Dim r As Long
    Dim eskiAd As String, yeniAd As String

    Set ws = ActiveSheet
    For r = 2 To 4
        eskiAd = ws.Cells(r, 1).Value
        yeniAd = ws.Cells(r, 2).Value

        If Dir(eskiAd) = "" Then
            ws.Cells(r, 3).Value = "Kaynak dosya yok"
        ElseIf Dir(yeniAd) <> "" Then
            ws.Cells(r, 3).Value = "Yeni ad zaten var"
        Else
            ' Dosya aynı klasörde yeni adını alır
            Name eskiAd As yeniAd
            ws.Cells(r, 3).Value = "Yeniden adlandırıldı"
        End If
    Next r
End Sub

2. Dosyayı arşiv klasörüne taşıma ve hata denetimi​

Option Explicit

Sub DosyalariArsiveTasi()
    Dim ws As Worksheet
    Dim r As Long
    Dim kaynak As String, hedef As String

    Set ws = ActiveSheet
    For r = 2 To 4
        kaynak = ws.Cells(r, 2).Value & "\" & ws.Cells(r, 1).Value
        hedef = ws.Cells(r, 3).Value & "\" & ws.Cells(r, 1).Value

        Err.Clear
        On Error Resume Next
        Name kaynak As hedef
        Select Case Err.Number
            Case 0
                ws.Cells(r, 4).Value = "Taşındı"
            Case 53
                ws.Cells(r, 4).Value = "Dosya bulunamadı"
            Case 55
                ws.Cells(r, 4).Value = "Dosya açık, önce kapatın"
            Case 58
                ws.Cells(r, 4).Value = "Hedefte aynı ad var"
            Case 75, 76
                ws.Cells(r, 4).Value = "Yol hatası veya erişim yok"
            Case Else
                ws.Cells(r, 4).Value = "Hata: " & Err.Number
        End Select
        On Error GoTo 0
    Next r
End Sub

3. Name için yeni dosya adlarını hazırlama​

Option Explicit

Sub YeniAdlariOlustur()
    Dim ws As Worksheet
    Dim son As Long, r As Long, noktaKonum As Long
    Dim eskiAd As String, govde As String, uzanti As String
    Dim tarih As Date

    Set ws = ActiveSheet
    son = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    For r = 2 To son
        eskiAd = ws.Cells(r, 1).Value
        tarih = ws.Cells(r, 2).Value

        ' Uzantıyı son noktadan itibaren ayır
        noktaKonum = InStrRev(eskiAd, ".")
        If noktaKonum > 0 Then
            govde = Left(eskiAd, noktaKonum - 1)
            uzanti = Mid(eskiAd, noktaKonum)
        Else
            govde = eskiAd
            uzanti = ""
        End If

        ' Name deyiminde yeniYol olarak kullanılabilecek ad
        ws.Cells(r, 3).Value = govde & "_" & Year(tarih) & "-" & _
            Right("0" & Month(tarih), 2) & uzanti
    Next r
End Sub

Kullanırken dikkat edin​

• Geri alınamaz: Name işlemi geri alınamaz ve Excel'in Geri Al düğmesiyle döndürülemez. Toplu işlemden önce küçük bir deneme klasöründe çalışın ve gerekirse yedek alın.
• Önce var olup olmadığını denetleyin: Dir işleviyle kaynağın var, yeni adın boş olduğunu önceden denetleyin. Yine de On Error kullanın; çünkü dosya açık olabilir veya erişim izniniz bulunmayabilir.
• Açık çalışma kitabını yeniden adlandıramazsınız: Excel'de açık olan bir kitabın dosyası Name ile yeniden adlandırılamaz. Kitabı farklı adla saklamak için SaveAs yöntemini kullanın; eski dosya yerinde kalır.
• Sürücüler arası taşıma: Name başka bir sürücüye taşıma yapmaz. Bu durumda önce FileCopy ile kopyalayın, kopya başarılıysa Kill ile kaynağı silin.
• Toplu işlemde joker karakter yok: *.xlsx gibi desenlerle çoklu işlem yapılamaz. Dir ile klasördeki dosyaları döngüyle dolaşıp her biri için ayrı Name çalıştırın. Döngüde Dir çağrısı ile Name işleminin birbirini etkilememesi için dosya adlarını önce bir diziye ya da sayfaya yazmanız önerilir.
• Klasör adları da değişir: Name klasörleri de yeniden adlandırır. Klasör yolunun sonuna ters bölü eklemeyin ve içindeki dosyaların açık olmadığından emin olun.
• İlgili konular:
  • Kill: Dosya silme deyimi.
  • FileCopy: Dosya kopyalama deyimi.
  • Dir: Dosya ve klasör varlığını denetleme işlevi.
  • MkDir ve RmDir: Klasör oluşturma ve silme deyimleri.
  • SaveAs: Çalışma kitabını yeni adla kaydetme yöntemi.
  • Worksheet.Name: Sayfa adı özelliği.
  • Range.Name ve Names.Add: Aralık adı tanımlama; Formüller > Tanımlı Adlar > Ad Yöneticisi (Formulas > Defined Names > Name Manager).
  • On Error ve Err nesnesi: Hata yakalama.
  • FileSystemObject: Dosya işlemleri için alternatif nesne modeli.