利用HR库信息自动生成职称名录表、注册人员名录表

zhangq7337

想利用录入的HR信息库内容，自动生成职称名录表和注册人员名录表！
附件附后.。
请高手指教！！多谢！

kayes

学习学习 提高自己

dubing123321

过来学习下  适合小企业

vela_gan

下载学习了，谢谢，可打不开，说要下载个什么，请问需要什么运行环境，ＥＸＣＥＬ要哪个版本的，才能运行该件？

学以致用

不错，小企业蛮适合的。

mzy55555

这个东西很好 感谢楼主分享！万分感激！

zhangq7337

vela_gan 发表于 2012-3-11 12:32
下载学习了，谢谢，可打不开，说要下载个什么，请问需要什么运行环境，ＥＸＣＥＬ要哪个版本的，才能运行该 ...

版本：Excel2010

sunya_0529

做了两个自定义函数来提取姓名，顺便把你花名册里的几个公式优化了一下，留意红色字体所在列。

1. Option Explicit
   
2. 
   
3. Function GetZhicheng(strZhicheng$, strDengji$)
   
4. On Error Resume Next
   
5. Application.Volatile False
   
6. Dim cn As Object, sql$, arr, i%, strTemp$
   
7. Set cn = CreateObject("ADODB.Connection")
   
8. sql = "select 姓名 from [HR$B3:BO65536] where  like '" & Replace(strZhicheng, " ", "") & "%' and 等级='" & Replace(strDengji, " ", "") & "'"
   
9. cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes;IMEX=2';Data Source=" & ThisWorkbook.FullName
   
10. arr = cn.Execute(sql).GetRows
    
11. cn.Close
    
12. Set cn = Nothing
    
13. For i = 0 To UBound(arr, 2)
    
14.   strTemp = strTemp & "," & arr(0, i)
    
15. Next
    
16. GetZhicheng = Right(strTemp, Len(strTemp) - 1)
    
17. End Function
    
18. 
    
19. Function GetZhuce(strZhuce$)
    
20. On Error Resume Next
    
21. Application.Volatile False
    
22. Dim cn As Object, sql$, arr, i%, strTemp$
    
23. Set cn = CreateObject("ADODB.Connection")
    
24. sql = "select 姓名 from [HR$B3:BO65536] where 职业资格='" & Replace(strZhuce, " ", "") & "'"
    
25. cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes;IMEX=2';Data Source=" & ThisWorkbook.FullName
    
26. arr = cn.Execute(sql).GetRows
    
27. cn.Close
    
28. Set cn = Nothing
    
29. For i = 0 To UBound(arr, 2)
    
30.   strTemp = strTemp & "," & arr(0, i)
    
31. Next
    
32. GetZhuce = Right(strTemp, Len(strTemp) - 1)
    
33. End Function

复制代码

zhangq7337

非常感谢！！！

tubage2010

非常感谢！！！