Trong bài viết này, chúng ta sẽ tìm hiểu về phương pháp đóng và mở trong Excel VBA được sử dụng để mở sổ làm việc đóng và cũng đóng sổ làm việc đang mở.

Chúng tôi tạo nút lệnh trong trang tính Excel và gán macro.

Làm thế nào để mở sổ làm việc Excel thông qua VBA?

Làm theo các bước dưới đây và viết mã: – * Chèn 2 nút lệnh.

  • Nút lệnh đầu tiên chúng ta sử dụng để nhấp chuột phải vào nút lệnh.

  • Trang VBE sẽ được mở và sao chép đoạn mã dưới đây và dán vào trang VBE.

  • Để mở sổ làm việc gán macro được đề cập bên dưới.

Sub sOpenWorkbook ()

‘định nghĩa biến cho tên tệp Dim csFileName As String’ lấy tên tệp từ ô A1 trên Sheet1 csFileName = ThisWorkbook.Sheets (“Ví dụ Mở và Đóng”). Range (“A1”)

‘open the workbook Workbooks.Mở csFileName MsgBox csFileName & “opens”

End Sub * Nút lệnh thứ hai chúng ta sử dụng để kích chuột phải vào nút lệnh.

  • Trang VBE sẽ được mở và sao chép đoạn mã dưới đây và dán vào trang VBE.

  • Để mở sổ làm việc gán macro được đề cập bên dưới.

Sub sCloseWorkbook ()

‘định nghĩa biến cho tên tệp Dim csFileName As String’ lấy tên tệp từ ô A1 trên Sheet1 csFileName = ThisWorkbook.Sheets (“Ví dụ Mở và Đóng”). Range (“A1”)

‘close the workbookWorkbooks (Split (csFileName, “\”) (UBound (Split (csFileName, “\”)))). CloseMsgBox Split (csFileName, “\”) (UBound (Tách (csFileName, “\”))) & “đóng cửa”

End Sub Cả hai macro sẽ gán cho các nút lệnh, chúng ta phải sử dụng mã macro bên dưới.

Option Explicit Sub sExample () Const csFileName As String = _ “C: \ Test \ Master.xlsx” Workbooks.Open csFileNameWorkbooks (Split (csFileName, “\”) (UBound (Split (csFileName, “\”)))). Close End Sub Sub sOpenWorkbook ()

‘định nghĩa biến cho tên tệp Dim csFileName As String’ lấy tên tệp từ ô A1 trên Sheet1 csFileName = ThisWorkbook.Sheets (“Ví dụ Mở và Đóng”). Phạm vi (“A1”) ‘mở sổ làm việc Workbooks. Mở csFileNameMsgBox csFileName & “đã mở “

End Sub Sub sCloseWorkbook ()

‘định nghĩa biến cho tên tệp Dim csFileName As String’ lấy tên tệp từ ô A1 trên Sheet1 csFileName = ThisWorkbook.Sheets (“Ví dụ Mở và Đóng”). Range (“A1”)

‘close the workbookWorkbooks (Split (csFileName, “\”) (UBound (Split (csFileName, “\”)))). CloseMsgBox Split (csFileName, “\”) (UBound (Split (csFileName, “\”))) & “đóng cửa”

End Sub Lưu ý: – Bạn phải đề cập đến đường dẫn theo tệp của bạn.

image 4