• 新浪微博:
  • 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.7.0
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.7
软件大小:29.2M
更新时间:12-06

按键手机助手
立即下载

软件版本:3.7.7
软件大小:262M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

读取eXCEL,出错 [复制链接]

1#
Dim M
M = Int((M1 - M2 + 1) * Rnd + M2)
Delay M * 1000
Delay 2000
Event Form1.Load
End Event
//以下为标签

Event Form1.Label1.Click

End Event
Event Form1.Label2.Click

End Event

Event Form1.Label3.Click

End Event
//以下为按钮
Event Form1.Button1.Click
KeyPress "F10", 1
End Event
Event Form1.Button2.Click
KeyPress "F12", 1
End Event


//以下为文件按钮



//以下为第一条订单
Dim t
t = Int((1500 - 500 + 1) * Rnd + 500)
Randomize
Delay t
KeyPress "Enter", 1
Delay t
Randomize
X = Int((780 - 490 + 1) * Rnd + 490)
Y = Int((305 - 290 + 1) * Rnd + 290)
MoveTo X, Y
LeftClick 1
Delay 1000
//下面这句是打开Excel文档工作表
//ActiveX component can't create object, 点击按钮时显示以这条代码,怎么解决 这个按钮的表达意思是,打开EXCEL,然后读取指定表格输出,
//当然后续我是要读取某一列的数值,判断数值大于10,则读取对应的行输出
Event Form1.Button3.Click
Dim Button3
Plugin.Office.OpenXls(Button3)
Button3 = filepath
Text = Plugin.Office.ReadXls(1, 1, 2)
SayString Text
End Event









Randomize
Delay t
X = Int((910 - 810 + 1) * Rnd + 810)
Y = Int((305 - 290 + 1) * Rnd + 290)
MoveTo X, Y
LeftClick 1
Randomize
Delay t
Randomize
Delay t
X = Int((1117 - 972 + 1) * Rnd + 972)
Y = Int((849 - 807 + 1) * Rnd + 807)
MoveTo X, Y
LeftClick 1

发新话题 回复该主题