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
| Sub TRANSFORM()
Dim FolderName As String, FName As String
Dim Wbk As Workbook
Dim LastLig As Long
Application.ScreenUpdating = False
FolderName = "C:\Users\SONY\Desktop\Dossier\"
FName = Dir(FolderName & "*.csv")
Do While Len(FName)
Set Wbk = Workbooks.Open(FolderName & FName)
With Wbk
With .Worksheets(1)
LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("A1:A" & LastLig).TextToColumns Destination:=.Range("A1"), Comma:=True
.Range("A1:F" & LastLig).NumberFormat = "General"
.Range("G1:G" & LastLig) = 0
.Rows(1).Insert
.Range("A1:G1").Value = Array("Att1", "Att2", "Att3", "Att4", "Att5", "Att6", "Class")
End With
.Close True
End With
Set Wbk = Nothing
FName = Dir
Loop
End Sub |
