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