纯TC打开，读写EXCEL源码

cylhb

时不时总会有人问如何操作EXCEL。写了一个简易的示范代码给大家参考。

1. 变量 xApp,xBook,xSheet//全局变量
   
2. 
   
3. 功能 打开(工作簿名,表名)
   
4.     xApp=com("Excel.Application")
   
5.     xBook=com("Excel.Workbook")
   
6.     xSheet=com("Excel.Worksheet")
   
7.     xBook=xApp.Workbooks.open(工作簿名)
   
8.     xSheet=xApp.Worksheets(表名)
   
9. 功能结束
   
10. 
    
11. 功能 关闭()
    
12.     xBook.Close(真)
    
13.     xSheet=null
    
14.     xBook=null
    
15.     xApp=null
    
16. 功能结束
    
17. 
    
18. 功能 读内容(行号,列号)
    
19.     返回 xSheet.Cells(行号,列号)
    
20. 功能结束
    
21. 
    
22. 功能 写内容(行号,列号,内容)
    
23.     xSheet.Cells(行号,列号).Value=内容
    
24. 功能结束
    
25. 
    
26. 
    
27. //开始按钮_点击操作
    
28. 功能 开始_点击()
    
29.     Excel.打开(系统.获取程序路径()&"1.xls","Sheet2") //创建对象，并打开指定的表，调用时请把Excel改成你自己的空间名
    
30.     辅助.消息框(Excel.读内容(2,2))   //读操作示范，调用时请把Excel改成你自己的空间名
    
31.     Excel.写内容(4,4,"哈哈TC")      //写操作示范，调用时请把Excel改成你自己的空间名
    
32.     Excel.关闭() //用完之后别忘了关闭释放对象，调用时请把Excel改成你自己的空间名
    
33. 功能结束

复制代码

xkc06zc

楼上是按键精灵吧？我强烈要求版主开一个办公交流版块。我们搞办公的用TC确实太缺少资源了。

hu863063648

回复 1楼cylhb的帖子

谢谢分享

52526262

谢谢分享

klyyz1980

好,好,好

lzq5628989

学习了，谢谢斑竹~

jianqiumy

这方面也是少一点~~
希望能多一点关于这方面的~~

cylhb

回复 6楼jianqiumy的帖子

有了入门的用法，其他的相信只要稍微懂点VBS的都可以写出来了。呵呵。再不然可以百度一下具体的对象方法。

jianqiumy

回复 7楼cylhb的帖子

你说的没错~百度~~只是论坛里~~这方面知识和教程都少~或者说没有!!!
TC应该可以出多点这方面的知识~~~
应该出一些像官网简单脚本视频(办公类)~~或者一些小源码~这样就可以大家学习了

cylhb

确实，不过学这种东西，搜索能力很重要，要善于搜索。

ief675037

不行呀！TC 4.200beta 一点击开始按钮就停止工作了？？