|
▼素人です。 さん:
質問事項がいまいち分かりにくかったですよ。
もっと整理されて質問されては?
推測ですが・・・マクロサンプル作りました。
転用して、目的が果たせることが出来れば幸いです。
A21,A22,A23のブックを順次開けていきます。
A21,22,23のブックを事前に作成してマクロを実行してください。
Sub WBOpenClose()
Workbooks.Open ThisWorkbook.Path & "\A21.xls"
MsgBox "A21のブックが開きました"
Application.DisplayAlerts = False
Workbooks("A21.xls").Close
Application.DisplayAlerts = True
Workbooks.Open ThisWorkbook.Path & "\A22.xls"
MsgBox "A22のブックが開きました"
Application.DisplayAlerts = False
Workbooks("A22.xls").Close
Application.DisplayAlerts = True
Workbooks.Open ThisWorkbook.Path & "\A23.xls"
MsgBox "A23のブックが開きました"
Application.DisplayAlerts = False
Workbooks("A23.xls").Close
Application.DisplayAlerts = True
End Sub
|
|