Cara mendapatkan nama buku kerja menggunakan vba (dengan contoh)

Anda bisa menggunakan metode berikut di VBA untuk mendapatkan nama buku kerja Excel:

Metode 1: Dapatkan nama buku kerja yang aktif

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

Fungsi ini akan mengembalikan nama buku kerja yang aktif seperti my_vba_workbook.xlsm .

Metode 2: Dapatkan nama buku kerja aktif tanpa ekstensi

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

Fungsi ini akan mengembalikan nama buku kerja yang aktif tanpa ekstensi seperti my_vba_workbook .

Contoh berikut memperlihatkan cara menggunakan setiap metode dalam praktik dengan buku kerja Excel yang sedang aktif bernama my_vba_workbook.xlsm .

Contoh 1: Dapatkan nama buku kerja yang aktif

Kita dapat membuat fungsi berikut untuk mendapatkan nama buku kerja yang aktif:

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

Kita kemudian bisa mengetikkan rumus berikut di sel A1 untuk mendapatkan nama buku kerja yang aktif:

 =GetWorkbookName()

Tangkapan layar berikut menunjukkan cara menggunakan rumus ini dalam praktik:

Kita dapat melihat bahwa rumusnya mengembalikan my_vba_workbook.xlsm , yang merupakan nama buku kerja aktif yang sedang kita gunakan.

Catatan : Ekstensi .xlsm mewakili buku kerja Excel yang mendukung makro.

Contoh 2: Dapatkan nama buku kerja aktif tanpa ekstensi

Kita dapat membuat fungsi berikut untuk mendapatkan nama buku kerja yang aktif tanpa ekstensi:

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

Kita kemudian bisa mengetikkan rumus berikut di sel A1 untuk mendapatkan nama buku kerja yang aktif:

 =GetWorkbookName()

Tangkapan layar berikut menunjukkan cara menggunakan rumus ini dalam praktik:

Kita dapat melihat bahwa rumusnya mengembalikan my_vba_workbook , yang merupakan nama buku kerja yang sedang aktif tanpa ekstensi .xlsm .

Catatan : Dengan menggunakan fungsi Left dan Instr , kita bisa mengekstrak semua karakter dari nama buku kerja di sebelah kiri titik.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Cara Membuat Folder Menggunakan VBA
Cara menghapus folder menggunakan VBA
Cara mengganti nama file menggunakan VBA
Cara memeriksa apakah file ada menggunakan VBA