#include <Excel.au3> ; Подключить
#include <Array.au3> ; Подключить
...
$aTabs = StringSplit($sTabs, @CRLF, 2)
For $i = UBound($aTabs) - 1 To 0 Step -1 ; Удалим пустые строки
If $aTabs[$i] = "" Then
_ArrayDelete($aTabs, $i)
EndIf
Next
Local $oExcel = _Excel_Open()
$oExcel.visible=False
IF NOT FileExists(@ScriptDir & "\Список.xlsx") Then
Local $oBook = _Excel_BookNew($oExcel)
Else
Local $oBook = _Excel_BookOpen($oExcel, @ScriptDir & "\Список.xlsx")
EndIf
_Excel_RangeWrite($oBook, $oBook.Activesheet, $aTabs, "A1")
_Excel_BookSaveAs($oBook, @ScriptDir & "\Список.xlsx")
_Excel_Close($oExcel, True, True)