|
楼主 |
发表于 2014-8-11 21:50:28
|
显示全部楼层
#include <Excel.au3>
#include <Array.au3>
Local $sFilePath1 = @ScriptDir & "\Plan.xlsx"
For $i=2 To 8
$i=2
Local $ExcelRow=$i ;开始录入的excel的行标。
Local $oExcel1 = _Excel_Open(Default,Default,Default,true,Default)
Local $oExcel = _Excel_BookOpen($oExcel1,$sFilePath1)
$cominfo=_Excel_RangeRead($oExcel,Default,"C"&$i&":"&"F"&$i)
_ArrayDisplay($cominfo, "Vertical")
If $cominfo[0][3]="r" Then
Local $date=$cominfo[0][1]
$code="211301"& $cominfo[0][0]
MsgBox(64,"",$cominfo[0][1])
Do
WinActivate("月缴费")
Sleep(200)
ControlClick("","","Button15","left")
Sleep(100)
ControlSetText("","","PBEDIT603",$date)
ControlSetText("","","PBEDIT601",$code)
Sleep(100)
Send("{tab 3}{enter}")
WinWaitActive("提示","单位",3)
Send("Y")
Sleep(8000)
MouseClick("left",707,264,1) |
|