Chạy 1 macro trên nhiều file excel cùng lúc

[hiep204]

Chào mọi người, mọi người chỉ giúp em cách chạy 1 macro trên nhiều file excel cùng lúc với ạ, e cám ơn....

 

[BuiQuangThuan]

Chào mọi người, mọi người chỉ giúp em cách chạy 1 macro trên nhiều file excel cùng lúc với ạ, e cám ơn....

Là thế nào nhỉ??? ?? ?? ??

 

[hiep204]

Là thế nào nhỉ??? ?? ?? ??

ví dụ như mình chạy 1 macro để bỏ bỏ protect sheet nhưng có nhiều file excel khác cần bỏ protect sheet như thế thì có cách nào chạy 1 lần để áp dụng được cho tất cả các file không hay phải mở từng file để chạy ạ

 

[BuiQuangThuan]

ví dụ như mình chạy 1 macro để bỏ bỏ protect sheet nhưng có nhiều file excel khác cần bỏ protect sheet như thế thì có cách nào chạy 1 lần để áp dụng được cho tất cả các file không hay phải mở từng file để chạy ạ

Thì duyệt qua từng file rồi call cái macro của bạn thôi

 

[tieutuvodanh192]

Chào mọi người, mọi người chỉ giúp em cách chạy 1 macro trên nhiều file excel cùng lúc với ạ, e cám ơn....

Ngày trước lúc mới nhập môn mình cũng từng hỏi câu hỏi giống bạn và đã được anh Hoàng Tuấn giúp, mình gửi lại mã code mình đã nhận giúp đỡ như bên dưới:

Sub Macro1()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim chonfile As Variant, i As Long, openfile
If MsgBox("Ban chon file can lay du lieu", vbYesNo) = vbYes Then
chonfile = Application.GetOpenFilename(Title:="Chon file du lieu can lay", filefilter:="exel file(*.xls*),*.xls*", MultiSelect:=True)
If Not IsArray(chonfile) Then Exit Sub
For i = 1 To UBound(chonfile)
Set openfile = Workbooks.Open(chonfile(i))



    Macro của bạn thì cho vào khúc giữa này



'ActiveWorkbook.Save
openfile.Close
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End If
End Sub

Bạn hãy chạy mã code này, sẽ có hộp thoại hiện lên, bạn có thể chọn những file excel mà bạn muốn chạy Marco của bạn.
Chúc bạn thành công.

 

[hiep204]

Ngày trước lúc mới nhập môn mình cũng từng hỏi câu hỏi giống bạn và đã được anh Hoàng Tuấn giúp, mình gửi lại mã code mình đã nhận giúp đỡ như bên dưới:

Sub Macro1()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim chonfile As Variant, i As Long, openfile
If MsgBox("Ban chon file can lay du lieu", vbYesNo) = vbYes Then
chonfile = Application.GetOpenFilename(Title:="Chon file du lieu can lay", filefilter:="exel file(*.xls*),*.xls*", MultiSelect:=True)
If Not IsArray(chonfile) Then Exit Sub
For i = 1 To UBound(chonfile)
Set openfile = Workbooks.Open(chonfile(i))



    Macro của bạn thì cho vào khúc giữa này



'ActiveWorkbook.Save
openfile.Close
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End If
End Sub

Bạn hãy chạy mã code này, sẽ có hộp thoại hiện lên, bạn có thể chọn những file excel mà bạn muốn chạy Marco của bạn.
Chúc bạn thành công.

cám ơn b nhiều nha