Excelを条件で自動起動したい

質問

Excelでやる毎日やる業務があるのですが、
ついつい忘れてしまいがちで困っています。

そこで、当日の15時までに起動したかどうかを
チェックし、起動していなければExcelを起動
または、ポップアップを表示させたいと思っています。

通常業務の妨げになるため、
そのExcelファイルを当日開いてなかった場合のみ
ポップアップ表示　　または　Excelファイル起動
させたいと思っています。

他のソフトを使用するということは出来ません。（会社のパソコンのため

OSはWindows7を使用しています。
Excelは2003です。

説明不足の分もあるかと思いますが、
回答よろしくお願いいたします。

回答No.3

mt2008 · ベストアンサー

タスクスケジューラへの登録の仕方はご存じの様ですね。
以下の内容のVBSを作成して、タスクスケジューラで15時に起動させては如何でしょう。
いきなりExcelが開くと、その時に他の作業中の場合困りますので、メッセージだけ表示させています

VBSはここから----↓
Option Explicit

Dim objFileSys
Dim strFilePath
Dim objFile

Set objFileSys = CreateObject("Scripting.FileSystemObject")
strFilePath = "C:\WORK\確認対象ファイル.xls"
Set objFile = objFileSys.GetFile(strFilePath)

'最終更新日が今日かどうかを確認
if DateDiff("d",objFile.DateLastAccessed,now()) <> 0 then
MsgBox( "本日、まだ作業していません" )
end if

Set objFile = Nothing
Set objFileSys = Nothing

お礼

回答ありがとうございます。
明日実行してみたいと思います！
ありがとうございました

回答No.2

itu1989

以下のプログラムをテキストファイルで作成する。（ファイル名：任意.vbs）

'↓プログラム START
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.GetFile("C:\Users\Admin\Documents\エクセル.xls")

Dim dayTarget:dayTarget = Right("0" & Year(objFile.DateLastModified) , 4) & Right("0" & Month(objFile.DateLastModified) , 2) & Right("0" & Day(objFile.DateLastModified) , 2)
Dim dayNow:dayNow = Right("0" & Year(Now()) , 4) & Right("0" & Month(Now()) , 2) & Right("0" & Day(Now()) , 2)

if (dayNow - dayTarget) >= 1 then
Set shell = WScript.CreateObject("WScript.Shell")
shell.Run """C:\Program Files\Microsoft Office\Office14\EXCEL.EXE"" ""C:\Users\Admin\Documents\エクセル.xls"""
else
end if
'↑プログラム END

■上記プログラムの以下に示す箇所を環境に合わせて修正する
（１）「C:\Users\Admin\Documents\エクセル.xls」を起動したいExcelファイルのパスへ変更する（2箇所）
（２）「C:\Program Files\Microsoft Office\Office14\EXCEL.EXE」をご自分のExcelのインストールされているパスへ変更する。

■タスクスケジューラに作成したプログラム（任意.vbs）を登録する
（1）チェックしたい分だけ登録する（30分毎、1時間毎など）

以上です。
15時までにチェックすると言うのはスケジューラで対応して下さい。プログラムでは日付ファイルの更新日付と現在日付を確認して当日更新されたかどうかをチェックしています。なので、Excelが開かれても保存しなければ再度チェックにかかります。

お礼

回答ありがとうございます。
とても難しそうなプログラムです・・・
理解するにはだいぶ時間がかかりそうです。

丁寧にありがとうございました！

回答No.1

やぎ じじい（@yagijijii）

Windows標準搭載済みアプリのタスク・スケジューラを使用すれば良いのでは？

補足

タスク・スケジューラーの場合ですと、
Excelファイルの起動ではなく、本体の起動となります。
また、今日起動したかどうかの判断ができません。