既存のマクロを他のエクセルファイルで使用したい

下記のマクロを使おうと思うと、
このマクロがついたファイルを開いて
他のエクセルファイルを開くのですが使えません。
使おうとするとマクロのついたファイルに戻ってしまいます。

Sub test01()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = "統合シート" Then
Else
ws.Activate
d = ws.Range("A65535").End(xlUp).Row
ws.Range(Cells(1, "A"), Cells(d, "C")).Copy
Sheets("統合シート").Activate
Sheets("統合シート").Range("A65535").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End If
Next
End Sub

どこを変えればよいのでしょうか。
教えてください。
よろしくお願いします。

No.3 ベストアンサー 回答者： Wendy02 回答日時： 2006/07/04 18:01

こんにちは。

ご質問の意味が正確にはわかりません。

他のブックも、同じように、マクロのあるブックの「統合シートに取り寄せる」ということでしょうか？もし、そうでしたら、以下のようになるかと思います。

なお、マクロブックを立ち上げれば、コードをコピーしなくても、コードが正しければ、他のブックからでも、問題なく動きます。なるべく、見易さのために、標準モジュールに書いたほうがよいです。

ともかく、Activate などを取り去ってみることです。必ずしも、Select やActivate を入れなくても、値を取り出すことが出来ます。少し、手を入れてみました。

Sub test02()
　Dim ws As Worksheet
　Dim d As Long
　For Each ws In ActiveWorkbook.Worksheets
　　If ws.Name <> "統合シート" Then
　　　d = ws.Range("A65535").End(xlUp).Row
　　　With ws
　　　.Range(.Cells(1, "A"), .Cells(d, "C")).Copy ThisWorkbook.Sheets("統合シート").Range("A65535").End(xlUp).Offset(1, 0)
　　　End With
　　End If
　Next
End Sub

No.2 回答者： ipsum11 回答日時： 2006/07/04 17:35

一番簡単な方法は、「test01()」を使いたいエクセルにコピーする方法です。

どうしてもと言うのなら、
＞For Each ws In Worksheets
この部分を
For Each ws In 使いたいブック.Worksheets
とでもしてみてはいかがでしょう？
ちなみに確認していませんので、あしからず．．．

No.1 回答者： NOBBB 回答日時： 2006/07/04 17:29

他のファイルにコピペじゃだめですか？