|
▼あおがえる さん:
時間が経過してもう、見ていませんか?
ちょっとトライしました。
また識者がチェックしていただけるから、っと思って
コードを書いてみました。
Ontimeを一旦お預けにして
BookTSとBookA21,A22,A23があるとします。
BookTBの標準モジュールに以下のコードを貼り付け
一度試してみてください。
時間は5秒間隔に設定しています。必要に応じて変更してください。
中断時間を入れて処理していますが・・・
Sub WBOpenCloseTime()
Workbooks.Open ThisWorkbook.Path & "\A21.xls"
StopSc
Application.DisplayAlerts = False
Workbooks("A21.xls").Close
Application.DisplayAlerts = True
my_Macro02
End Sub
Sub my_Macro02()
Workbooks.Open ThisWorkbook.Path & "\A22.xls"
StopSc
Application.DisplayAlerts = False
Workbooks("A22.xls").Close
Application.DisplayAlerts = True
my_Macro03
End Sub
Sub my_Macro03()
Workbooks.Open ThisWorkbook.Path & "\A23.xls"
StopSc
Application.DisplayAlerts = False
Workbooks("A23.xls").Close
Application.DisplayAlerts = True
End Sub
Sub StopSc()
Dim PauseTime, Start, Finish, TotalTime
PauseTime = 5
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
TotalTime = Finish - Start
End Sub
>いつも皆様にお世話になっています。初歩的な質問で申し訳ないのですが。
>Aブックを開いて30秒後にAブックのマクロ1を実行、上書き保存をしてAブックを閉じ、次にBブックを開いて30秒後にBブックのマクロ1を実行、上書き保存をしてBブックを閉じ、次にCブックを開いて・・・・・
>という動作をさせたいのですがどうすればいいでしょうか?
>よろしくお願いします。
|
|