搬迁群众权益保障录入按键精灵代码，拿走不谢

UserVar Var1=0 "开始行号"

UserVar Var2=0 "结束行号"

path="d:\Users\Dell\Desktop\录入模板.xls"

index = Plugin.lxj_Office.lxj_ExcelOpen(path, 0)

Delay 5000

For i = var1 To var2

项目名称 = Plugin.lxj_Office.lxj_ExcelRead(1, i, 5, index)

重复次数 = Plugin.lxj_Office.lxj_ExcelRead(1, i, 6, index)

户主姓名 = Plugin.lxj_Office.lxj_ExcelRead(1, i, 11, index)

安置方式 = Plugin.lxj_Office.lxj_ExcelRead(1, i, 13, index)

现是否城镇户籍 = Plugin.lxj_Office.lxj_ExcelRead(1, i, 16, index)

安置住房不动产发证情况 = Plugin.lxj_Office.lxj_ExcelRead(1, i, 17, index)

土地性质 = Plugin.lxj_Office.lxj_ExcelRead(1, i, 18, index)

未发证原因 = Plugin.lxj_Office.lxj_ExcelRead(1, i, 19, index)

旧房拆除情况 = Plugin.lxj_Office.lxj_ExcelRead(1, i, 20, index)

未拆原因 = Plugin.lxj_Office.lxj_ExcelRead(1, i, 21, index)

// 选择项目

MoveTo 944,269

LeftClick 1

Delay 500

// 选择安置

MoveTo 347,266

LeftClick 1

Delay 500

Select Case 安置方式

Case "集中"

MoveTo 354,320

LeftClick 1

Delay 500

Case "分散"

MoveTo 355,346

LeftClick 1

Delay 500

End Select

// 项目名称

MoveTo 662,265

Delay 200

LeftDoubleClick 2

Delay 500

SayString 项目名称

Delay 500

// 查询

MoveTo 1024,265

LeftClick 1

Delay 500

// 点项目

MoveTo 226,380

LeftClick 1

Delay 500

// 确定

MoveTo 1125,510

LeftClick 1

Delay 500

// 选择户主姓名

MoveTo 376,386

LeftClick 1

Delay 500

LeftDoubleClick 2

Delay 500

SayString 户主姓名

Delay 500

// 查询

MoveTo 846,387

LeftClick 1

Delay 500

// 填报详细信息1

MoveTo 1036,450

LeftClick 1

Delay 500

MouseWheel -100

Delay 500

// 是否城镇户籍

MoveTo 342,447

LeftClick 1

Delay 200

Select Case 现是否城镇户籍

Case "否"

MoveTo 349,499

LeftClick 1

Delay 200

Case "是"

MoveTo 351,526

LeftClick 1

Delay 200

End Select

//安置住房不动产发证情况

MoveTo 342,478

LeftClick 1

Delay 200

Select Case 安置住房不动产发证情况

Case "否"

MoveTo 350,530

LeftClick 1

Delay 200

// 未发放原因

MoveTo 1032,477

LeftClick 1

Delay 200

Select Case 未发证原因

Case "自购房"

MoveTo 1040,531

LeftClick 1

Delay 200

Case "投亲靠友"

MoveTo 1041,558

LeftClick 1

Delay 200

Case "集中供养"

MoveTo 1041,583

LeftClick 1

Delay 200

Case "安置住房继承"

MoveTo 1039,612

LeftClick 1

Delay 200

Case "存在权属纠纷"

MoveTo 1041,640

LeftClick 1

Delay 200

End Select

Case "是"

MoveTo 350,557

LeftClick 1

Delay 200

//土地性质

MoveTo 688,476

LeftClick 1

Delay 200

Select Case 土地性质

Case "出让"

MoveTo 696,532

LeftClick 1

Delay 200

Case "划拨"

MoveTo 695,557

LeftClick 1

Delay 200

Case "集体"

MoveTo 696,586

LeftClick 1

Delay 200

End Select

End Select

// 旧房拆除情况

MoveTo 342,508

LeftClick 1

Delay 200

Select Case 旧房拆除情况

Case "否"

MoveTo 350,563

LeftClick 1

Delay 200

// 未拆除原因

MoveTo 860,509

LeftClick 1

Delay 200

Select Case 未拆原因

Case "列入国家核定保护旧房"

MoveTo 868,563

LeftClick 1

Delay 500

Case "申报纳入保护名录旧房"

MoveTo 868,590

LeftClick 1

Delay 500

Case "两户以上共同居住联体房"

MoveTo 868,617

LeftClick 1

Delay 500

Case "正在推进"

MoveTo 867,643

LeftClick 1

Delay 500

End Select

Case "是"

MoveTo 352,590

LeftClick 1

Delay 200

End Select

// 保存

MoveTo 1175,580

LeftClick 1

Delay 1800

// 保存成功

MoveTo 675,512

LeftClick 1

Delay 1800

Next

call Plugin.lxj_Office.lxj_ExcelClose(path)

MessageBox "录入结束"