自動的にマクロ実行
指定した時刻にマクロを実行するApplication.Ontimeメソッドを使えば定期的にマクロを自動実行させることができる。この機能を使えば定期的にフォルダ内を巡回するなどのロボットをVBAで作成できるのではないだろうか。
業務を手軽に自動化させるのに有効な手段では?
サンプルコード
Dim Launch As Date
For i = 2 to 200
Launch=ThisWorkbook.Sheets(1).Cells(i,1)←Excelシート上にあらかじめ実行時刻を用意
Application.Ontime TimeValue(Launch),”実行するマクロ名“
Next
メモ
「実行するマクロ名」の部分には、別にあらかじめ用意しておいたプロシージャ名を入れる。For文で回すことにより、あらかじめ別シートで用意していた時刻が、実行時刻として読み込まれる。
このコードをイベント(ブック起動時にマクロ実行など)と組み合わせれば、さまざまな業務を自動化できそうだ。
コメント