Описание: Добрый всем день! Возникла проблема при создании скрипта, который будет считывать данные из Excel файла при нажатии на кнопку. Файл прилагается, но в результате либо вообще ничего не происходит, либо выдается два сообщения с нулями.
Примечания: Заранее спасибо)
Код:
#include <GUIConstants.au3>
#include <Excel.au3>
#include <Array.au3>
#include <GUIConstants.au3>
GUICreate("My GUI")
GUISetState (@SW_SHOW)
$Button1 = GUICtrlCreateButton ("Копируем следующее место", 10, 30, 170)
Local $nMsg
While 1
$msg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Read()
EndSwitch
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend
Func _Read()
$sFilePath = @ScriptDir & '\test.xls'
$oExcel = _ExcelBookOpen($sFilePath)
$kolvomest = Inputbox("","Количество исследований")
for $i = 1 to $kolvomest
$Xcoords = _ExcelReadCell($oExcel, $i, 1)
$Ycoords = _ExcelReadCell($oExcel, $i ,3)
Msgbox("","",$Xcoords)
Msgbox("","",$Ycoords)
Next
EndFunc
Примечания: Заранее спасибо)