[ferget]

Код:

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)

[garanov]

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

#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