Cách chạy 2 macro từ 2 file khác nhau (2 người xem)

  • Thread starter Thread starter thao82
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

thao82

Thành viên chính thức
Tham gia
9/7/08
Bài viết
51
Được thích
7
Chào các huynh!
Đệ có 2 file xlsm. trong 2 file này mỗi file có 1 macro như sau:
Filexl.xlsm có macro a
File HD.xlsm có macro b
Khi đệ chạy lệnh sau từ file có macro b (file: File HD.xlsm)
Sub chaythu2()
Workbooks.Open FileName:="D:\THONG BAO LUONG QUA MAIL\REPORT\Filexl.xlsm"
Application.Run "'Filexl.xlsm'!a"
Windows("File HD.xlsm").Activate
Call b
End Sub
thì không hiểu sao nó chỉ chạy mỗi cái macro a mà không chạy macro b +-+-+-+.
Các huynh chỉ giáo giúp đệ với!
 
=]] bạn nghĩ máy tính có hiểu cái "b" của bạn ở đâu ko ? +-+-+-+
 
Upvote 0
thì tui đã tạo môi trường bằng Windows("File HD.xlsm").Activate rồi mới chạy macro b đấy thôi!
 
Upvote 0
Chào các huynh!
Đệ có 2 file xlsm. trong 2 file này mỗi file có 1 macro như sau:
Filexl.xlsm có macro a
File HD.xlsm có macro b
Khi đệ chạy lệnh sau từ file có macro b (file: File HD.xlsm)
Sub chaythu2()
Workbooks.Open FileName:="D:\THONG BAO LUONG QUA MAIL\REPORT\Filexl.xlsm"
Application.Run "'Filexl.xlsm'!a"
Windows("File HD.xlsm").Activate
Call b
End Sub
thì không hiểu sao nó chỉ chạy mỗi cái macro a mà không chạy macro b +-+-+-+.
Các huynh chỉ giáo giúp đệ với!

Để chạy macro ở file khác bạn dùng code sau:
Mã:
Sub Test()
   Application.Run "'D:\THONG BAO LUONG QUA MAIL\REPORT\Filexl.xlsm'!a"
   test1
End Sub
Sub test1()
    MsgBox "Tui la: " & ThisWorkbook.FullName
End Sub

Nó sẽ chạy macro tên là a ở file có trong đường dẫn
 
Lần chỉnh sửa cuối:
Upvote 0
Bác hai lúa ơi!
e chạy rùi nhưng không sao chạy được cả 2 macro a và b cùng 1 lúc cả!
 
Upvote 0
Chào bạn,

Có lẽ vấn đề ở đây là phạm vi truy cập của thủ tục.
Trong file fileXL.xlsm, bạn thử đặt code của thủ tục MacroA trong module (thay vì trong sheet/ThisWorkbook) nhé.

Thân.

 
Upvote 0

Bài viết mới nhất

Back
Top Bottom