Tự động chạy file khi đến thời gian mà không cần mở file (1 người xem)

[thao82]

Kính chào A/C!
Hàng ngày, vào 9h30 phút sáng tôi đến cq và phải thực hiện 2 CV như sau:
1. Mở 1 folder cố định từ trước để tổng hợp các file trong ngày mà mọi người đã gửi từ chiều hôm trước vào 1 file cố định từ trước. Cụ thể: tôi tổng hợp tất cả các file excel của mọi người gửi từ tối hôm trước vào 1 file excel là Tong_hop tại sheets GẦN
2. Mở outlook để tổng hợp các file của các bộ phận gửi về. Cụ thể: tôi tổng hợp tất cả các file excel mà mọi người gửi từ hôm trước vào file Tong_hop tại sheets XA.
Cho tôi xin hỏi, có cách nào/lệnh nào (Code) trong vba để tôi không phải mở file Tong_hop mà vẫn có thể tự tổng hợp giống như schedule trong outlook không nhỉ? Nếu có a chị chỉ giùm với
Cám ơn A/C đã lắng nghe và hy vọng sớm nhận được phản hồi từ A/C

 

[vova2209]

mua 1 cái máy Cơm là đáp ứng được yêu cầu trên!

 

[thanhlanh]

Dùng VB6 tạo file .exe, không có gì là không thể

 

[quick87]

Kính chào A/C!
Hàng ngày, vào 9h30 phút sáng tôi đến cq và phải thực hiện 2 CV như sau:
1. Mở 1 folder cố định từ trước để tổng hợp các file trong ngày mà mọi người đã gửi từ chiều hôm trước vào 1 file cố định từ trước. Cụ thể: tôi tổng hợp tất cả các file excel của mọi người gửi từ tối hôm trước vào 1 file excel là Tong_hop tại sheets GẦN
2. Mở outlook để tổng hợp các file của các bộ phận gửi về. Cụ thể: tôi tổng hợp tất cả các file excel mà mọi người gửi từ hôm trước vào file Tong_hop tại sheets XA.
Cho tôi xin hỏi, có cách nào/lệnh nào (Code) trong vba để tôi không phải mở file Tong_hop mà vẫn có thể tự tổng hợp giống như schedule trong outlook không nhỉ? Nếu có a chị chỉ giùm với
Cám ơn A/C đã lắng nghe và hy vọng sớm nhận được phản hồi từ A/C

@thao82 tham khảo bài viết dưới nhé:
Code tự động mở file Excel theo giờ định sẵn

Bạn làm như sau:

Chạy Sub StartTimer, kết thúc thì EndTimer
Link Workbook được gán vào biến wLink

Public Declare Function SetTimer Lib "user32" ( _
ByVal HWnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Public Declare Function KillTimer Lib "user32" ( _
ByVal HWnd As Long, ByVal nIDEvent As Long) As Long

Public TimerID As Long, TimerSeconds As Single, tim As Boolean
Dim Counter As Long
Dim wLink As String

'~~> Start Timer
Sub StartTimer()
    '~~ Set the timer for 1 second
    TimerSeconds = 1
    TimerID = SetTimer(0&, 0&, TimerSeconds * 1000&, AddressOf TimerProc)
End Sub

'~~> End Timer
Sub EndTimer()
    On Error Resume Next
    KillTimer 0&, TimerID
End Sub

Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, _
ByVal nIDEvent As Long, ByVal dwTimer As Long)
    '~~> Open Workbook ontime
    wLink = "D:\GPE.xlsx"
    If Time = TimeSerial(17, 30, 0) Then Application.Workbooks.Open (wLink)
 
End Sub

 

[thao82]

cảm ơn quick87 nhưng khi mình copy dòng lệnh của bạn vào nó báo lỗi ở đoạn:
Public Declare Function SetTimer Lib "user64" ( _
ByVal HWnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Public Declare Function KillTimer Lib "user32" ( _
ByVal HWnd As Long, ByVal nIDEvent As Long) As Long

Compile error:
The code in this project must be updated for use on 64-bit systems. Please review and update Declare statements and then mark them with the PtrSafe attribute.

Bạn xem giúp mình vì lý do gì ko nhé! máy mình dùng win 7 64Bit

 

[ThangCuAnh]

Quýnh Đồ làm gì có user64.dll mà Lib "user64" hả ban.
Office bạn dùng là 64bit hay 32bit ?
Upload file lên đi, mọi người sữa cho.