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

fcxk

把表格里的数据：

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

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

fcxk

哪位大侠帮帮忙

terse

@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

回复 3# terse


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