1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Sub test1()
Dim Tabl(18) As String
'Remplisssage de la variable
Tabl(0) = "DATETIME,o80769588,o80769589,o80769590,o80769591,o80769592,o80769593,o80769594,o80769595"
Tabl(1) = "2012-10-03 08:02:00.000,,,,15,7,,,"
Tabl(2) = "2012-10-03 08:03:00.000,2,1,1,1,1,1,2,2"
Tabl(3) = "2012-10-03 08:04:00.000,1,1,1,2,1,1,1,2"
Tabl(4) = "2012-10-03 08:05:00.000,2,1,2,1,1,1,2,2"
Tabl(5) = "2012-10-03 08:06:00.000,2,1,1,1,1,1,2,2"
Tabl(6) = "2012-10-03 08:07:00.000,2,1,1,1,1,1,2,2"
Tabl(7) = "2012-10-03 08:08:00.000,2,1,1,1,1,1,2,2"
Tabl(8) = "2012-10-03 08:09:00.000,2,1,1,2,1,1,2,2"
Tabl(9) = "2012-10-03 08:10:00.000,2,1,1,2,1,1,2,2"
Tabl(10) = "2012-10-03 08:11:00.000,2,1,2,2,2,2,1,2"
Tabl(11) = "2012-10-03 08:12:00.000,2,1,1,1,1,1,2,2"
Tabl(12) = "2012-10-03 08:13:00.000,2,1,1,1,1,1,1,2"
Tabl(13) = "2012-10-03 08:14:00.000,2,1,1,1,1,1,2,2"
Tabl(14) = "2012-10-03 08:15:00.000,2,1,1,2,1,2,2,2"
Tabl(15) = "2012-10-03 08:16:00.000,2,2,2,2,2,2,2,2"
Tabl(16) = "2012-10-03 08:17:00.000,4,4,3,3,3,3,4,4"
Tabl(17) = "2012-10-03 08:18:00.000,5,4,4,4,4,4,4,4"
Tabl(18) = "2012-10-03 08:19:00.000,5,5,4,4,4,4,5,5"
'traitement
Sheets.Add
Columns(1).NumberFormat = "dd/mm/yyyy hh:mm"
For i = 0 To UBound(Tabl)
col = 0
For Each Item In Split(Tabl(i), ",")
col = col + 1
Cells(i + 1, col) = Item
Next Item
Next i
End Sub |
Partager