Dim dRets = ""
Dim dRet = ""
Dim bRet = ""
Dim dTime = ""
Dim iRets = ""
Dim ddsj = ""
Dim cfsJ = ""
Dim arrayRet = ""
Dim temp = ""
Dim sRet = ""
Dim iRet = ""
Dim objExcelWorkBook = ""
objExcelWorkBook = Excel.OpenExcel('''C:\Users''',True,"Excel","","")
iRet = Excel.GetRowsCount(objExcelWorkBook,"Sheet1")
TracePrint(iRet)
Do While True
sRet = Dialog.InputBox("请输入需要预定的航班序号","航班信息预定","",False)
iRets = CInt(sRet)
If iRets=0
iRet = Dialog.MsgBox("您序号输入有误,请重新输入","UiBot","0","1",0)
Continue
Else
If iRets<iRet
temp = iRets-1
TracePrint(temp)
arrayRet = Excel.ReadRow(objExcelWorkBook,"Sheet1","A"&temp)
TracePrint(arrayRet)
dRet = CNumber(arrayRet[2])
cfsj = Time.Format(dRet,"hh:mm:ss")
dRets = CNumber(arrayRet[3])
ddsj = Time.Format(dRets,"hh:mm:ss")
iRet = Dialog.MsgBox("您预定的航班号为"&arrayRet[1]&"出发时间为"&cfsj&"到达时间为"&ddsj&"价格为"&arrayRet[4],"UiBot","0","1",0)
Break
Else
iRet = Dialog.MsgBox("您序号输入有误,请重新输入","UiBot","0","1",0)