Доброго времени суток!
Занимаюсь написанием скрипта, в котором использую _ExcelBookOpen() и _ExcelReadSheetToArray для вычислений.
Проблема в том, что на Windows 2003 (x86) и Office 2003 функция _ExcelBookClose работает (окно закрывается и процесс пропадает), а вот в Windows 7 x64 и Office 2010 - нет!
Как можно решить проблему? С чем она связана, кто знает?
Код привожу:
Кто знает, почему не закрывается окно и, следовательно, процесс. Как решить проблему?
Занимаюсь написанием скрипта, в котором использую _ExcelBookOpen() и _ExcelReadSheetToArray для вычислений.
Проблема в том, что на Windows 2003 (x86) и Office 2003 функция _ExcelBookClose работает (окно закрывается и процесс пропадает), а вот в Windows 7 x64 и Office 2010 - нет!
Как можно решить проблему? С чем она связана, кто знает?
Код привожу:
Код:
Func ExcelParse()
Local $copyArray
TrayTip("Обработка прайса", "Произвожу вычисления...", 3, 16)
$oExcel = _ExcelBookOpen($sFilePath1, 0)
$aArray = _ExcelReadSheetToArray($oExcel, 1, 1, 0, 1)
$iIndex = _ArraySearch($aArray, $FoundArti, 0, 0, 0, 1, 1, 1)
If @error Then
MsgBox(48, "Проблема", 'Артикул "' & $FoundArti & '" не найден в прайс-листе.')
_ExcelBookClose($oExcel, 0, 0)
Exit
Else
$name = _ExcelReadCell($oExcel, $iIndex, 2)
$cost = _ExcelReadCell($oExcel, $iIndex, 4)
$ves = _ExcelReadCell($oExcel, $iIndex, 6)
$copyArray = _ExcelReadSheetToArray($oExcel, $iIndex, 1, 1, 7)
_ExcelBookClose($oExcel, 0)
Calc()
EndIf
EndFunc ;==>ExcelParse