功能需求：监测excel工作簿内sheets的个数，并同时传递sheet内的数据到汇总表汇总数据，每一个单元格有对应的项目。新增单个数据表sheet时，汇总表自动增加一行记录。
软件环境：办公软件excel+VB程序命令
汇总表数据
单个对象数据表，存储单个工人的各项数据1
单个对象数据表，存储单个工人的各项数据2
单个对象数据表，存储单个工人的各项数据3
单个对象数据表，存储单个工人的各项数据4
VB 程序命令
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim i, j As Integer `定义i,j整数，i为表序，j为数据表个数
j = ThisWorkbook.Sheets.Count
For i = 2 To j Step 1`由于汇总表占据了一张表，所以所需要汇总的数据表从第二张表开始
Sheets(1).Cells(i, 1) = Sheets(i).Cells(1, 2).Value `汇总单个数据表数据到汇总表
Sheets(1).Cells(i, 2) = Sheets(i).Cells(1, 4).Value
Sheets(1).Cells(i, 3) = Sheets(i).Cells(1, 6).Value
Sheets(1).Cells(i, 4) = Sheets(i).Cells(2, 2).Value
Sheets(1).Cells(i, 5) = Sheets(i).Cells(2, 4).Value
Sheets(1).Cells(i, 6) = Sheets(i).Cells(2, 6).Value
Next
End Sub