Vba Sub mở file

[Vo Duy Minh]

Chào các bạn
Rất mong nhận được góp ý của các bạn với vấn đề sau.
Tôi dùng sub

Sub Openfiles()
Dim wb As Workbook
Set wb = Workbooks.Open("D:\2019.xlsx")
Set wb = Workbooks.Open("D:\2020.xlsx")
wb.Close SaveChanges:=False
End Sub

Để khi kích hoạt Sub thì hai file có tên trong sub cùng mở (và đóng lại ngay) để kích hoạt đường link cho hàm trong file chủ
Tuy nhiên, sub cho mở 2 files nhưng chỉ đóng lại có 1 file, còn một file vẫn mở.

Để cả hai 2 file có thể mở và đóng lại thì hiện nay tôi phải làm 2 sub (và gọi cả 2 sub cùng lúc với một button kích hoạt)
Cách này thì có vẻ không hay. Hơn nữa, theo dữ liệu thì sẽ còn mở thêm nhiều file nữa thì rõ ràng là không hay vì cứ mỗi file phải có một sub.
Rất mong nhận được sự giúp đỡ của các bạn để có thể gom cả 2 sub vào một như cách trên mà cả hai file đều đóng lại ngay sau khi mở ra.

Xin chân thành cám ơn các bạn trước.

 

[Maika8008]

Phải đặt 2 tên riêng cho 2 file chứ bạn. Wb1 cho 2019 và Wb2 cho 2020.

 

[befaint]

Sub Openfiles()
Dim wb As Workbook
'mở file thứ một '
Set wb = Workbooks.Open("D:\2019.xlsx")
'tắt file thứ một '
wb.Close SaveChanges:=False
'mở file thứ hai '
Set wb = Workbooks.Open("D:\2020.xlsx")
'tắt file thứ hai '
wb.Close SaveChanges:=False
End Sub

 

[BuiQuangThuan]

Sub Openfiles()
Dim wb As Workbook
Set wb = Workbooks.Open("D:\2019.xlsx")
Set wb = Workbooks.Open("D:\2020.xlsx")
wb.Close SaveChanges:=False
End Sub

Cái này phải khai báo 2 workbook khác nhau chứ. Đóng thì cũng phải đóng 2 workbook vừa khai báo.

Sub Openfiles()
Dim wb As Workbook, wb1 As Workbook
    Set wb = Workbooks.Open("D:\2019.xlsx")
    Set wb1 = Workbooks.Open("D:\2020.xlsx")
    wb.Close False: wb1.Close False
End Sub

 

[Vo Duy Minh]

Rất cám ơn các bạn đã giúp đỡ
Tất cả đều giải quyết vấn đề rất hoàn hảo.
Hơn nữa cũng giúp tôi nhận thức thêm việc đặt tên wb1 và thêm nữa để mở rộng cho việc mở các file khác.
Một lần nữa, rất cám ơn bạn Maika8008, bạn "befaint", bạn "buiquangthuan", bạn "phuocam"

Rất mong các bạn và tất cả các bạn khác trong diễn đàn giaiphapexcel khoẻ mạnh và an toàn trong đại dịch hiện nay.