Tự động chạy VBA sau một khoảng thời gian nhất định

Liên hệ QC

bin.vcsc

Thành viên hoạt động
Tham gia
6/12/13
Bài viết
125
Được thích
14
Trước tiên Bin cám ơn các bác @Quang_Hải , @Ba Tê , @VetMini đã giúp Bin tạo 2 VBA để tự động xuất trích dữ liệu và xuất dữ liệu thành tệp mới.

Hiện tại Bin muốn sau một khoảng thời gian nhất định (chẳng hạn sau mỗi 5 phút) VBA sẽ tự động thực thi các VBA ở trên.

Mong các anh chị và các bạn tư vấn và hỗ trợ.
 

File đính kèm

  • Tu dong chay moi 5 phut.xlsm
    23.7 KB · Đọc: 12
Bạn thử với đoạn code này xem có đúng với mong muốn chưa nhé.
Mã:
Sub GPE_Timer()
    Application.OnTime Now + TimeValue("00:05:00"), "GPE_Main"
End Sub

Sub GPE_Main()
    'Đoạn code bạn muốn thực hiện mỗi 5 phút
    Call GPE_Timer
End Sub
 
Upvote 0
Cám ơn @yamVB
Mình làm nhưng báo lỗi không chạy được. Bạn xem giúp, mình làm có đúng không?

1610511202836.png
 

File đính kèm

  • Tu dong chay moi 5 phut.xlsm
    24.4 KB · Đọc: 4
Upvote 0
Bạn thử lại với Code này nhé,
Xin lỗi vì đã không xác nhận kỹ code trước khi gửi lên đây.
Mã:
Public strTime As Date
Sub GPE_Timer()
    strTime = Now + TimeValue("00:02:00")
    Application.OnTime strTime, "GPE_Timer"
    'Code ở đây
End Sub

Hoặc sửa 1 xíu ở Code trên là được
Mã:
Sub GPE_Timer()
    Application.OnTime Now + TimeValue("00:05:00"), "GPE_Main"
End Sub

Sub GPE_Main()
    Call GPE_Timer
    'Đoạn code bạn muốn thực hiện mỗi 5 phút
End Sub
 
Upvote 0
Web KT

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

Back
Top Bottom