Копирование текста из IE в Excel и расфасовка по ячейкам

Local $hDownload = InetGet("http://supernovabots.com/prices_0.txt", @TempDir & "\prices_0.txt", 1, 1)
Do
    Sleep(250)
Until InetGetInfo($hDownload, 2)
InetClose($hDownload)

$file = FileOpen(@TempDir & "\prices_0.txt", 0)

If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf
	$FlagBegin = False
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
	If (StringLeft($line, 4) == "Name") Then
		$NametoBuy = StringInStr($line, "Buy")-1
		$NametoSell = StringInStr($line, "Sell")-1
		$NametoBot = StringInStr($line, "Bot")-1
		
		$BuytoSell = StringLen(StringMid($line, $NametoBuy, $NametoSell-$NametoBuy))
		$SelltoBot = StringLen(StringMid($line, $NametoSell, $NametoBot-$NametoSell))
		$FlagBegin = True
	EndIf
	If ($FlagBegin = True) Then
		If (StringLeft($line, 3) <> "") Then
			If (StringLeft($line, 3) <> "===") Then
 				$STR_NAME = StringRegExpReplace(StringLeft($line, $NametoBuy ), '\A[\s]*|[\s]*$', '')  ;~ 1 столбик
				$STR_BUY = StringRegExpReplace(StringMid($line, $NametoBuy, $BuytoSell ), '\A[\s]*|[\s]*$', '') ;~ 2 столбик
				$STR_SHELL = StringRegExpReplace(StringMid($line, $NametoSell, $SelltoBot ), '\A[\s]*|[\s]*$', '') ;~ 3 столбик
				$STR_BOT = StringRegExpReplace(StringMid($line, $NametoBot ), '\A[\s]*|[\s]*$', '') ;~ 4 столбик
					ConsoleWrite($STR_NAME&" | "&$STR_BUY&" | "&$STR_SHELL&" | "&$STR_BOT & @CRLF)
;~ 					MsgBox(0,"", $STR_NAME&" | "&$STR_BUY&" | "&$STR_SHELL&" | "&$STR_BOT)
;~ -------------------------------------------------------------------------------------------
;~ 							 Здесь уже работаем с Excel'ем
;~ 							Открываем - ищем - меняем и т.п.
;~ -------------------------------------------------------------------------------------------
			EndIf
		EndIf
	EndIf
	
Wend

FileClose($file)