Leaderboard
Popular Content
Showing content with the highest reputation on 07/25/2022 in all areas
-
_Excel_FilterSet Exclusion
SkysLastChance reacted to water for a topic
Set Criteria1 to "<>0" (including the ")1 point -
$xlCellTypeVisible - (Moved)
SkysLastChance reacted to Nine for a topic
Ah I see. Try this then : #include <Excel.au3> #include <MsgBoxConstants.au3> #include <Array.au3> #include <StringConstants.au3> Local $sWorkbook = FileOpenDialog("Choose file loc Extract file", @ScriptDir, "ALL Excel Files (*.xlsx), *.xls") Local $oExcel = _Excel_Open() Local $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook) ;~ $oWorkbook = _Excel_BookAttach($sWorkbook) Local $sMSN = InputBox("MSN NO", "Enter MSN in XX FORMAT", "") _Excel_FilterSet($oWorkbook, $oExcel.ActiveSheet, "AF1", 32, "*" & $sMSN & "*") Local $oFilter= $oExcel.ActiveSheet.AutoFilter.Range.Rows.SpecialCells($xlCellTypeVisible).copy Local $oNewSheet = _Excel_SheetAdd ($oWorkbook, Default, False, 1, "Temp") $oNewSheet.paste $oNewSheet.Range("A1").Select Local $LastRow = $oWorkbook.ActiveSheet.Usedrange.Rows.Count Local $aLocDS = _Excel_RangeRead($oWorkbook, Default, "S1:S" & $LastRow) Local $aLocNr = _Excel_RangeRead($oWorkbook, Default, "A1:A" & $LastRow) _Excel_SheetDelete ($oWorkbook) _ArrayDisplay($aLocDS) _ArrayDisplay($aLocNr)1 point -
DriveGet... "Removable"1 point