成绩录入

VBSCall x1=InputBox("新系统成绩的列数")
Plugin lj=File.SelectFile()
VBSBegin
    Set xlApp = CreateObject("Excel.Application")
    xlApp.visible = false
    Set xlBook = xlApp.Workbooks.open(lj)
    Set xlSheet = xlBook.ActiveSheet
VBSEnd
i=7
j=1
Delay 3000
While i<100
    If xlSheet.cells(i,4).value=""
        MessageBox "完成"
        Goto rem1
    Else
        If x1=1
            SayString Int(xlSheet.cells(i,4).value+0.5)
            KeyPress 40,1
        Else
            SayString Int(xlSheet.cells(i,4).value+0.5)
            KeyPress 13,1
            SayString Int(xlSheet.cells(i,4).value+0.5)
            KeyPress 13,1
        EndIf
        Delay 100
        i=i+1
    EndWhile
    Rem rem1
    VBSBegin
        xlApp.quit
        Set xlApp=Nothing
    VBSEnd