Что нового

Записать значение в xls!!!

Bingo888

Новичок
Сообщения
36
Репутация
0
Добрый день. Есть код;
Код:
#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

Как у выделенном участке кода прописать так чтоб сохраняло в один файл построчно все выбранные значения, а не перезаписывало все в первой строке?
 
Верх