数据库中导出的工资数据如何转换成标准工资单？

laughtiger

我现在使用一套人事工资软件，软件中的报表做不到我想要分析的样式，我只有从数据库中导出原始数据，再用Excel数据透视表加工，原始数据导出如下： 想转换成以下格式，


不同部门的员工的工资科目有不同，转换后如有不相科目自动加到后面，不知有什么简单方法，是不是取外部数据时用SQL语句完成，还是用VBA编程转换？
工资转换.rar (44.2 KB, 下载次数: 34)

2011-12-23 14:20 上传

点击文件名下载附件

zhaogang1960

试试下面SQL语句:
Select 年月,工号,姓名,岗位,部门,性别,sum(iif(科目='出勤',金额,0)) as 出勤,sum(iif(科目='计件工资',金额,0)) as 计件工资,sum(iif(科目='计件加班费',金额,0)) as 计件加班费,sum(iif(科目='全勤奖',金额,0)) as 全勤奖,sum(iif(科目='实发工资',金额,0)) as 实发工资,sum(iif(科目='宿舍费用',金额,0)) as 宿舍费用,sum(iif(科目='养老保险',金额,0)) as 养老保险,sum(iif(科目='医疗保险',金额,0)) as 医疗保险,sum(iif(科目='应发工资',金额,0)) as 应发工资,sum(iif(科目='综合计件工资',金额,0)) as 综合计件工资 from [原始工资数据$] group by 年月,工号,姓名,岗位,部门,性别

zhaogang1960

1. Sub Macro1()
   
2.     Dim cnn As Object, SQL$, a, b, i%, s$
   
3.     a = [a1:f1&""]
   
4.     b = [g1:p1&""]
   
5.     For i = 1 To UBound(b)
   
6.         s = s & ",sum(iif(科目='" & b(i) & "',金额,0)) as " & b(i)
   
7.     Next
   
8.     Set cnn = CreateObject("ADODB.Connection")
   
9.     cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source =" & ThisWorkbook.FullName '如果数据在数据库，数据源和下面的数据表需要修改
   
10.     SQL = "Select " & Join(a, ",") & s & " from [原始工资数据$] group by " & Join(a, ",")
    
11.     [a1].CurrentRegion.Offset(1).ClearContents
    
12.     [a2].CopyFromRecordset cnn.Execute(SQL)
    
13.     cnn.Close
    
14.     Set cnn = Nothing
    
15. End Sub
    

复制代码

也可以使用VBA: