'Delay start of script by 30 seconds so that PowerShell script (1_Export_AD_Data_for_Recognition) to create the CSV completes
' WScript.sleep 30000

Const xlShiftToRight = -4161
Const xlUp = -4162

Dim lastRow, cel, rng, FSO
	
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Visible = FALSE
objExcel.DisplayAlerts = FALSE

Set objWorkbook = objExcel.Workbooks.Open("D:\rewardcentre\Recognition\Users_recognition.csv")

rowCount = 0
rowCount = objExcel.Cells(objExcel.Rows.Count, "A").End(xlUp).Row



for intRow=3 to rowCount
'  WScript.Echo "TEST1: " &objExcel.Cells(intRow,12).Value
  objExcel.Cells(intRow,12).Value = CDate(objExcel.Cells(intRow,12).Value)
'  if objExcel.Cells(intRow,12).Value="" then
'  end if
Next



Set objRange = objExcel.Range("L1").EntireColumn
'objRange.NumberFormat = "yyyy-mm-dd"
objRange.NumberFormat = "yyyy\-mm\-dd"

'    Selection.NumberFormat = "dd\/mm\/yyyy"



objWorkbook.SaveAs("D:\rewardcentre\Recognition\Users_recognition3.csv")
objExcel.Workbooks.Close()


Set objWorkbook = Nothing
objExcel.Quit 
Set objExcel = Nothing

Set FSO = Nothing

	
'WScript.Echo "Finished."
'WScript.Quit