将学生名单写入当前文件夹的指定文件中

yongpingzhu918 · 发表于 2020-6-12 08:44

本帖最后由 yongpingzhu918 于 2020-6-13 10:03 编辑

将学生名单写入当前文件夹的指定文件中

3190496160 · 发表于 2020-6-12 09:35

Sub 写入学生名单()
Application.ScreenUpdating = False
f = Dir(ThisWorkbook.Path & "\待写入学生名单.xls")
If f = "" Then MsgBox "待写入学生名单文件不存在，请核查": Exit Sub
Set Rng = ActiveSheet.[a1].CurrentRegion.Offset(1)
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f)
Rng.Copy wb.Worksheets(1).[a2]
wb.Close True
Application.ScreenUpdating = True
MsgBox "写入成功!"
End Sub

yongpingzhu918 · 发表于 2020-6-12 16:47

非常感谢！

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