Hướng Dẫn Tự Động Mở Hai File Excel Cùng Lúc Bằng Macro

Chia sẻ bởi:eventseller9112

★★★★★

‹ SUMPRODUCT lỗi khi vùng cộng có chữ... Cách Xử Lý Virus NEGS.xls và Macro... ›

Quảng cáo

Cách Mở Đồng Thời Hai File Excel A và B Bằng Macro

Chào các bạn! Tôi có hai file Excel, A và B. Khi mở file A, file B cũng sẽ được mở theo và ngược lại, khi mở file B thì file A cũng sẽ được mở. Dưới đây là cách thực hiện:

1. Copy đoạn code sau vào ThisWorkbook của file B. Trong file A, cũng copy đoạn code này nhưng đổi tên file thành B.xls.

Private Sub Workbook_Open()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name = "A.xls" Then End
Next
Workbooks.Open ThisWorkbook.Path & "" & "A.xls"
End Sub

Đối với file A, sử dụng đoạn code sau và đổi tên file thành B.xls.

Private Sub Workbook_Open()
Workbooks.Open ThisWorkbook.Path & "" & "B.xls"
End Sub

Lưu ý:
• Đặt file A và B trong cùng một thư mục.
• Nếu bạn sử dụng Office 2007 trở lên, phần mở rộng của file sẽ là .xlsm vì cả hai file đều chứa macro.

Vấn đề có thể gặp:
• Khi mở file A, file A sẽ tìm và mở file B. Khi file B mở, nó sẽ tìm và mở file A, dẫn đến vòng lặp vô tận. Để tránh điều này, bạn cần kiểm tra xem file đã mở có phải là file mong muốn hay không.

Private Sub Workbook_Open()
    Const TenFileCanMo = "B.xls" ''(1*) thay the cho hop ly dang o File A thi cai nay la ten file B, va nguoc lai

Dim wkB As Workbook
    Dim PathFileCanMo As String

PathFileCanMo = ThisWorkbook.Path ''(2*)neu cung dg dan file nay thi de nguyen, trai lai thi nhap vao vd: ="d:tamvidu"

On Error Resume Next
    Set wkB = Workbooks(TenFileCanMo)
    If wkB Is Nothing Then
        Set wkB = Workbooks.Open(PathFileCanMo & "" & TenFileCanMo)
        If wkB Is Nothing Then MsgBox "khong ton tai file " & PathFileCanMo & "" & TenFileCanMo
    Else
        On Error GoTo 0
        ''code xu ly truong hop kiem tra file da mo trung ten nhung o duong dan khac
        If wkB.Path <> PathFileCanMo Then
            ''thong bao nhu duoi day hoac la thay code xu ly phu hop - vd nhu dong file rui mo chinh xac file can
            MsgBox TenFileCanMo & " da mo, nhung o duong dan khac, ban phai tu kiem tra, dong, va mo file chinh xac"
        End If
    End If
End Sub

Người sử dụng cần chú ý các comments và chú ý thay 2 dòng ghi chú ở (1*) và (2*) hợp lý