急请教表格数据统计

fcxk · 发表于 2015-11-3 21:35:11

把表格里的数据：

1、部门列删除掉
2、其他列改为备注（一周5天考勤次数20次）
3、统计正常、缺勤、迟到、早退、请假数据
20次减去迟到、早退、请假、次数统计到缺勤里

效果如2表格
最好能直接在表格里修改

fcxk · 发表于 2015-11-4 13:25:59

哪位大侠帮帮忙

terse · 发表于 2015-11-4 15:52:48

@if(0)==(0) echo off
del "%~dp0new_01.xls"
cscript -nologo -e:jscript %0 "%~dp01.xls" "%~dp0new_01.xls"
pause & exit
@end
var xlApp = new ActiveXObject("Excel.Application");
var xlBook = xlApp.Workbooks.open(WScript.Arguments.Item(0));
xlBook.worksheets(1).activate;
var XlSheet = xlBook.activeSheet;
var Count = XlSheet.usedrange.rows.count;
XlSheet.Range(XlSheet.Cells(1, 4),XlSheet.Cells(Count, 4)).Delete;
for(var i = 1; i <= Count; i++) {
XlSheet.Cells(i, 10).value = i > 1 ? "一周5天考勤次数20次" : "备注";
XlSheet.Cells(i, 6).value = i > 1 ? 20 - XlSheet.Cells(i, 5).value - XlSheet.Cells(i, 7).value - XlSheet.Cells(i, 8).value - XlSheet.Cells(i, 9).value : XlSheet.Cells(i, 6).value;
}
xlBook.SaveAs(WScript.Arguments.Item(1));
xlBook.Close();
xlApp.Quit();

复制代码

fcxk · 发表于 2015-11-4 19:04:57

本帖最后由 fcxk 于 2015-11-4 19:06 编辑

回复 3# terse

能不能把1表格设置成目录下任意表格
就是不一定是1.xls 有可能是其他名字
结果直接写到原文件里

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] 急请教表格数据统计