Foxtable(狐表)用户栏目专家坐堂 → [求助]导入Excel时出现函数未定义


  共有2027人关注过本帖树形打印复制链接

主题:[求助]导入Excel时出现函数未定义

帅哥哟,离线,有人找我吗?
JN_LC
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:130 积分:1434 威望:0 精华:0 注册:2015/12/7 13:25:00
[求助]导入Excel时出现函数未定义  发帖心情 Post By:2019/5/20 17:15:00 [只看该作者]

我在用Merger合并数据时,出现表达式中“列名”函数未定义。检查了多次,不知什么原因,请赐教!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/20 17:28:00 [只看该作者]

 

贴出你所写代码。

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
JN_LC
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:130 积分:1434 威望:0 精华:0 注册:2015/12/7 13:25:00
  发帖心情 Post By:2019/5/20 17:34:00 [只看该作者]

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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/20 17:52:00 [只看该作者]

把这种列删除后测试

 

加班工资(上月) 补缴企业年金(个人) 等

 

你修改列名,或者改成,比如 [补缴公积金(个人)]


 回到顶部