アパッチのWEBアクセスログの集計⑤
2020年02月03日
アパッチのWEBアクセスログをエクセルVBAで集計したい。今回は５回目。前回やろうとしたstep2について。
やりたいこと
やりたいこと
step1．フォルダ内の全ファイルを対象としたループを作る
step2．各ファイル内のデータを日付別にシート出力
step3．各シートで、ログデータを区切る
step4．区切られたデータを集計
過去ログ
①やりたいことの整理
②step3
③step3やり直し
④step4
前回書いたとおり、dictionary配列を使用。
この配列の利便性がやばい。
ログデータの日付文字列をキーとした配列を作って、
値として、行のデータをつなげていけばよさそう。
過去ログ
①やりたいことの整理
②step3
③step3やり直し
④step4
前回書いたとおり、dictionary配列を使用。
この配列の利便性がやばい。
ログデータの日付文字列をキーとした配列を作って、
値として、行のデータをつなげていけばよさそう。
Dim Dic, i As Long, buf As String, Keys
Set Dic = CreateObject("Scripting.Dictionary")
For i = TGyo + 1 To GyoEnd
buf = Cells(i, Col).Value ’Colは日付データの列
If Not Dic.Exists(buf) Then
Dic.Add buf, cells(i,1).value
Else
Dic(buf) = Dic(buf) & cells(i,1).value
End If
Next i
今回は、手動で作業してしまったので、ここまで。
今回は、手動で作業してしまったので、ここまで。
PR
Comment