#include <Excel.au3>
#include <MsgBoxConstants.au3>

DirCreate(@ScriptDir & "\Backups")
DirCreate(@ScriptDir & "\Edits_For_Uploads")
Global $BackupDir = @ScriptDir & "\Backups"
Global $EditDir = @ScriptDir & "\Edits_For_Uploads"
Global $TimeStamp = @YEAR&@MON&@MDAY&'_'&@HOUR&@MIN&@SEC
Global $SISBlankBackup = $TimeStamp & '_' & 'SISBlankBackup.xlsx'
Global $SISBlankEdit = $TimeStamp & '_' & 'SISBlankEdit.xlsx'
Global $SISAssignBackup = $TimeStamp & '_' & 'SISAssignBackup.xlsx'
Global $SISAssignEdit = $TimeStamp & '_' & 'Has Assigned Devices.xlsx'
Global $SISAssignEdit2 = @ScriptDir & '\ExcelExample.xlsx'

SISAssignExcelFilter("IN", 2)


Func SISAssignExcelFilter($vBuilding, $vStep = 1)
	;~ 	Open Excel
	Local $oExcel = _Excel_Open()
	If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel Filtering", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
	Local $oWorkbook = _Excel_BookOpen($oExcel, $SISAssignEdit2, True)
	If @error Then
		MsgBox($MB_SYSTEMMODAL, "Excel Filtering", "Error opening workbook '" & $SISAssignEdit2 & @CRLF & "@error = " & @error & ", @extended = " & @extended)
		_Excel_Close($oExcel)
		Exit
	EndIf

	Sleep(5000)

	;~  Add Advanced Filter array
	Local $aFilterValues = ['=E2<>"03"', '=E2<>"03"', '=G2=""', '""', '""', '=H2=""']
	_Excel_RangeWrite($oWorkbook, Default, $aFilterValues[0], "J2", False)
	_Excel_RangeWrite($oWorkbook, Default, $aFilterValues[1], "J3", False)
	_Excel_RangeWrite($oWorkbook, Default, $aFilterValues[2], "K2", False)
	_Excel_RangeWrite($oWorkbook, Default, $aFilterValues[5], "L3", False)

	;~  Apply Advanced Filter (Headers of filter array have to be blank...)
	$xlFilterInPlace = 'xlFilterInPlace'
	$oWorkbook.ActiveSheet.Range("A1:H24").AdvancedFilter($xlFilterInPlace, "$J$1:$L$3")

EndFunc