|
#include <Excel.au3>
#include <GUIConstantsEx.au3>
GUICreate("excel查找窗口",300,300)
$a=GUICtrlCreateButton("确认按钮",100,60,60,30)
$b=GUICtrlCreateInput("",70,30,150,20)
GUISetState(@SW_SHOW)
Func serach()
$sFilePath1 = "E:\电信技术资料\1.xls"
$oExcel = $sFilePath1
for $i=0 to 20 step 1
if GUICtrlRead($b)=_excelreadarray($oExcel,$i,1,1) then
MsgBox(0,"确认输入",_excelreadarray($oExcel,1,1,1))
exitloop
Else
MsgBox(0,"无法找到","error")
exitloop
EndIf
Next
endfunc
while 1
$msg=GUIGetMsg()
Select
case $msg=$GUI_EVENT_CLOSE
exit
case $msg=$a
serach()
EndSelect
WEnd
[ 本帖最后由 bin0131 于 2009-2-9 16:13 编辑 ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?加入
×
|