Sub celia(x, y)
MoveTo x, y
Delay 500
LeftClick 1
Delay 500
End Sub
Call celia(200,140) //通报主题
SayString "请建个人卡"
Delay 500
KeyPress "Enter", 1
Delay 500
Call celia(777, 207) //基本信息
Call celia(315, 1006) //Excel
Call celia(115, 222) //A1--id
KeyDown 17, 1 //copy
KeyPress 67, 1
KeyUp 17, 1
Delay 500
Call celia(179, 1010) //计生
Call celia(795, 240)
KeyDown 17, 1 //paste
KeyPress 86, 1
KeyUp 17, 1
Call celia(305, 1016) //Excel
Call celia(234, 221) //B1-name
KeyDown 17, 1 //copy
KeyPress 67, 1
KeyUp 17, 1
Call celia(173, 1015) //计生
Call celia(158, 239) //姓名
KeyDown 17, 1 //paste
KeyPress 86, 1
KeyUp 17, 1
Call celia(331, 1003) //Excel
Call celia(308, 222) //现居住地
KeyDown 17, 1 //copy
KeyPress 67, 1
KeyUp 17, 1
Call celia(182, 1006) //计生
Call celia(778, 306) //居住地详细地址
KeyDown 17, 1 //paste
KeyPress 86, 1
KeyUp 17, 1
Call celia(297, 1015) //Excel
Call celia(950, 221) //h1-户籍详细地址
KeyDown 17, 1 //copy
KeyPress 67, 1
KeyUp 17, 1
Call celia(182, 1006) //计生
Call celia(176, 308)
KeyDown 17, 1 //paste
KeyPress 86, 1
KeyUp 17, 1
Call celia(169, 343) //通报内容
SayString "请建个人卡"
Delay 500
Call celia(331, 1003) //Excel
Call celia(10, 220) //第一行
KeyDown 17, 1 //隐藏行
KeyPress 57, 1
KeyUp 17, 1
Delay 500
Call celia(331, 1003) //Excel