質問: dir loop end sub copy部分をmoveにするとエラーメッセージがでてしまい 集計したシートを次々と移動させる方法がわかりません。 どのような方法で実行すれば宜しいでしょうか?
回答: こんにちは。 >1個目のデーター処理を行った後集計処理を行った後 意味が良く分からないです。 データ処理を行うというという、「処理」は何ですか? マクロですか? >集計シートを2個目のデーターに移動させたいのですが方法がわかりません。 >集計したシートを次々と移動させる方法がわかりません。 マクロを乗せているブック(thisworkbook)のシート・データを、それぞれのブックにコピーするということは分かるのですが、その後、移動という言葉の意味が分かりません。マクロの「移動(move)」という意味はは、thisworkbook のシートを別のブックに移動してしまうことですから、元がなくなってしまいます。だから、一回きりしかありません。それに、最後はエラーが発生します。すべてのシートを移動することは不可能です。 こういうことですか? workbooks(mybook).worksheets(2).copy before:=workbooks(myname).sheets(2) と、コピー元のシートの2番目のデータを、貼付け先のブックのシートの2番目にコピーする。 または、 'ただし、シートの順番が逆さになります。また、貼付け先のシート数が足らないと、エラーが発生します。 for i = 1 to thisworkbooks.worksheets.count thisworkbooks.worksheets(i).copy before:=workbooks(myname).sheets(i) next