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

被折叠的 条评论
为什么被折叠?



