[решено] Вытащить ячейку из Excel файла и вставить в TXT файл

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

Вытащить ячейку из Excel файла и вставить в TXT файл

Значит есть файл "C:\in\1.xls" AUTOIT берет из этого файла ячейка B2 и копирует её содержимое в файл "C:\out\1.txt" после чего скрипт прекращает выполнение.

Вроде не сложно кажется... но вот что то не знаю как :(

Код:

include <Array.au3>

$oExcel = ObjCreate('Excel.Application')

$oExcel.Visible = True

$oExcel.WorkBooks.Open(@ScriptDir & '\1.xls')



$aA = $oExcel.Activesheet.Cells(1, 2).Value

   

MsgBox(64, 'Результат', $aA)

Сам разобрался спасибо

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

FileMove("D:\in\1.dbf", "D:\in\1.dbf.xls");
Local $sFilePath1 = "D:\in\1.dbf.xls" ;This file should already exist

Local $oExcel = _ExcelBookOpen($sFilePath1)

Dim $aArray[100][100]

For $i = 8 to 10
For $j = 2 To 6 ;Loop
$aArray[$i][$j] = _ExcelReadCell($oExcel, $i, $j)

if $aArray[$i][$j] = "ИТОГО:" then ExitLoop

Next
if $aArray[$i][$j] = "ИТОГО:" then ExitLoop
$result = $aArray[$i][3] & " " & $aArray[$i][4] & " " & $aArray[$i][5] & ";" & $aArray[$i][2] & ";" & $aArray[$i][6] & @CRLF

FileWrite("D:\out\1.txt", $result)
next

If @error = 1 Then
MsgBox(0, "Error!", "Unable to Create the Excel Object")
Exit
ElseIf @error = 2 Then
MsgBox(0, "Error!", "File does not exist - Shame on you!")
Exit
EndIf