Обработка Excel2007 не сохраненного листа >65535 строк с максимальной скоростью

$_FilePath='C:\!copy\'
$_FileStart='1.xlsx'
$_FileBuy='Buy.txt'
$_FileSell='Sell.txt'

$R=1; номер строки перед нужнымы данными
$StartDate="20111216"
$Buys=0
$Sells=0

GUICreate("Запись в файл", 300, 150)
GUICtrlCreateLabel($_FilePath&$_FileBuy, 30, 10)
GUICtrlCreateLabel($_FilePath&$_FileSell, 30, 30)
$stop_button = GUICtrlCreateButton("Стоп", 50, 100, 100)
GUISetState(@SW_SHOW)
$Begin=TimerInit()
$AllTime=TimerInit()
$Flag=0

While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $stop_button
			$Stoptime=TimerDiff($AllTime)
			FileWriteLine($_FilePath&$_FileBuy,$Stoptime)
			FileWriteLine($_FilePath&$_FileSell,$Stoptime)
			Exit
	ExitLoop
	EndSelect

$R=$R+1
;If TimerDiff($Begin)>5000 Then
;	Exit
;EndIf
$obj1 = ObjGet($_FilePath&$_FileStart)
$L1=$obj1.WorkSheets("1").Cells($R, 2).Value ;ячейка даты
$L2=$obj1.WorkSheets("1").Cells($R, 3).Value ;ячейка времени
$L3=$obj1.WorkSheets("1").Cells($R, 4).Value ; кол-во
$L4=$obj1.WorkSheets("1").Cells($R, 5).Value ; операция

$D=StringRight($L1,4)&StringMid($L1,4,2)&StringLeft($L1,2) ;дата к формату YYYYMMDD
$T=StringRegExpReplace($L2,":","")
$TT=StringLeft($T,4) ; время к формату HHMMSS

IF $D+0<>$StartDate+0 and $D<>"" Then
	ContinueLoop
EndIf

IF $L1<>"" Then
	IF $Flag=0 Then
		$TS=$TT
		$Flag=1
		$Buys=0
		$Sells=0
	EndIf
	If $TS=$TT then
		If $L4="Купля" Then
			$Buys=$Buys+$L3
		EndIf
		If $L4="Продажа" Then
			$Sells=$Sells+$L3
		EndIf
	Else
		$LBuy=$D&","&$TS&",0,0,0,0,"&$Buys ; формат вывода в строку покупок
		$LSell=$D&","&$TS&",0,0,0,0,"&$Sells ; формат вывода в строку продаж

		FileWriteLine($_FilePath&$_FileBuy,$LBuy)
		FileWriteLine($_FilePath&$_FileBuy,(TimerDiff($Begin)/1000)/60)

		FileWriteLine($_FilePath&$_FileSell,$LSell)
		FileWriteLine($_FilePath&$_FileSell,(TimerDiff($Begin)/1000)/60)

		$Begin=TimerInit()
		$TS=$TT
		If $L4="Купля" Then
			$Buys=$L3
			$Sells=0
		EndIf
		If $L4="Продажа" Then
			$Sells=$L3
			$Buys=0
		EndIf
	EndIf
Else
	FileWriteLine($_FilePath&$_FileBuy,TimerDiff($AllTime))
	FileWriteLine($_FilePath&$_FileSell,TimerDiff($AllTime))
	Exit
EndIf
	Sleep(100) ;пауза, чтобы не грузить процессор.

WEnd

#include <Excel.au3>
;#include <Array.au3>

$iBuy = 0
$sBuy = 'Купля'
$sFileExcel = @ScriptDir & '\1.xls';поменяйте расширение, я на 2003 проверял.
$sFileTemp = @ScriptDir & '\Temp.txt'
$sFileBuy = @ScriptDir & '\1_Buy.txt'
$sTime = ''
$sTimeOld = ''
If FileExists($sFileTemp) Then FileDelete($sFileTemp)
$o_Excel = _ExcelBookOpen($sFileExcel, 0)
If @error Then
	MsgBox(16, 'Error', '_ExcelBookOpen')
	Exit
EndIf
_ExcelBookSaveAs($o_Excel, @ScriptDir & '\Temp', 'txt')
If @error Then
	MsgBox(16, 'Error', 'Error')
EndIf
_ExcelBookClose($o_Excel, 0)

$sText = FileRead($sFileTemp)
$aBuy = StringRegExp($sText, '(?m)^(.*?' & $sBuy & '.*?)$', 3)
If @error Then
	MsgBox(16, 'Error', 'StringRegExp')
	Exit
EndIf
$sText = ''
;_ArrayDisplay($aBuy)
For $i = 0 To UBound($aBuy) - 1
	$iBuy += StringRegExpReplace($aBuy[$i], '.*\s(\d+)\s' & $sBuy, '$1');если я правильно понял, как это считается
	$sTime = StringRegExpReplace($aBuy[$i], '.*\s(\d{2}):(\d{2}).*', '$1$2,0,0,0,0,')
	If $sTimeOld <> $sTime Then
		$sTimeOld = $sTime
		$sText &= StringRegExpReplace($aBuy[$i], '.*(\d{2})\.(\d{2})\.(\d{4})\s.*', '$3$2$1,') & $sTimeOld & $iBuy & @CRLF
	EndIf
Next
$hFile = FileOpen($sFileBuy, 2)
FileWrite($hFile, StringTrimRight($sText, 2))
FileClose($hFile)
FileDelete($sFileTemp)

$sTime = StringRegExpReplace($aBuy[$i], '.*\s(\d{2}):(\d{2}).*','$1$2'&'pp,0,0,0,0,');

$sTime = StringRegExpReplace($aBuy[$i], '.*\s(\d{2}):(\d{2}).*','$1$2'&'00,0,0,0,0,');

$sString = '190	16.12.2011	10:00:04	105	Купля'

$sTime = StringRegExpReplace($sString, '.*\s(\d{2}):(\d{2}).*','$1${2}00,0,0,0,0,')
MsgBox(64, 'Info', $sTime)

$o_Excel = _ExcelBookAttach($sFileExcel,'FilePath');
;$o_Excel = _ExcelBookOpen($sFileExcel, 0);


_ExcelBookSaveAs($o_Excel, 'C:\STORAGE\'&$Instrument&'temp', 'txt');

#include <SQLite.au3>


Global $IniForTest="IniForTest.ini", $TxtForTest="TxtForTest.txt"

LogWrite("Старт внесения 100К записей в ini файл")
$timer = TimerInit()
For $Num=1 To 100000
IniWrite($IniForTest, $Num, $Num, $Num)
Next
$timer2=TimerDiff($timer)
LogWrite("запись в ini завершена "&$timer2)



LogWrite("Старт внесения 100К записей в txt файл")
$timer = TimerInit()
For $Num=1 To 100000
FileWriteLine($TxtForTest, $Num)
Next
$timer2=TimerDiff($timer)
LogWrite("запись в txt завершена "&$timer2)



_SQLite_Startup()
_SQLite_Open("DBTest.db")

_SQLite_Exec(-1,"Create table DBTest (Numdata, Data);")

LogWrite("Старт внесения 100К записей SQL")
$timer = TimerInit()
For $Num=1 To 100000
_SQLite_Exec(-1,"Insert into DBTest values ('"&$Num&"', '"&$Num&"' );" )
Next
$timer2=TimerDiff($timer)
LogWrite("запись в SQL завершена "&$timer2)

_SQLite_Close()
_SQLite_Shutdown()



Func LogWrite($Text)
FileWrite("!AutoLog.txt", $Text)
$LongOfString=80-StringLen($Text)
Do
FileWrite("!AutoLog.txt", " ")
$LongOfString=$LongOfString-1
Until $LongOfString=0
FileWrite("!AutoLog.txt", @HOUR&":"&@MIN&":"&@SEC&":"&@MSEC&@CRLF)
EndFunc

#include <Excel.au3>    
	$oExcel = _ExcelBookOpen("c:\tst.xls")
MakeBorderOfCell($oExcel, "A1:A10")
		
Func MakeBorderOfCell($oExcel, $Range="A1:A1")
$oSel = $oExcel.ActiveWorkBook.ActiveSheet.Range($Range)
With $oSel.Borders($xlEdgeLeft)
    .Weight = $xlThin
EndWith
With $oSel.Borders($xlEdgeTop)
    .Weight = $xlThin
EndWith
With $oSel.Borders($xlEdgeBottom)
    .Weight = $xlThin
EndWith
With $oSel.Borders($xlEdgeRight)
    .Weight = $xlThin
EndWith
With $oSel.Borders($xlInsideVertical)
    .Weight = $xlThin
EndWith
With $oSel.Borders($xlInsideHorizontal)
    .Weight = $xlThin
EndWith
EndFunc