Vba: periksa apakah buku kerja terbuka (dengan contoh)

Anda dapat menggunakan sintaks berikut di VBA untuk memeriksa apakah buku kerja tertentu sedang terbuka.

 SubCheckWorkbookOpen ()

Dim resultCheck As Boolean
Dim wb As Workbook
Dim specific_wb As String
    
On Error Resume Next
specific_wb = InputBox("Check if this workbook is open:")
    
Set wb = Application.Workbooks.Item(specific_wb)
resultCheck = Not wb Is Nothing

If resultCheck Then
    MsgBox “Workbook is open”
Else
MsgBox “Workbook is not open”
End If
    
End Sub

Saat makro ini dijalankan, kotak input akan muncul di mana pengguna bisa mengetikkan nama buku kerja Excel dan makro akan menghasilkan kotak pesan dengan salah satu hasil berikut:

• “Filenya terbuka”
• “File tidak terbuka”

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Cara memeriksa apakah workbook terbuka menggunakan VBA

Katakanlah saat ini kita memiliki dua buku kerja yang terbuka dengan nama berikut:

• buku kerja_saya1.xlsx
• buku kerja_saya2.xlsx

Katakanlah kita ingin memeriksa apakah buku kerja bernama my_workbook1.xlsx sedang terbuka.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubCheckWorkbookOpen ()

Dim resultCheck As Boolean
Dim wb As Workbook
Dim specific_wb As String
    
On Error Resume Next
specific_wb = InputBox("Check if this workbook is open:")
    
Set wb = Application.Workbooks.Item(specific_wb)
resultCheck = Not wb Is Nothing

If resultCheck Then
    MsgBox “Workbook is open”
Else
MsgBox “Workbook is not open”
End If
    
End Sub

Setelah kita menjalankan makro ini, sebuah kotak akan muncul di mana saya dapat mengetikkan my_workbook1.xlsx ke dalam kotak input:

Setelah saya klik OK , makro akan menghasilkan kotak pesan berikut:

Makro menampilkan “Buku kerja terbuka” dengan benar untuk menunjukkan bahwa buku kerja dengan nama tersebut sedang terbuka.

Sekarang misalkan saya mengetikkan nama buku kerja yang saat ini tidak terbuka:

Setelah saya klik OK , makro akan menghasilkan kotak pesan berikut:

Makro dengan benar menampilkan “Buku kerja tidak terbuka” untuk menunjukkan bahwa buku kerja dengan nama tersebut saat ini tidak terbuka.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menghitung jumlah lembar dalam buku kerja
VBA: cara menyisipkan banyak kolom
VBA: cara menyisipkan banyak baris