#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)