シートを一つのブックにまとめるには

質問

こんばんは　ただいま夜中の１：20です。
マクロを考えているんですが、うまくうごかないです。　みなさまの知恵を拝借させてください。　

デスクトップの経理フォルダに

仕入.xlsx
売上.xlsx
まとめ.xlsm

があります。　

仕入の２月シート、売り上げの２月シートをまとめxlsmにコピーしたいのですが
マクロの記述はどうなりますでしょうか？

自分なりにつくってみたのですが、経理フォルダを動かすとうまく作動しなくなりました。
thisworkbook.path をどこかにいれれば動くようですが、どこにいれればよいやら。

希望する動作としては　まとめ.xlsm　のシート１に記載されている　ファイル名とシート名に該当するものを　まとめ.xlsmにコピーできればと思ってます。

回答No.1

keithin · ベストアンサー

sub macro1()
　dim r as long
　dim myFile as string
　dim mySheet as string

　chdrive left(thisworkbook.path, 1)
　chdir thisworkbook.path

　for r = 2 to range("A65536").end(xlup).row
　　myfile = thisworkbook.worksheets("Sheet1").cells(r, "A")
　　mysheet = thisworkbook.worksheets("Sheet1").cells(r, "B")

　　workbooks.open filename:=myfile
　　activeworkbook.worksheets(mysheet).copy _
　　　after:=thisworkbook.worksheets(thisworkbook.worksheets.count)
　　workbooks(myfile).close false
　next r
end sub
ぐらいで。

お礼

できました　いろいろありがとうございました。

補足

夜中なのに回答ありがとうございます。　ネットワークドライブ上にある　エクセルファイルの中のシートのコピーをためしているところです。　またきます。

回答No.2

imogasi

説明不足で質問の内容がよくわからない。
一般に言って、すでに存在するエクセルデータを規定する（指し示す）のは
（１）フォルダへのパスとフォルダ名
（２）ブック名
（３）シート名
（４）Range（セルの範囲）（とびとびの範囲にある場合もありうるに注意）
と考えることができる。仮に階層とここでは言おう。
まとめたいデータはどの階層まで同じなのか、バラバラなのかが説明では分りにくい。
ーー
また質問者がいう、「まとめ」た結果はどの階層につくるのか。
ーー
またデータは、（新シート）１シート内に持ってきたいのだろうが、単純に、前（月）のデータの張り付けた終わりの次行以下に持ってくればよいのか（それを月数分繰り返す）。（たとえば見出し漢字）などは、張りつけられて、まとめ１シート内で繰り返されては困るのか（注意１）。合計値（注意２）などの行はない（生構成データだけ）ほうがよいのか。
（アクセスのデータなどなら一律にデータをため込んで保存し、必要な都度（年）月を指定して対象データとできる。）エクセルでは、普通はこうしない（月ごと別シートに分ける人が多い）が、ここがエクセルの良い点でもあり悪い点でもある。
（注意１）毎月のシートで固定行数なら張り付ける時のセル範囲の上をずらして指定すればよいが。
（注意２）合計値のある業はデータ数で上下する場合が多く、合計の行を探す処理を組み入れないとならないかも。
＞経理フォルダを動かすとうまく
どういう必要性があって動かすのか。
当面（１年や年度単位とか）固定できない（しない）のか。
今あるブックのパスをVBAで取って、それを使うしかないのでは。
何かブックを開いておいて
標準モジュールに
Sub test02()
MsgBox ActiveWorkbook.Path
End Sub
を実行すれば 、開いたそれがドキュメントなら
c:\sers\xx\documents
とでて、それでパスわかるが、処理モジュールにうまく渡さないといけない。

お礼

毎回　アドバイスありがとうございます。