如何根据员工信息登记表生成每位员工的信息表文件？

作者：绿色风分类：时间：2022-08-17 浏览：83

楼主
omnw

Q:如何根据员工信息登记表生成每位员工的信息表文件？
A:如果员工信息表中已经根据索引号建立各项数据与员工信息登记表的引用，可以使用以下代码生成每位员工的信息表，并单独存在成一个工作薄。

Sub 按钮1_Click()
Dim i As Integer
Dim j As Integer
Application.DisplayAlerts = False '关于警告，在出现重名文件时直接覆盖
Application.ScreenUpdating = False '取消屏幕刷新，提高执行速度
For i = [O3] To [O5] '开始从起始序号至终止序号的循环
[O1] = i '赋予信息序号
ActiveSheet.Copy '将当前人员信息表复制到一个新文件中
Range("A1:M177").Select '选中信息数据
Selection.Copy '以下两句代码取消信息表中的公式和引用
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("N:S").Delete '删除表格右侧多余的信息
Range("A1").Select
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & [G2] & [D2] '保存信息表
ActiveWorkbook.Close '关闭信息表
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

新员工基本信息表.rar

2楼
zhyy慕容佳

一头雾水，怎么操作呀，请教了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表