求助大神们帮写个人员信息导入和导出的代码

ykcbf1100 · 发表于 2023-2-27 11:14

七月安未生发表于 2023-2-27 11:07
汇总表里点导入，数据就会导入，再次点导入，就累计导入了，但是导入的数据和前面的数据是重复的

数据写入前先清空数据区就行。

七月安未生 · 发表于 2023-2-27 11:14

ykcbf1100 发表于 2023-2-27 11:09
你这是要先清空汇总表吗？

不是。要求一个人员名单表里导入数据，是去重了再导入，这个功能你已经帮实现了。另外要求是再导入其他的人员名单表时，人员名单依次往下填，但是如果新的表里出现和已导入的人员名单重复的就不要导入，只要求导入新的数据

arsong · 发表于 2023-2-27 11:24

附件供参考

七月安未生 · 发表于 2023-2-27 11:34

arsong 发表于 2023-2-27 11:24
附件供参考

有个问题，“在职人员名单1”和“在职人员名单2”导入后，最后应该有5个人的名单，但运行代码后只有3个人。而且名单1导入的时候只有导入了2个人，名单2导入的时候只导入了1个人

ykcbf1100 · 发表于 2023-2-27 11:57

七月安未生发表于 2023-2-27 11:14
不是。要求一个人员名单表里导入数据，是去重了再导入，这个功能你已经帮实现了。另外要求是再导入其他的 ...

我的代码就是这样的啊。

gwjkkkkk · 发表于 2023-2-27 12:12

七月安未生发表于 2023-2-27 11:34
有个问题，“在职人员名单1”和“在职人员名单2”导入后，最后应该有5个人的名单，但运行代码后只有3个人 ...

请参考。。。

shiruiqiang · 发表于 2023-2-27 13:03

1、汇总等三份表中都需要模拟数据；2、就是遍历汇总表、名单1和名单2，用字典创建；3、清除汇总表，然后把字典写入。这样原来的名单不会变动，新的不重复的在汇总名单后面加上去了。建议多身份证一栏，避免相同姓名可能

arsong · 发表于 2023-2-27 13:29

七月安未生发表于 2023-2-27 11:34
有个问题，“在职人员名单1”和“在职人员名单2”导入后，最后应该有5个人的名单，但运行代码后只有3个人 ...

是我疏忽了，改一下就行
With .[A4].Resize(UBound(arrO) + 1, 7)
         .Value = arrO
         .Borders.LineStyle = 1
      End With

arsong · 发表于 2023-2-27 13:32

附件供参考

arsong · 发表于 2023-2-27 14:23

本帖最后由 arsong 于 2023-2-27 14:24 编辑

完善了导出功能

		自动登录	找回密码
密码			免费注册

[求助] 求助大神们帮写个人员信息导入和导出的代码