Chạy Macro ở các file khác nhau

[hongphuong1997]

Nhờ thầy cô và các anh chị viết giúp code như trong file đính kèm
Em xin cảm ơn.

 

[giaiphap]

Nhờ thầy cô và các anh chị viết giúp code như trong file đính kèm
Em xin cảm ơn.

Thế tại sao không viết code cho file VD luôn để nó chạy mắc cái gì phải mở mấy cái file kia rồi đóng lại chi mất công vậy?

 

[hongphuong1997]

Thế tại sao không viết code cho file VD luôn để nó chạy mắc cái gì phải mở mấy cái file kia rồi đóng lại chi mất công vậy?

Nhưng macro ở các file kia là khác nhau anh à, Em muốn dùng file VD để chạy tất cả các Macro ở các file kia anh à.
Anh giúp em với anh nhé.

 

[ndu96081631]

Nhờ thầy cô và các anh chị viết giúp code như trong file đính kèm
Em xin cảm ơn.

Câu lệnh để chạy 1 macro từ file bất kỳ là:

Application.Run "'" & FileName & "'!" & ModuleName & "." & ProcName

Trong đó
- FileName: đường dẫn đầy đủ của file excel
- ModuleName: tên module
- ProcName: tên của sub
Ví dụ:

Sub Test()
  Const FileName = "E:\Luu tru\Bài-1.xlsb"
  Const ModuleName = "Module1"
  Const ProcName = "Copy1"
  Application.Run "'" & FileName & "'!" & ModuleName & "." & ProcName
End Sub

 

[hongphuong1997]

Câu lệnh để chạy 1 macro từ file bất kỳ là:

Application.Run "'" & FileName & "'!" & ModuleName & "." & ProcName

Trong đó
- FileName: đường dẫn đầy đủ của file excel
- ModuleName: tên module
- ProcName: tên của sub
Ví dụ:

Sub Test()
  Const FileName = "E:\Luu tru\Bài-1.xlsb"
  Const ModuleName = "Module1"
  Const ProcName = "Copy1"
  Application.Run "'" & FileName & "'!" & ModuleName & "." & ProcName
End Sub

Cháu cảm ơn bác
ndu96081631
Bác ơi bác thêm cho chau lệnh save và đóng file lại với bác.

 

[ndu96081631]

Cháu cảm ơn bác
ndu96081631
Bác ơi bác thêm cho chau lệnh save và đóng file lại với bác.

Record macro

 

[hongphuong1997]

Record macro

Cháu Record macro rùi, nhưng mà 3 file thì phải 3 lần save lại có đúng không hở bác?

 

[ndu96081631]

Cháu Record macro rùi, nhưng mà 3 file thì phải 3 lần save lại có đúng không hở bác?

Thì vậy thôi chứ làm gì có chuyện save 1 lần được 1000 files?

 

[hongphuong1997]

Thì vậy thôi chứ làm gì có chuyện save 1 lần được 1000 files?

Dạ , cháu cảm ơn bác

 

[LamNA]

Nhờ thầy cô và các anh chị viết giúp code như trong file đính kèm
Em xin cảm ơn.

Em thử
Giải nén thư mục "Luu tru" bỏ vào ổ E
Gán lệnh call Copy1,2,3 trong ThisWorkbook từng file bài tập