//向Excel文档工作表(sheet)单元格(H, L)读出内容存入(sumL)变量
//Call Plugin.Office.OpenXls("C:\测试.xlsx")


//L = 1
//Call Plugin.Office.WriteXls(1, 1, 1, "130")


//Call ReadXlssum (sumL)

Function  ReadXlssum (L)
Dim sheet, H
sheet = 1
H = 1
sumL = Plugin.Office.ReadXls(sheet, H, L)	
	Do  While sumL

	sumL = Plugin.Office.ReadXls(sheet, H, L)
	H = H + 1
loop
    H = H - 1
   //关闭Excel文档工作表

Call Plugin.Office.CloseXls() 
    
End Function