变量 xApp,xBook,xSheet//全局变量 
 
功能 打开(工作簿名,表名) 
    xApp=com("Excel.Application") 
    xBook=com("Excel.Workbook") 
    xSheet=com("Excel.Worksheet") 
    xBook=xApp.Workbooks.open(工作簿名) 
    xSheet=xApp.Worksheets(表名) 
功能结束 
 
功能 关闭() 
    xBook.Close(真) 
    xSheet=null 
    xBook=null 
    xApp=null 
功能结束 
 
功能 读内容(行号,列号) 
    返回 xSheet.Cells(行号,列号) 
功能结束 
 
功能 写内容(行号,列号,内容) 
    xSheet.Cells(行号,列号).Value=内容 
功能结束 
 
 
//开始按钮_点击操作 
功能 开始_点击() 
    Excel.打开(系统.获取程序路径()&"1.xls","Sheet2") //创建对象,并打开指定的表,调用时请把Excel改成你自己的空间名 
    辅助.消息框(Excel.读内容(2,2))   //读操作示范,调用时请把Excel改成你自己的空间名 
    Excel.写内容(4,4,"哈哈TC")      //写操作示范,调用时请把Excel改成你自己的空间名 
    Excel.关闭() //用完之后别忘了关闭释放对象,调用时请把Excel改成你自己的空间名 
功能结束 |