按键精灵读取xlsx列数

按键精灵读取xlsx列数

运行环境：分辨率：1366x768 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.00.9460

@barian    2012/10/18

//向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