複数ブックを新しいブックのSheet1にまとめたい

質問

マクロ、VBAは全くの初心者です。
会社の売り上げのデーターが日付ごとに複数のファイルに分かれていまして、それを1枚のシートに貼り付けようとしています。かなり多くの数があり、最初はコピー貼り付けで行っていましたが数日かかりそうなので調べたところマクロでできるとのことでそれを行ってみましたが、何度やっても何も起こらなかったので質問させていただきます。

参考にしたのはhttp://okwave.jp/qa/q4225063.html

でした。

sheet1のセルA1にC:|\・・・と貼り付けましたが拡張子がわからず、いろいろと試しましたが何もおこらず。あと別シートを選ぶの意味が分からなかったのですがいろいろやってみても何も起きませんでした。

近くにパソコンに詳しい方がいないので困っています。

できれば詳しく馬鹿でもわかるようにやり方を教えてくれたらありがたく思います。

さらになんですけど入力した際にデータが入っている前の列に日付をそのまま入れられたら本当に助かるのですが・・どこまでexcelでおこなえるかがわからないので・・・

どなたか詳しい方がいらっしゃいましたらお願いいたします。

回答No.1

keithin · ベストアンサー

動物さんにも判るように説明するとなると、随分と冗長になってしまいます。我慢してよく読んでその通りに行ってください。

まず準備として、集めたい複数のブックをまとめて入れておく、決まった置き場所（フォルダ）を用意します
たとえばあなたのマイドキュメントの中に「元データ」とでも名前を付けたフォルダを用意します
元データフォルダに、あなたが準備した複数のブックをまとめて放り込んでおきます。

フォルダを用意するのが分からないときは：
　マイドキュメントを開く
　右クリックして新規作成でフォルダを選ぶ
　「新しいフォルダ」という名前のフォルダの名前を元データに修正する

フォルダの名前の変更のやりかたが分からないときは：
　フォルダを選ぶ
　Ｆ２キーを押す
　名前部分が選択されるので、元データと書き換える

次に調査として、元データフォルダに入れた売上データブックの１つを右クリックして「プロパティ」を確認します
場所：欄に、元データフォルダまでのパスが表示されているので、間違えないようによく読み取ります
たとえば
c:\Users\<UserName>\Documents\元データ
といった具合に書かれています。ダイアログからマウスでこの文字列を選択して、右クリックしてコピーしてもＯＫです。

さて。
あなたのご相談では、次のような点が説明不足です。
１．売り上げデータが日付ごと記入されているそれぞれのブックには、いったい何枚のシートが入っているのか
　　１冊のブックには１枚だけシートがあって、それを取ってくればいいのか
　　実は１冊のブックに複数のシートがあって、イチイチシートをめくって取ってこなきゃならないのか

２．売り上げが記入されている各シートの、具体的にどこのセル範囲をコピーしたいのか
　　具体的に何列からどこ列までなのか
　　たとえば３０行目までのように固定のセル範囲で決まっているのか
　　それとも、シートごとに何行記入されているのかバラバラなので、イチイチ調べてコピーしたいのか
　　調べるとしたら、いったいどこ列をみれば「この行が一番下の行だ」と判るようになっているのか

あなたもイチイチ言われて説明したくないでしょうから、勝手にこちらでこういう事だとして説明を続けます。ご自分で適切に修正してください。

○ブックには１枚だけシートが含まれている
○各シートはＡ列からＪ列まで使っている
○Ａ列の一番下が、その表の一番下の行になっている
○１行目にはタイトル行が記入してあり、２行目からデータがつらつら並んでいる
○１行目はコピーせず、２行目からのデータだけコピーしてきたい

ようやく本番です。
集約用のブックを１冊用意し、元データフォルダの隣に保存しておきます
間違っても元データフォルダの中に入れてしまわないように気を付けます

集約ブックを開く
ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim myPath as string
　dim myFile as string
　dim flg as boolean
　worksheets.add before:=worksheets(1)
　flg = true

’さっき調べたパスを下記に記入する。最後の￥を消してしまわないよう注意する
　mypath = "c:\Users\<UserName>\Documents\元データ" & "\"

　myfile = dir(mypath & "*.xls*")
　do until myfile = ""
　　workbooks.open mypath & myfile
　　range(iif(flg, "A1:J", "A2:J") & range("A65536").end(xlup).row).copy _
　　　thisworkbook.worksheets(1).range("A65536").end(xlup).offset(1)
　　workbooks(myfile).close false
　　flg = false
　　myfile = dir()
　loop

　workbooks.open mypath & dir(mypath & "*.xls*")
　range("1:1").copy thisworkbook.worksheets(1).range("A1")
　workbooks(myfile).close false
end sub

ファイルメニューから終了してエクセルに戻る
ＡＬＦ＋Ｆ８を押してマクロを実行する。

それから
＞入力した際にデータが入っている前の列に日付をそのまま入れられたら本当に助かる

どこに何をどこから取ってきてどうしたいのか、さっぱり意味不明です。
キチンと具体的な「目に見える」情報を添えて、何をしたいのか別途のご相談として改めて投稿してください。

お礼

keithinさん>わかりやすいご回答をしていただきまして本当にありがとうございます。
やってみましたがどうやらパスが違うみたいで存在しないとエラーが出ます。デスクトップにH22というフォルダーを作り行ってみました。 myPath = "C:￥Users￥UserName￥Desktop￥H22￥"のような形です。動物なのでどこが悪いのか・・。
指摘頂きました内容をもっと具体的に記載して改めて投稿しなおしますので出来ましたらよろしくお願いします。