separate single worksheet from group worksheet

[232showtime]

Hi,

I have a workbook with group worksheet, I want to separate a single worksheet from group and delete all group worksheet.

is there any way to ungroup a single worksheet from group worksheet???

Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_ICONERROR + $MB_TOPMOST, "Error!!!", "Unable to open excel")

Local $sWorkbook = $_sPath & "\" & ByYear.xlsx
Local $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook)
Local $_vUngroupSheet = $oWorkbook.Sheets("Jan2018").Activate

 

[water]

How to group worksheets is described here: https://bettersolutions.com/excel/worksheets/vba-grouping.htm

Ungrouping should work by only selecting a single worksheet.

[232showtime]

hi water,

I want to separate or deselect a single worksheet from a group worksheet without breaking the group worksheet then i will delete all the group worksheet.

I tried this line it is selecting the worksheet I want but it is ungrouping the other worksheet.

Local $_vUngroupSheet = $oWorkbook.Sheets("Jan2018").select

 

[water]

; Create an array containing the index of the selected sheets
Global $iSelectedSheets = $oWorkBook.ActiveWindow.SelectedSheets.Count ; How many sheets have been selected
Global $iUnselect = 1 ; Sheet to unselect
If $iSelectedSheets > 1 Then ; when there is a group of selected sheets
    Global $aSelectedSheets[$iSelectedSheets], $i = 0
    For $oSelectedSheet in $oWorkBook.ActiveWindow.SelectedSheets
        If $oSelectedSheet.Index <> $iUnselect Then 
            $aSelectedSheets[$i] = $oSelectedSheet.Index
            $i = $i + 1
        EndIf
    Next
    ; Unselect all selected sheets by only selecting the first sheet of the group
    $oWorkBook.Sheets($aSelectedSheets[0]).Select
    ; Select all other sheets
    $oExcel.Worksheets($aSelectedSheets).Select
EndIf

Set variable $iUnselect to the index of the sheet you want to remove from the group.
This code is totally untested (not even syntax checked) as I do not have AutoIt available at the moment.