マクロでログ抽出し、日付ごとにシートを作成したい

質問

とある機器から吐き出すcvs形式のログがあります。
ログは以下のように出力されます。

[[ Apr 30 12:34:56 ]]
Time　　　　Volt　　　　Current　…
0:00:00　　　10.01　　　1.234
0:00:50　　　10.04　　　1.345
　　・
　　・
1:30:50　　　10.95　　　1.321
[[ Apr 30 21:40:21 ]]
Time　　　　Volt　　　　Current　…
0:00:00　　　10.23　　　1.345
0:00:50　　　10.25　　　1.456

1つのcvsファイルに、その機器を起動するたびに　[[ Apr 30 21:40:21 ]]　といった起動時の日時が記録され、それ以下の行に取得された時間や電圧などが記録されていく仕組みです。
これをマクロで、起動時間ごとに別々のシートにして張り付けたいのですが、どのようにマクロを組んだらよいでしょう？

最終的には抽出したシートから、時間に対する電圧と電流などの変動のグラフを起こすのが目的です。

よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

マクロブック（もちろん個人用マクロブックでもよい）を用意して次のようなマクロを登録する

sub macro1()
　dim h as range

　if activeworkbook.fileformat <> 6 then
　　msgbox "OPEN CSV and RUN"
　　exit sub
　end if

　with worksheets(1)
　set h = .range("A:A").find(what:="[[", lookin:=xlvalues, searchdirection:=xlprevious)
　do until h is nothing
　　worksheets.add after:=worksheets(1)
　　range(h, .range("A65536").end(xlup)).entirerow.cut destination:=range("A1")
　　activesheet.name = application.substitute(trim(mid(range("A1"),3,len(range("A1"))-4)), ":", "")
　　set h = .range("A:A").findprevious(h)
　loop
　end with

　activeworkbook.saveas fileformat:=xlworkbooknormal
end sub

ＣＳＶを開き、マクロを実行する。

＃ご質問で状況説明として掲示された「[[　]]」といった記載を手掛かりに使っているので、実際のデータはこうではなかった場合は、適切にマクロを修正して使います。

お礼

ありがとうございます。
早速組んでみたところ、きちんと抽出できました。
これをベースにカスタマイズいたします。まだマクロを勉強し出したところなので、大変参考になりました。
お礼申し上げます。