
1员工登记表
2背景调查(适合签订保密协议人员)
3应聘资料
4身份z复印件
5户口本复印件
6学位证书复印件
7学历证书复印件
8照片
9退工单/离职证明
10劳动合同
11保密协议
12职业病危害告知书
13员工手册签收回执
14职业资格证书复印件
15社会累计工龄核定资料
还需要注意的是:在填写了入职登记表,签订了劳动合同之后,每个员工会给一个工号,按照工号正式建立人事档案,更新员工花名册。员工档案除了纸质的,还有Excel表格,每个员工都要跟踪记录入职岗位和时间,劳动合同期限,社会保险办理情况,试用期评估情况,岗位和职级调动情况,年度工作考核情况,直至该员工离职为止。
扩展资料:
员工档案权责:
1、全体员工人事管理档案的建立、管理工作由人力资源部人事管理专员负责,各人力资源派驻机构或人员应在其指导下完成所属单位中层及以下员工的人事管理档案的建立、更新工作。
2、员工的人事资料由员工所在部门负责收集,并填写《人事(管理)档案资料移交清单》移交人力资源部。
3、 公司员工的人事管理档案,必须是一级部部长(含)以上的领导在其所属员工晋升、奖惩、异动、了解基本情况时方有权调阅。
参考资料:
在这些档案的文件夹(确保这个文件夹下只有你说的那些数字的文件,最好不要有别的文件,而且数字的位数最好要相等,否则可能会计算出很多不可预测的结果)
下新建一个excel文件
然后按ALT+F11
双击右边中部的:"Thisworkbook"
再把以下内容粘贴进去。
保存,运行(按F5)即可。
返回Excel文件即可以看到相关信息。D列就是缺少的文件名
Sub loadfile()
Dim file As String
Dim i As Integer
Dim r As Integer
Dim temp As Long
Dim lack As Integer
Worksheets("sheet1")Columns("A:g")ClearContents
file = Dir(ActiveWorkbookPath & "\", 7)
r = 1
Do While file <> ""
file = Left(file, InStrRev(file, "") - 1) '去扩展名
If file <> ActiveWorkbookName And VBAIsNumeric(file) Then
Cells(r, 1) = r
Cells(r, 2) = file
r = r + 1
End If
file = Dir()
Loop
For i = 1 To r
Cells(i, 3) = Cells(i, 2)
Next i
Columns("C:C")Sort Key1:=Range("C1"), Order1:=xlAscending
lack = 0
temp = Cells(1, 3)
i = 2
Do While i <= r
nexttemp:
temp = temp + 1
If temp <> Cells(i, 3) Then
If Left(temp, 4) = Left(Cells(i, 3), 4) Then
lack = lack + 1
Cells(lack, 4) = temp
GoTo nexttemp
Else
temp = Cells(i, 3)
End If
End If
i = i + 1
Loop
End Sub
excel本身是一个数据分析的工具,各种图表什么的。
如果想当成管理软件来用,有很多局限。比如:数据不一致,excel用于人和人之间时,很容易发生改变,一旦数据不能保持一致,那么以谁为准就是问题。另外,对设备建档管理,就是为了方便调用的,excel的网络性很差,又容易改变,使用起来很不方便。
过去excel统治天下,但是现在时代变了,改朝换代了。
excel服务器,就是为了应对管理需求的基于excel做的定向开发。很好的解决了,数据不一致,管理时调用困难的问题。
我很早以前也是用excel做管理,费劲的很。现在改为使用E立方excel服务器,可省心多了。我们单位现在的业务管理系统就是我做的,如果你遇到问题,可以问我,我们可以共同进步。
考勤表用EXCEL做,人员管理档我建议你用ACCESS,如果只是简单的人员信息,工资信息,年度考核,照片什么的,还是很简单的,想做了加我442354901,我这里有我做的单位的ACCESS人事信息库,可以让你参考一下、
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)