$oXL = CreateObject("EXCEL.application")

xlAddSheet($oXL, '+BACKEND', 'CENSUS', 33)
$LINEOUTPUTFC = "Path","Size","Free"
$oXL.Range("A1:C1").Value = $LINEOUTPUTFC
$oXL.Cells(2,1).Select
$oXL.ActiveWindow.FreezePanes = True
$oXL.Range("A1:C1").Font.Bold = 1
$rc = $oXL.Range("A1:C1").AutoFilter
$oXL.Range("A1:C1").Interior.Colorindex = 15
$oXL.Range("A1:C1").ColumnWidth = 42

:STARTOFVIPACEXPORT

$rc= $oxL.WorkSheets("BACKEND").Activate

$ARFILES = 1,2,3,4
For Each $ARF IN $ARFILES
  Open (7,"J:\xxxxxxxx\_-SCRIPTS-_\arx0" + $ARF + "@@xx.com - arx_exports_info.csv") 
  $VEDETAILS = ReadLine (7) ;DUMMY HEADER READ
  $VEDETAILS = ReadLine (7) ;1ST ACTUAL DATA LINE
  $VEDETAILS = Replace($VEDETAILS,'"',"")
  
  While @ERROR = 0
  	$VEARRAYS = Split($VEDETAILS,",")
  	$VEPATH = $VEARRAYS[1] + $VEARRAYS[3]
  	$VEPATH = Replace($VEPATH,"/","\")
  	$VELOOKUP = '=IfERROR(VLOOKUP($$B$EXCELROW8,BACKEND!$$A:$$B,2,FALSE),"")'
  	$ARRAYS = $VEARRAYS[2],$VEPATH,$VELOOKUP
  	$oXL.Range("A$EXCELROW8:C$EXCELROW8").Value = $ARRAYS
  	$EXCELROW8 = $EXCELROW8 + 1
  	$VEDETAILS = ReadLine (7)
  	$VEDETAILS = Replace($VEDETAILS,'"',"")
  Loop
	
	Close (7)
Next

$oXL.Range("A1:C1").EntireColumn.AutoFit 	

$oXL = CreateObject("EXCEL.application")
$OXL.visible=1
$RC=$oXL.workbooks.Open("D:\Excel\RemoveDuplicates\test.xlsx")
$oXL.ActiveSheet.Range("$A$1:$A$5").RemoveDuplicates(1,0)

$oXL.Range("A1:C1").EntireColumn.AutoFit

$ARRAYS = UCase($BKNASSOURCE),UCase($BKNASTRUNCSOURCE),UCase($NASARRAY[5])
$oXL.Range("A1:C1").Value = $ARRAYS

xlSort("A",,,)

Function xlSort($ByCol1,Optional $Order1,Optional $ByCol2,Optional $Order2,Optional $ByCol3,Optional $Order3)
	$xlHeader = 1 ; Sheet has a header 1=Yes 2=No
	Dim $ParmOk,$SortStartRow
	If $xlHeader = 1
		$SortStartRow = '2'
	Else
		$SortStartRow = '1'
	EndIf
	$ParmOk = 1
	For $i = 1 to 3 ; Parameter check
		$RC = Execute("
			If '' + $$Order$i = ''
				$$Order$i = 1 ; Default sortorder, ascending
			Else
				Select
					Case $$Order$i = 'A'
						$$Order$i = 1
					Case $$Order$i = 'D'
						$$Order$i = 2
					Case $$Order$i <> 1 And $$Order$i <> 2 ; Illegal parameter
						$$ParmOk = 0
				EndSelect
			EndIf
			$$ByCol$i = $$ByCol$i + '$SortStartRow'
		") ; End Execute
		If Not $ParmOk
		Return
	EndIf
	Next
	$RC = $oXl.Cells.Select
	If $ByCol2 <> $SortStartRow
		If $ByCol3 <> $SortStartRow
			$RC = $oXl.Selection.Sort($oXl.ActiveSheet.Range("$ByCol1"),$Order1,,
			$oXl.ActiveSheet.Range("$ByCol2"),$Order2,
			$oXl.ActiveSheet.Range("$ByCol3"),$Order3,$xlHeader)
		Else
			$RC = $oXl.Selection.Sort($oXl.ActiveSheet.Range("$ByCol1"),$Order1,,
			$oXl.ActiveSheet.Range("$ByCol2"),$Order2,,,$xlHeader)
		EndIf
	Else
		$RC = $oXl.Selection.Sort($oXl.ActiveSheet.Range("$ByCol1"),$Order1,,,,,,$xlHeader)
	EndIf
EndFunction

xlAddSheet($oXL, '+Sheet2', 'SHARES', 33)

     Function xlAddSheet($_ID, OPTIONAL $_Position, OPTIONAL $_Name, OPTIONAL $_TabColor)
	Dim $_, $_Err
	If Left($_Position, 1) = '+'
		$_Position = SubStr($_Position, 2)		; trim leading '+'
		$_ = $_ID.WorkSheets.Add(, $_ID.WorkSheets($_Position), 1)
	Else
		If $_Position
			If Left($_Position, 1) = '-'
				$_Position = SubStr($_Position, 2)	; trim leading '-'
			EndIf
			$_ = $_ID.WorkSheets.Add($_ID.WorkSheets($_Position), , 1)
		Else
			$_ = $_ID.WorkSheets.Add
		EndIf
	EndIf
	$_Err = @ERROR				; save the creation status
	If $_Name
		$_ID.ActiveSheet.Name = $_Name		; define the name, if supplied
	EndIf
	If $_TabColor
		$_ID.ActiveSheet.Tab.ColorIndex = $_TabColor
	EndIf
	$xlAddSheet = $_ID.ActiveSheet.Name		; return the name of the new sheet
	EXIT $_Err
EndFunction

	$oXL.ActiveWindow.FreezePanes = True
	$oXL.Range("A1:P1").Font.Bold = 1
	$oXL.Range("A1:P1").AutoFilter
	$oXL.Range("A1:P1").Interior.Colorindex = 15
	$oXL.Range("A1:P1").ColumnWidth = 42 
        $oXL.Range("E1").EntireColumn.Hidden = True
        $oXL.Range("P1:Q1").EntireColumn.AutoFit
        $oXL.APPLICATION.Calculation = 1  ; turns auto calc on/off. Great to turn it off. Do all your formatting then turn it on again before closing file. this way your not recalculating after each individual change.
        $oXL.Workbooks.Close
        $oXL.Quit

Function xlSave($FileName)
		$RC = $oXl.ActiveWorkbook.SaveAs($FileName,-4158,"","",0,0,,,0)
		; (2003) xlworkbooknormal = -4143
		;       51 = xlopenxmlworkbook (without macro's in 2007-2010, xlsx)
		;	52 = xlopenxmlworkbookmacroenabled (with or without macro's in 2007-2010, xlsm)
		;	50 = xlexcel12 (excel binary workbook in 2007-2010 with or without macro's, xlsb)
		;	56 = xlexcel8 (97-2003 format in excel 2007-2010, xls)
		; ".csv": fileformatnum = 6 commas
		; ".txt": fileformatnum = -4158 tabs
		; ".prn": fileformatnum = 36
EndFunction 

Function xlSheetName($_ID, OPTIONAL $_Old, OPTIONAL $_New)
	; if Old name not provided, return the active sheet name
	If $_Old = ''
		$xlSheetName = $_ID.ActiveSheet.Name
		EXIT @ERROR
	EndIf
	; complain if New name isn't provided
	If VarType($_New) = 0
		EXIT 87
	EndIf
	; Rename the sheet
	$_ID.WorkSheets($_Old).Name = $_New
	EXIT @ERROR
EndFunction