| |
▼あおがえる さん：
時間が経過してもう、見ていませんか？
ちょっとトライしました。
また識者がチェックしていただけるから、っと思って
コードを書いてみました。
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
>いつも皆様にお世話になっています。初歩的な質問で申し訳ないのですが。
>Ａブックを開いて３０秒後にＡブックのマクロ１を実行、上書き保存をしてＡブックを閉じ、次にＢブックを開いて３０秒後にＢブックのマクロ１を実行、上書き保存をしてＢブックを閉じ、次にＣブックを開いて・・・・・
>という動作をさせたいのですがどうすればいいでしょうか？
>よろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 06/10/7(土) 11:24 -
