エクセルでこんなマクロ

質問

マクロの初心者ですが、
エクセルで、
「Ａ」、「Ｂ」、「Ｃ」、「コピーＡ」、「コピーＢ」
というファイル名のエクセル開いていたときに、
「コピーＡ」、「コピーＢ」というファイルだけを閉じてくれるような
マクロを
「Ｃ」のファイル上で作成することは可能でしょうか。

ファイル名はＡＢＣ・・・以降多数あります。

何卒よろしくお願い致します。

回答No.1

misatoanna · ベストアンサー

閉じるブックの名前の条件がわかりませんが、「すべて同じExcel上で
開いているブックの中で、頭に「コピー」のついたものを閉じる」、と
仮定しまして、ブックＣの標準モジュールに、

Sub Test()
　Dim i
　Application.ScreenUpdating = False
　For i = 1 To Windows.Count
　　Windows(Windows.Count).Activate
　　If Left(ActiveWorkbook.Name, 3) = "コピー" Then
　　　ActiveWorkbook.Close False '※
　　End If
　Next
　Application.ScreenUpdating = True
End Sub

このままですと、データを書き換えたブックも保存しないで閉じます。
※の行の "False" を削除すると、書き換え後保存していないブックを
閉じる際に、保存するかどうかを問うメッセージが出ます。

回答No.3

misatoanna

> ファイル名の頭にコピーと付くファイル以外

If Left(Workbooks(Workbooks.Count).Name, 3) = "コピー" Then
　　　　↓
If Left(Workbooks(Workbooks.Count).Name, 3) <> "コピー" Then

(^.^)　不等号は "<" と ">" を組み合わせた "<>" です。

お礼

ありがとうございました。
大変助かりました。
また何度もすみませんでした。
勉強になりました。
ありがとうございました。

回答No.2

misatoanna

＃１の訂正（？）

わざわざウインドウの数で処理しなくてもよいですね。

Sub Test()
　Dim i
　Application.ScreenUpdating = False
　For i = 1 To Workbooks.Count
　　Workbooks(Workbooks.Count).Activate
　　If Left(Workbooks(Workbooks.Count).Name, 3) = "コピー" Then
　　　Workbooks(Workbooks.Count).Close False
　　End If
　Next
　Application.ScreenUpdating = True
End Sub

お礼

お早い回答ありがとうございました。
非常に助かりました。
ちゃんと動きました。

ちなみに、もしよろしかったらで良いのですが、
ファイル名の頭にコピーと付くファイル以外を閉じる
ということも出来るのでしょうか。