全科网导出数据批量处理代码


来源:高中英语教学交流网
发布时间:2017-10-30 15:49:00
查看次数:

内容提要:最近,我想找一种比较一劳永逸的方法,对数据进行批量处理。现在已经基本上完成了,使用效果还是不错的。

全科网导出的成绩有不少的内容,暂时来说,作用是不大的。但是在排版方面,那些内容占了很多的空间,所以需要进行处理,每一次的成绩的处理需要比较长的时间。尤其是对于成绩查询系统里面的相关数据处理,花费比较长的时间。

最近,我想找一种比较一劳永逸的方法,对数据进行批量处理。现在已经基本上完成了,使用效果还是不错的。基本思路如下:

1、替换相关的列名内容。按照成绩查询系统的样式,替换那些名字。

2、删除多余的列:比如说班名列,级名列。班名对于成绩查询的意义其实是不大的,主要是看校名。级名多数是出现在多校联考才会出现。


以下是相关的代码:

Sub 一步转换()

 Selection.Replace What:="理科数学", Replacement:="理数", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
            Selection.Replace What:="文科数学", Replacement:="文数", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
            Selection.Replace What:="文科总分", Replacement:="文总", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
            Selection.Replace What:="理科总分", Replacement:="理总", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
          
    Selection.Replace What:="文科", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="理科", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="理科", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="校名", Replacement:="名次", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="分数", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
               
        
    Application.CutCopyMode = False
    
    
  
Run "删除级名列"

Run "删除班名列"

    
    
End Sub


Sub 删除级名列()
Dim i As Integer
i = 0
xunhuan:
On Error GoTo eend
Cells.Find(What:="级名").Select
Selection.EntireColumn.Delete
i = i + 1
GoTo xunhuan
eend:
MsgBox (i & "列级名列被删除了")
End Sub


Sub 删除班名列()
Dim i As Integer
i = 0
xunhuan:
On Error GoTo eend
Cells.Find(What:="班名").Select
Selection.EntireColumn.Delete
i = i + 1
GoTo xunhuan
eend:
MsgBox (i & "列班名列被删除了")
End Sub



相关文章
·(网页版)新高考选科填报系统2.001-18
·微微一课很倾城:我的微课制作小结06-20
·我发表的有关语法内容的文章汇总05-01
·11次月考成绩跟踪系统2011.05.06版05-06
·语法填空+双语阅读 MCN 是什么意思?03-13
·[班会课] 高考倒计28天| 挥洒斗志 抒无悔青春05-10
·[词汇注释] TED演讲: 你最大的动力来自哪里?09-17
·控制教室多媒体电脑使用时间 05-18
·冰点还原精灵密码重置办法05-14
·20240613 我的英语课堂记录06-13
最新文章
阅读排行