成绩录入

最新推荐文章于 2023-07-14 15:27:03 发布

double294

最新推荐文章于 2023-07-14 15:27:03 发布

阅读量530

点赞数

分类专栏：技术文摘我的作品文章标签： delay

本文链接：https://blog.csdn.net/double294/article/details/6570794

版权

技术文摘同时被 2 个专栏收录

9 篇文章 0 订阅

订阅专栏

我的作品

3 篇文章 0 订阅

订阅专栏

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