Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx;*.slsm;*.sltx;*.sltm;*.xlsb;*.xlam" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "excel" '指定格式
mg.SourceTableName = "工资导入模板$" '合并表
mg.DataTableName = "Xcgl_工资单" '接收表
mg.fields="姓名,身份证号,岗位工资,保障工资,月生活费,工龄,岗位津贴,边补,回民补贴,女工补贴,其它,加班工资(上月),它得,车贴,通讯费,独生子女费,应得合计,补缴养老金,养老金,补缴公积金(个人),公积金,医保,补缴失业金,失业保险,补缴企业年金(个人),企业年金,会费,个税,扣款,它扣,扣款合计,实得合计,月份,备注" '合并列
'mg.fields="姓名,身份证号,岗位工资,保障工资,月生活费,工龄,岗位津贴,边补,回民补贴,女工补贴,其它,它得,车贴,通讯费,独生子女费,应得合计,补缴养老金,养老金,补缴公积金(个人),公积金,医保,补缴失业金,失业保险,补缴企业年金(个人),企业年金,会费,个税,扣款,它扣,扣款合计,实得合计,月份,备注" '合并列
'mg.FieldMaps.Add("姓名","姓名")
'mg.FieldMaps.Add("身份证号","身份证号")
'mg.FieldMaps.Add("岗位工资","岗位工资")
mg.FieldMaps.Add("保障工资","生活保障工资")
'mg.FieldMaps.Add("月生活费","月生活费")
mg.FieldMaps.Add("工龄","工龄工资")
'mg.FieldMaps.Add("岗位津贴","岗位津贴")
mg.FieldMaps.Add("边补","边远补助")
'mg.FieldMaps.Add("回民补贴","回民补贴")
mg.FieldMaps.Add("女工补贴","女职工卫生费")
mg.FieldMaps.Add("其它","其它津贴")
mg.FieldMaps.Add("加班工资(上月)","加班工资")
'mg.FieldMaps.Add("它得","它得")
mg.FieldMaps.Add("车贴","交通补助费")
mg.FieldMaps.Add("通讯费","通讯费补助")
mg.FieldMaps.Add("独生子女费","独生子女补贴")
'mg.FieldMaps.Add("应得合计","应得合计")
mg.FieldMaps.Add("补缴养老金","养老保险调整")
mg.FieldMaps.Add("养老金","养老保险")
mg.FieldMaps.Add("补缴公积金(个人)","公积金调整")
'mg.FieldMaps.Add("公积金","公积金")
mg.FieldMaps.Add("医保","医疗保险")
mg.FieldMaps.Add("补缴失业金","失业保险调整")
'mg.FieldMaps.Add("失业保险","失业保险")
mg.FieldMaps.Add("补缴企业年金(个人)","企业年金调整")
'mg.FieldMaps.Add("企业年金","企业年金")
mg.FieldMaps.Add("会费","工会会费")
mg.FieldMaps.Add("个税","个人所得税")
'mg.FieldMaps.Add("扣款","扣款")
mg.FieldMaps.Add("它扣","其它扣款")
'mg.FieldMaps.Add("扣款合计","扣款合计")
'mg.FieldMaps.Add("实得合计","实得合计")
'mg.FieldMaps.Add("月份","月份")
'mg.FieldMaps.Add("备注","备注")
mg.Merge()
End If
目前出现的是“表达式中‘加班工资’函数未定义
[此贴子已经被作者于2019/5/20 17:35:52编辑过]