マクロを自動的に実行する毎日のタイマー

Question

私は毎日午前9時にマクロを実行しようとしています。 OnTimeアプリケーションを使用しようとしていて、特定の時刻に起動するようにマクロをテストしましたが、自動的には機能しません。私は手動でポップアップするメッセージボックスを取得するマクロを実行する必要があります。何かアドバイス？ルーチン「Worbook_Open」で

Sub FinancialAlert() 

    Application.OnTime TimeValue("15:33:00"), "Summary of Covered Companies" 


    Dim i As Long 
    i = 5 

    While Workbooks("Montreal Issuers.xlsm").Sheets("Summary of Covered Companies").Cells(i, 5) <> "" 

    With Workbooks("Montreal Issuers.xlsm") 

     If .Sheets("Summary of Covered Companies").Cells(i, 5).Value = 1 Then 

      MsgBox Workbooks("Montreal Issuers.xlsm").Sheets("Summary of Covered Companies").Cells(i, 3).Value & " is issuing their next financial statement tomorrow (" & _ 
      Format(Workbooks("Montreal Issuers.xlsm").Sheets("Summary of Covered Companies").Cells(i, 4).Value, "[$-409]mmmm d, yyyy;@") & ")." 


     End If 

     If .Sheets("Summary of Covered Companies").Cells(i, 5).Value = 0 Then 

      MsgBox Workbooks("Montreal Issuers.xlsm").Sheets("Summary of Covered Companies").Cells(i, 3).Value & " is issuing their next financial statement today (" & _ 
      Format(Workbooks("Montreal Issuers.xlsm").Sheets("Summary of Covered Companies").Cells(i, 4).Value, "[$-409]mmmm d, yyyy;@") & ")." 


     End If 


    End With 

    i = i + 1 

    Wend 

End Sub 

Answer 1

これを行うことができる、しかし、あなたはモジュールの時間に実行する必要がある「はThisWorkbook」：

Private Sub Workbook_Open() 
Application.OnTime TimeValue("15:33:00"), "Summary of Covered Companies" 
End Sub 

PS：マクロがスタンドアロンで実行されませんWBが開かれているときにスケジュールするコマンドを実行しようとしているときに、マクロ自体でのみ指定されていれば、何かがアクティブになるまでExcelは決して知らないことに注意してください。

Answer 2

タスクスケジューラでファイルを開くようにウィンドウをスケジュールすることができます。その後、マクロをWorkbook Openで実行し、ファイルを閉じます。

私が長年使ってきたもう1つのアイデアは、特定のアカウントにメールを送信し、毎日特定の時間にコードワードを付けて送信することです。私は電子メールがそのコードワードで来るなら、Outlookがマクロを走らせるようにします。これにより、電子メールの送信を停止してマクロをリモートで停止することができます。それは完璧に働いています。