Excel マクロ 複数ブックの全てのシートに書式だけを自動処理で貼り付けたいのですが

質問

始めての質問です、
ExcelのブックがC:\00\00フォルダに同じ形式で650ほどあります、その全てのブックに１から４のシートがあり、その全てに0.xlsファイルから条件付き書式をコピーして書式だけ全てのシートに貼り付けたいのですが、行き詰ってしまいました。
皆様のお答えや自動記録などをコピーして分らないなりに作って見ましたが、下のプログラムでは書式の貼り付けが上手くいかず困っています。
始めてのマクロなのでもうどうしたら良いのか分かりません、
なにが行けないのか、皆様どうかご教授ください。

Sub test()
Windows("0.xls").Activate
Sheets(Array("１")).Select
Sheets("１", "２", "３", "４")).).Activate
Range("A1:AA64").Select
Selection.Copy
For Each fl In CreateObject("Scripting.FileSystemObject").GetFolder("C:\00\00").Files
If Right(fl.Name, 4) = ".xls" Then Workbooks.Open Filename:="C:\00\日報\" & fl.Name: Sheets(Array("１", "２", "３", "４")).Select: Range("A1").Value = "Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False": ActiveWorkbook.Save: ActiveWindow.Close
Next
End Sub

OSはXPSP2でExcel2003を使っています、よろしくお願いします。

回答No.2

imogasi

質問でやりたいことが、整理されてない。
（１）コピー元のシートは１つか、例えばＳｈｅｅｔ１－Ｓｈｅｅｔ４までの４つの範囲の書式か。
（２）コピー元４シートをコピーするコードと
（３）コピー先である、フォルダの中のエクセルブックを捉えるコードと（ＶＢＳを使うことＦｏｒＥａｃｈを使う。Ｄｉｒ関数でも出来てそのほうが易しいと思うが）
（４）捕まえた１つの「フォルダ内のエクセルブック」の全シートにに書式を貼り付けていくコード
これらを分けてテストすべきだ。
＞書式の貼り付けが上手くいかず困っています。
書式だけの問題ではなかろう。最後まで動いているのか。
まず上記の段階を踏んで、３ブックぐらいでテストしてみるもんだ。
初心者は特にそうだ。
（２）の段階で質問のコードは動きますか。

お礼

imogasiさん遅くなりすみません、早速の回答ありがとうございます。
纏まりが無く申し訳ないです。

いろいろ調べたところ条件付書式はこのコードでは無理なようです、
回答して頂きとてもありがたく思います、ご指摘のＶＢＳ、ＦｏｒＥａｃｈ、Ｄｉｒ関数あたりを再度勉強して出直してまいります。（出直さずうまく動いた方がいいですね）
なにぶん初心者ですので、失礼したことお詫びします。

回答No.1

van111

少し話しがわかりにくいです。

確認ですが、
フォルダ内に650のEXCELブックがあり、それらすべてに
0.XLSの条件付書式の書式を貼り付けるということですか？

お礼

van111さん遅くなりすみません、早速ありがとうございます。
お礼の順番が逆になってしまいました、申し訳ありません。
van111さんのおっしゃるとうりなのですが、for処理というものを使わないといけないようなので、もう一度修行してきます、ありがとうございました。