エクセルマクロ。複数のbookからA列のデータをコピーして1つのシートにまとめたい

貼り付け元のBookは作成している状態で、複数のBookのA列にあるデータをコピー貼り付けして、一つのシートにまとめたいです。
やり方としては

1)コピーしたいbookがまとめて保存してあるファイルを開く
2)コピーしたいbookを開く
3)開いたbookのA列をコピーして、まとめたいシートに貼り付ける
4)次のbookを開いてコピーして貼り付ける

これを繰り返すマクロを組みたいのですが、
http://www.moug.net/tech/exvba/0060003.html
さんのサイトを参考に組んでもうまく考えられず詰まっています。
わかる方がいればよろしくお願いします

質問者からの補足コメント

• 説明不足で申し訳ございません
  コピペの段階でつまずきました
  
  貼り付け先のA列とB列には元々データがあるので、1つ目のブックはC列に貼り付け、次のブックはD列、次はE列という感じに貼り付けていきたいです

  No.1の回答に寄せられた補足コメントです。 補足日時：2015/12/17 13:40

No.2 ベストアンサー 回答者： CoalTar 回答日時： 2015/12/17 17:51

ほとんどMOUGのままですが

Sub Sample2()
　Dim sFile As String
　Dim sWB As Workbook
　Dim dWS As Worksheet ' 変更
　Dim dSheetCount As Long
　Dim i As Long
　Dim n As Long '追加
　Const SOURCE_DIR As String = "D:\Data\Source\"
　Const DEST_FILE As String = "D:\Data\AllReports.xls"
　
　Application.ScreenUpdating = False
　
　'指定したフォルダ内にあるブックのファイル名を取得
　sFile = Dir(SOURCE_DIR & "*.xls")
　
　'フォルダ内にブックがなければ終了
　If sFile = "" Then Exit Sub
　
　Set dWS = ActiveSheet '追加
　n = 1 '追加
　Do
　 　'コピー元のブックを開く
　 　Set sWB = Workbooks.Open(Filename:=SOURCE_DIR & sFile)
　 　 　
　 　'変更
　 　dWS.Columns(2 + n) = sWB.Worksheets("報告書").Columns(1).Value
　 　n = n + 1
　 　
　 　 　 　
　 　'コピー元ファイルを閉じる
　 　sWB.Close
　 　
　 　'次のブックのファイル名を取得
　 　sFile = Dir()
　Loop While sFile <> ""
　
　Application.ScreenUpdating = False
End SubreenUpdating = False
End Sub

この回答へのお礼

遅くなりましたが、ありがとうございました！助かりました！

お礼日時：2015/12/21 21:06

No.1 回答者： CoalTar 回答日時： 2015/12/17 07:26

先のサイトで書かれていないのは3)の行程、つまりコピペです

肝心などこに貼り付けるかが書かれていません
どこでつまづいたのでしょうか?

1つめのブックはA列をコピーしてA列に貼り付け
次のブックはB列に貼り付けるのでしょうか?