Sub OpenMyWB() 'Thiet lap bien Dim DuongDan As String TenFile As String DuongDan

Sub OpenMyWB()

'Thiet lap bien

Dim DuongDan As String, TenFile As String

DuongDan = Range("L4").Value 'Ðuong dan toi thu muc chia file

TenFile = Range("M4").Value 'Tên file, gom co tên và duôi

'Cú pháp mo File

Workbooks.Open Filename:=DuongDan & "\" & TenFile

End Sub

Sub CloseMyWB()

Dim DuongDan As String, TenFile As String

DuongDan = Range("B1").Value 'Ðu?ng d?n t?i thu m?c ch?a file

TenFile = Range("B2").Value 'Tên file, g?m c? tên và duôi

'Cú pháp dong File

Workbooks("Bgia_Dong thap-10-06-2021.xls").Close SaveChanges:=False

End Sub

Thầy cho tôi hỏi: Thiết lập đóng mở nhiều file mà khai từng ô cột hơi mất thời gian, nên có công thức tổng quát cho việc gọi này ko?

1 câu trả lời

238 lượt xem

vỗ tay

Nguyễn Việt Sơn 17:08 - Aug 11, 2021

Chào bạn bạn viết ra function nhé.

vỗ tay