Добрый день. Есть код;
Как у выделенном участке кода прописать так чтоб сохраняло в один файл построчно все выбранные значения, а не перезаписывало все в первой строке?
Код:
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
#include <GuiTab.au3>
#include <ProgressConstants.au3>
#include <Array.au3>
#include <Excel.au3>
#include <File.au3>
#include <AutoItConstants.au3>
#include <GUIStatusBar.au3>
Local $oExcel = _Excel_Open(False)
Local $sWorkbook = @ScriptDir & "\in\import.xls"
Local $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook)
Local $Result = _Excel_RangeRead($oWorkbook)
_ArrayDisplay($Result)
Global $inn[UBound($Result)]
Local $oExcel1 = _Excel_Open(False)
Local $sWorkbook1 = @ScriptDir & "\BEIS\data.xls"
Local $oWorkbook1 = _Excel_BookOpen($oExcel1, $sWorkbook1)
Local $Result1 = _Excel_RangeRead($oWorkbook1)
For $i =1 To UBound($Result)-1
$inn[$i] = $Result[$i][1]
$sSearch = $inn[$i]
$sColumn =2
$n = _ArraySearch($Result1, $sSearch, 0, 0, 0, 1, 1, $sColumn)
If @error Then
MsgBox(4096, "Не найдено", $sSearch & '" не найдено в колонке ' & $sColumn & '.')
Else
$k=1
Local $aResult[$k][1]
$aResult[0][0] = 'Дата формування'
$ss=$Result[$i][5]
$PIB=$Result1[$n][3]
$adresa=$Result1[$n][14]
$kod=$Result1[$n][2]
$k+=1
Redim $aResult [$k][3]
$aResult [$k-1][0] = $kod
$aResult [$k-1][1] = $PIB
$aResult [$k-1][2] = $ss
MsgBox(4096, "", $kod&$PIB &$ss& '.')
$save = @ScriptDir&"\send\1080700.xls";
[COLOR=rgb(247, 218, 100)]Local $oExce2 = _Excel_Open(True)
Local $oBook = _Excel_BookNew($oExcel, 1)
_Excel_RangeWrite($oBook, $oBook.Activesheet, $aResult)
_Excel_BookSaveAs($oBook, $save)
_Excel_BookClose($oBook)
_Excel_Close($oExce2)[/COLOR]
EndIf
Next
Как у выделенном участке кода прописать так чтоб сохраняло в один файл построчно все выбранные значения, а не перезаписывало все в первой строке?