下記のような vbs ファイルを作って、エクセルファイルを開いて、再集計してみた。
Dim oApp Dim yyyymmdd(30) Set oApp = CreateObject("Excel.Application") oApp.Visible = True '可視にする 'Only XL 97 supports UserControl Property 'On Error Resume Next oApp.UserControl = True yyyymmdd(1) = "2008-04-01" yyyymmdd(2) = "2008-04-15" yyyymmdd(3) = "2008-05-04" yyyymmdd(4) = "2008-05-18" yyyymmdd(5) = "2008-06-01" yyyymmdd(6) = "2008-06-15" yyyymmdd(7) = "2008-07-06" yyyymmdd(8) = "2008-07-20" yyyymmdd(9) = "2008-08-03" yyyymmdd(10) = "2008-08-17" yyyymmdd(11) = "2008-11-02" yyyymmdd(12) = "2008-11-16" yyyymmdd(13) = "2008-12-07" yyyymmdd(14) = "2008-12-21" yyyymmdd(15) = "2009-01-18" yyyymmdd(16) = "2009-02-01" yyyymmdd(17) = "2009-02-15" yyyymmdd(18) = "2009-03-01" yyyymmdd(19) = "2009-03-15" yyyymmdd(20) = "2009-04-05" yyyymmdd(21) = "2009-04-19" yyyymmdd(22) = "2009-05-03" yyyymmdd(23) = "2009-05-17" yyyymmdd(24) = "2009-06-07" yyyymmdd(25) = "2009-06-21" yyyymmdd(26) = "2009-07-05" yyyymmdd(27) = "2009-07-19" yyyymmdd(28) = "2009-08-02" For n = 1 To 28 'Excelファイルを開く、マクロの起動 dd = "E:\DATA\" & yyyymmdd(n) 'ファイル名作成 oApp.Workbooks.Open dd & "\99データ調整.xls" 'oApp.Workbooks.Open dd & "\99転送2008.xls" 'データ作成する oApp.RUN "all_html再作成" 'HTMLごと再作成 oApp.Workbooks.Close Next '後始末 oApp.Quit Set oApp = Nothing
データとマクロは分けないとなぁ・・・と思いつつ。
※あと、古いファイルのマクロが更新されていなかったり、、、イロイロと手抜きするとあるんだよなぁ。
2008年
[1月]
[2月]
[3月]
[4月]
[5月]
[6月]
[7月]
[8月]
[9月]
[10月]
[11月]
[12月]
2009年
[1月]
[2月]
[3月]
[4月]
[5月]
[6月]
[7月]
[8月]
[9月]
[10月]
[11月]
[12月]
と、データを修正中、、、