Thoát khỏi file hiện hành và mỡ file khác (1 người xem)

[Thaiduc]

Nhờ Anh, Chị giúp mình Code và xem, chỉnh giúp Code mình làm đúng, sai:
- Đã mỡ file BANG A.Xls, để nhập dữ liệu sang file BANG B.Xls (đã làm xong).
- Mỡ File BNAG B.Xls để xem (đã làm xong).
- Tại File BANG B.Xls chọm "Trở về File BANG A.Xls", sau khi chọn thì file BANG B.Xls được lưu và thoát ra (Phần này nhờ giúp đở).
Có kèm theo 02 File (BANG A.Xls và BANG B.Xls). Rất cám ơn sự giúp đở của Anh, Chị.

 

[Hai Lúa Miền Tây]

Nhờ Anh, Chị giúp mình Code và xem, chỉnh giúp Code mình làm đúng, sai:
- Đã mỡ file BANG A.Xls, để nhập dữ liệu sang file BANG B.Xls (đã làm xong).
- Mỡ File BNAG B.Xls để xem (đã làm xong).
- Tại File BANG B.Xls chọm "Trở về File BANG A.Xls", sau khi chọn thì file BANG B.Xls được lưu và thoát ra (Phần này nhờ giúp đở).
Có kèm theo 02 File (BANG A.Xls và BANG B.Xls). Rất cám ơn sự giúp đở của Anh, Chị.

Thử như sau:

Sub Button1_Click()
' TRO VE BANG A
    Workbooks.Open ThisWorkbook.Path & "\Bang A.xls"
    ThisWorkbook.Close (True)
End Sub

 

[hungpecc1]

Nhờ Anh, Chị giúp mình Code và xem, chỉnh giúp Code mình làm đúng, sai:
- Đã mỡ file BANG A.Xls, để nhập dữ liệu sang file BANG B.Xls (đã làm xong).
- Mỡ File BNAG B.Xls để xem (đã làm xong).
- Tại File BANG B.Xls chọm "Trở về File BANG A.Xls", sau khi chọn thì file BANG B.Xls được lưu và thoát ra (Phần này nhờ giúp đở).
Có kèm theo 02 File (BANG A.Xls và BANG B.Xls). Rất cám ơn sự giúp đở của Anh, Chị.

Mình chưa xem file đính kèm, nhưng qua cách bạn miêu tả --> mình nghĩ bạn có thể dùng code sau :[GPECODE=vb]
Sub Button1_Click()
Dim path As String
path = ThisWorkbook.path & "\BANG A.xls"
ThisWorkbook.Save
Application.Workbooks.Open path
Workbooks("BANG B").Close
End Sub[/GPECODE]