变量 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改成你自己的空间名
功能结束 |