各ファイル中データの張付け操作についてお願いします

質問

こんばんは。

　以下の画像にもございますが、土日を省いた日々のcsvファイルデータがございます。

　なお、各ファイルは約1400行のデータがございます。

　そこで、例えば、
20120102の1400行の下の行に、
翌日の20120103の1400行のデータを、
さらには合計2800行（上記２日分です）になったその下に翌日の20120104の1400行をと、
　次々と、一週間分のデータ（合計7000行）をまとめたファイルを作成したいと思っております。
　なお、今回の場合ですと、「201202-201206」、「20120109-2012013」、「20120116-20120120」、「20120123-20120127」・・・　となります。

　過去数年分のデータがございますため、各週分のファイルを作成するのには、手作業では非常に厄介な作業となります。

　つきましては、一週間分（総計：1400×5=7000行）をまとめたファイルを、次々と作成したいのですが、簡便な方法はございますでしょうか？

　なお、エクセルは2007を使用しております。

　それでは、よろしくお願い申し上げます。

回答No.2

hallo-2007 · ベストアンサー

まず、最初に、データを１日単位でファイルで保存した来たことに問題アリです。
どうすべきであったかというと、毎日のファイルを開いて、一つのエクセルシート
或いは、データベースに追加していって、ひとつにまとめておくという管理です。

以下のエクセルのシートにすべてのｃｓｖファイルをまとめるVBAです。
使い方ですが、
新規のBookを開く、１行目に
　A　　B　　C
日付　数値　数値・・
と項目を準備しておく
Alt +F11キーを押して、VBエディターを起動
挿入＝＞標準モジュールでモジュールを作成して
以下のコードを貼り付けて閉じます。
Alt + F8　で作成したマクロを実行してみてください。

Sub ボタン1_Click()

Dim buf As String
buf = Dir(ThisWorkbook.Path & "\*.csv")
Do While buf <> ""
i = i + 1
Workbooks.Open ThisWorkbook.Path & "\" & buf

GYOU = ThisWorkbook.ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1
ThisWorkbook.ActiveSheet.Rows(GYOU & ":" & GYOU + 2000).Value = Rows("2:2002").Value

Workbooks(buf).Close SaveChanges:=False
buf = Dir()
Loop
End Sub

これで、データが一つになるので、
別シートに必要な日付の区間のデータが抽出できる機能を追加すれば十分です。

必要な区間ごとに名前を付けてファイルをたくさん作っても使いにくいだけですよ。

お礼

お礼を遅れましたこと、深くお詫び申し上げます。

　このようなマクロ（VBA）があったのですね！！

　厚くお礼申し上げます。

回答No.1

noname#189141

中身のフォーマットにも依りますが、Accessなどのデータベースで読ませて日付指定で書き出すのが早そうですね。
ファイルの結合だけで済ませられるなら、vb/vba/vbsでごにょごにょできそうです。

COPY 20120102.csv+20120103.csv+20120104.csv+20120105.csv+20120106.csv 201201-01.csv
こんな感じのコマンドが自動で実行できれば良いわけで。
もちろん手で作っても、ひとつひとつくっつけるよりはマシと思われます。

周りにデータベースに詳しい人か、VB系プログラム書ける人いませんか？

お礼

ご返答いただきまして、どうもありがとうございました。

　データの内容は、全てのファイルとも、

A列：日付
B列：数値１
C列：数値２
D列：数値３
E列：数値４

　となっております。

　残念ながら、小生の周辺には、詳しいひとがいない状況にあります。

　参考となる考え方をお教えいただきまして、どうもありがとうございました。