Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1613 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【73112】マクロの自動実行 はまこ 12/11/15(木) 15:41 質問[未読]
【73113】Re:マクロの自動実行 ウッシ 12/11/15(木) 16:53 回答[未読]
【73115】Re:マクロの自動実行 H. C. Shinopy 12/11/15(木) 22:09 回答[未読]
【73112】マクロの自動実行
質問  はまこ  - 12/11/15(木) 15:41 -
引用なし
パスワード
   Windowsのタスクスケジューラーを使用して、
1日1回、Excelのマクロを自動実行しています。
（タスクスケジューラで指定した時間にExcelファイルを開き、
WorkbookのOpenイベントで実行しています。）

マクロの中身は、社内イントラネットの特定WebサイトをExcelで開き、
それをシートに保存するというもので
日付のついたシートを作成し、そこにペースト、
上書き保存して、ファイルを閉じています。

マクロの動き自体は何も問題はないのですが
Openイベントで実行している為、ファイルの中身を確認しようと開いた場合にも
マクロが動いてしまい、上書き保存で終了してしまいます。

編集する可能性のあるファイルですので、開いて確認することは頻繁にあります。
何か良い方法はないでしょうか。
【73113】Re:マクロの自動実行
回答  ウッシ  - 12/11/15(木) 16:53 -
引用なし
パスワード
   こんにちは

マクロ無効にしては開けないのですか？
【73115】Re:マクロの自動実行
回答  H. C. Shinopy  - 12/11/15(木) 22:09 -
引用なし
パスワード
   ブックのプロパティ（文書情報）を書き換えたり確認したりすることで、
後はIfやSelect Caseで処理をする・しないを決めるのはどうでしょうか
例えば、
　1日1回の自動実行の際に、プロパティの[コメント]に実行日時を書き込んでおく。
（この場合、上記処理の前に日時を確認する条件を確認する。）

あるいは、[更新日時]を確認することで、処理を続行するかどうか決める。

下記は参考になりそうなマクロ：

Sub MyListProperties()
　Rem ブックのプロパティ（文書情報）の表示
　Dim proDoc As DocumentProperty
　Dim myString As String
　'
　myString = ""
　'
　For Each proDoc In ActiveWorkbook.BuiltinDocumentProperties
　　myString = myString & proDoc.Name & "= " & proDoc.Value & vbCr
　　On Error Resume Next
　Next
　'
　MsgBox myString
End Sub ' MyListProperties　*----*----*　　*----*----*

Sub hhhhhhh()
　' [更新日時]・[コメント]の書き換え
　MsgBox ActiveWorkbook.BuiltinDocumentProperties("Last save time")
　ActiveWorkbook.BuiltinDocumentProperties("Last save time") = Now()
　MsgBox ActiveWorkbook.BuiltinDocumentProperties("Last save time")
　ActiveWorkbook.BuiltinDocumentProperties("Comments") = CStr(Now())
　MsgBox ActiveWorkbook.BuiltinDocumentProperties("Comments").Value
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1613 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free