按键精灵读取excel数据

最新推荐文章于 2023-06-12 15:13:51 发布

double294

最新推荐文章于 2023-06-12 15:13:51 发布

阅读量1.4w

点赞数 2

文章标签： excel

本文链接：https://blog.youkuaiyun.com/double294/article/details/4223231

版权

本文介绍了一段使用VBS（VBScript）从指定路径打开Excel文件并读取指定行列范围内的单元格数据的代码实现。该脚本通过创建Excel应用程序对象，并使其处于不可见状态来避免干扰用户操作。随后通过循环遍历指定的行数和列数，检查每个单元格的内容，并将非空单元格的数据读出。完成读取后，会关闭Excel应用并释放相关资源。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Plugin lj=File.SelectFile()
VBSCall x1=InputBox("行数")
VBSCall y1=InputBox("列数")
VBSBegin
    Set xlApp = CreateObject("Excel.Application")
    xlApp.visible = false
    Set xlBook = xlApp.Workbooks.open(lj)
    Set xlSheet = xlBook.ActiveSheet
VBSEnd
i=1
j=1
While i<y1+1
    While j<x1+1
        If xlSheet.cells(i,j).value=""
            SayString "空"
        Else
            SayString xlSheet.cells(i,j).value
        EndIf
        j=j+1
    EndWhile
    j=1
    i=i+1
EndWhile