用AutoHotkey根据Excel表一键填写浙江省资产负债表

在【打印】页面导出到Excel表，脚本是模拟手工按Tab键来切换输入框，有些区域是不需要填写的，也就不需要按Tab键，

所以需要标识出来，有两种方式（2选1）：

Excel表”C，G“两列内有数值而网页上为灰色或无输入框的相应单元格标上任意背景色。见下图
Excel表”C，G“两列内有数值而网页上为灰色或无输入框的相应单元格地址记录到脚本的addrExclude内。

（默认已填写 C19,C25,C34,C35,G15,G21,G22,G34,G35 这几个单元格。

方法1比较直观，但需要手工操作，以后导出的表格默认不带背景色，都需要手工处理，麻烦些。

方法2比较省事，靠脚本控制，更一劳永逸。

然后鼠标激活第一个要填的框（货币资金的期末余额），按F1即可。

脚本使用见置顶贴

F1::addrExclude := "C19,C25,C34,C35,G15,G21,G22,G34,G35" ;有数值但不填的单元格地址rLoop := 5 ;要填的数据-起始行rMax := 33 ;要填的数据-最后一行Send("{Ctrl Down}a{Ctrl Up}");获取Excel表数据ctlID := ControlGetHwnd("Excel71", "Ahk_class XLMAIN")idObject := -16If DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", ctlID, "UInt", idObject&=0xFFFFFFFF, "Ptr", -VarSetCapacity(IID,16)+NumPut(idObject==0xFFFFFFF0?0x46000000000000C0:0x719B3800AA000C81,NumPut(idObject==0xFFFFFFF0?0x0000000000020400:0x11CF3C3D618736E0,IID,"Int64"),"Int64"), "Ptr*", pacc) = 0win := ComObject(9, pacc, 1)xl := win.Applicationst := xl.ActiveSheetrLoop := 5arr := []While(rLoop <= rMax){idx := A_Indexarr[idx] := []For _, col In ["C","G"]{cellLoop := st.Cells(rLoop,col);If (!(cellLoop.Value ~= "\d") || cellLoop.Interior.ColorIndex != -4142) ;无数字或有背景色，Tab键要跳过If (!(cellLoop.Value ~= "\d") || addrExclude ~= cellLoop.Address(False,False) . "(\D|$)") ;无数字或在addrExclude内，Tab键要跳过arr[idx][A_Index] := "skip"Else If (cellLoop.Value > 0){Tryarr[idx][A_Index] := RTrim(RegExReplace(Round(cellLoop.Value,2), "^-?\d+\.\d*?\K0+$"), ".")CatchMsgBox(cellLoop.Address . "`n" . cellLoop.Value)}}rLoop++}For _, arrRow In arr{Loop(2){If arrRow.HasKey(A_Index){If (arrRow[A_Index] != "skip")Send(arrRow[A_Index] . "{Tab 2}")}ElseSend("{Tab 2}")Sleep(200)}}
Return

转载于:https://www.cnblogs.com/hyaray/p/10817025.html

用AutoHotkey根据Excel表一键填写浙江省资产负债表相关推荐

项目进度计划表(模板)_开工必备！excel表一键绘图，施工进度计划横道图从此不用愁...
开工必备!excel表一键绘图,施工进度计划横道图从此不用愁横道图在工程进度计划制定以及项目管理等方面运用的非常频繁,这也是每个项目管理人员必备的工具之一,但很多人不会用Excel绘制施工进度横道图 ...
将excel转为python的字典_python读取excel表并把数据转存为字典
excel表如下: 我们需要通过使用python的xlrd方法先读取excel,再遍历赋值给字典.代码如下: importxlrdclassRead_Ex():defread_excel(self): ...
关于扫码签到统计信息，一键导出excel表
1.首先进入草料二维码官网 2.微信扫码登录注册,登录成功后即可进入草料二维码后台(手机微信小程序也可以实时查看后台数据) 3.根据自己需要创建活动二维码(选择自己喜欢的模板,这里我们选择的是会议签到 ...
python一键合并上千个Excel表（对不起！！因为这事，我和同事吵了一架）
如果你觉得对你有用,留下一个赞再走,不过分吧!!谢谢!! 文章目录一.老板的需求总是莫名奇妙二.别人不帮你,你帮你自己三.上干货,看不懂,我买飞机票给你四.上代码:(每一步都有注释,完全不用担 ...
Excel对隐藏的多个工作表一键批量命名的操作
今天小编要分享的是,Excel对隐藏的多个工作表一键批量命名的操作 (方方格子插件) 1.先看动图演示吧 2.我们的目的是将隐藏的阿拉伯数字的班级表名替换为汉字的表格,如图选中的数据 3.那我 ...
Excel如何一键隐藏工作表中未选中的数据区域？
今天要和大家分享的是,Excel如何一键隐藏工作表中未选中的数据区域呢?今天这个分享有点突兀啊,大家好好理解下是隐藏的未选中区域,也就是我们只显示下图中标蓝的部分-- (方方格子插件) 1.先看动图演 ...
wps合并所有sheet页_Python一键合并上千个Excel表，一天的工作量一小时搞定！下班...
一.老板的需求总是莫名奇妙老板需求:一天老板说,嘿!放牛娃,将这些excel表合并到一个总表里,下班前交给我老板话刚讲完,我心里就想,这还不简单么,excel不就是有合并表的功能么!!简单的要死! ...
EXCEL工资表一键转化工资条短信如何操作
工资条的种类呢,非常多.传统的纸质工资条.是财务人员通过Excel表.打印出来以后裁剪.给到员工.但是这种工资条呢,有一定的局限性.如果企业员工不多的情况下呢,是可以使用的.如果企业员工数量很庞大这种 ...
excel中使用VBA进行多工作簿或多工作表一键汇总
1. 同一目录下的多工作簿,每个工作簿中有一张或多张工作表,一键全部汇总 Sub 合并目录所有工作簿全部工作表()Dim MP, MN, AW, Wbn, wnDim Wb As WorkbookDi ...

用AutoHotkey根据Excel表一键填写浙江省资产负债表

用AutoHotkey根据Excel表一键填写浙江省资产负债表相关推荐

最新文章

热门文章