Vba kullanarak çalışma kitabı adı nasıl alınır (örneklerle)

Bir Excel çalışma kitabının adını almak için VBA’da aşağıdaki yöntemleri kullanabilirsiniz:

Yöntem 1: Etkin çalışma kitabı adını alın

 Function GetWorkbookName() As String
GetWorkbookName = ActiveWorkbook.Name
End Function

Bu işlev, my_vba_workbook.xlsm gibi etkin çalışma kitabının adını döndürecektir.

Yöntem 2: Uzantı olmadan etkin çalışma kitabı adını alın

 Function GetWorkbookName() As String
GetWorkbookName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, " . ") - 1)
End Function

Bu işlev, etkin çalışma kitabının adını my_vba_workbook gibi bir uzantı olmadan döndürür.

Aşağıdaki örnekler, my_vba_workbook.xlsm adı verilen şu anda etkin olan bir Excel çalışma kitabıyla her yöntemin pratikte nasıl kullanılacağını gösterir.

Örnek 1: Etkin çalışma kitabının adını alın

Etkin çalışma kitabının adını almak için aşağıdaki işlevi oluşturabiliriz:

 Function GetWorkbookName() As String
GetWorkbookName = ActiveWorkbook.Name
End Function

Daha sonra etkin çalışma kitabının adını almak için A1 hücresine aşağıdaki formülü yazabiliriz:

 =GetWorkbookName()

Aşağıdaki ekran görüntüsü bu formülün pratikte nasıl kullanılacağını göstermektedir:

Formülün, kullanmakta olduğumuz aktif çalışma kitabının adı olan my_vba_workbook.xlsm değerini döndürdüğünü görebiliriz.

Not : .xlsm uzantısı, makro özellikli bir Excel çalışma kitabını temsil eder.

Örnek 2: Uzantı olmadan etkin çalışma kitabı adını alma

Etkin çalışma kitabının adını uzantı olmadan almak için aşağıdaki işlevi oluşturabiliriz:

 Function GetWorkbookName() As String
GetWorkbookName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, " . ") - 1)
End Function

Daha sonra etkin çalışma kitabının adını almak için A1 hücresine aşağıdaki formülü yazabiliriz:

 =GetWorkbookName()

Aşağıdaki ekran görüntüsü bu formülün pratikte nasıl kullanılacağını göstermektedir:

Formülün, şu anda aktif olan çalışma kitabının .xlsm uzantısı olmadan adı olan my_vba_workbook’u döndürdüğünü görebiliriz.

Not : Left ve Instr işlevlerini kullanarak, çalışma kitabı adından noktanın solundaki tüm karakterleri çıkartabiliriz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA Kullanarak Klasörler Nasıl Oluşturulur
VBA kullanarak klasörler nasıl silinir
VBA kullanarak bir dosyayı yeniden adlandırma
VBA kullanılarak dosyanın var olup olmadığı nasıl kontrol edilir