1Sub test()
2 BookClose ("test.xlsx")
3End Sub
45Sub BookClose(name As String)
6 For Each wb In Workbooks
7 If wb.name = name Then
8 Application.DisplayAlerts = False
9 wb.Close
10 Application.DisplayAlerts = True
11 Exit For
12 End If
13 Next
14End Sub
15
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/08/28 08:57 編集
2017/08/28 10:11 編集