Hi
I tried it but didnt work here is new code
Dim appXl As Excel.Applicatio
Dim oWorkBook As Excel.Workboo
Dim qTable As Excel.QueryTabl

Set appXl = CreateObject("Excel.Application"
appXl.Workbooks.Open somfile.xl

appXl.Worksheets("Data").Activat
appXl.ActiveSheet.UsedRange.Clea
Set qTable = appXl.ActiveSheet.QueryTables.Add(Connection:=
"TEXT;" & strCSVFileName, Destination:=Range("A1")
Set qTable = Nothin
appXl.Worksheets("Report").Activat
appXl.ActiveSheet.PivotTables("PivotTable1").Pivot Select "", xlDataAndLabel, Tru
For Each oWorkBook In appXl.Workbook
oWorkBook.Close SaveChanges:=Tru
Nex
Set oWorkBook = Nothin
appXl.Qui
Set appXl = Nothing