51Testing软件测试论坛

标题: tcl可以实现读写EXCEL文件中的数据吗？ [打印本页]

作者: fly_freebird 时间: 2006-6-28 17:38
标题: tcl可以实现读写EXCEL文件中的数据吗？
请问：tcl可以实现读写EXCEL文件中的数据吗？
我看了一下tcl的资料，给我的初步感觉，tcl操作的是流文件（txt or csv），
我是初次接触tcl,tcl的功能知道的不是很清楚。
请指教。很急！！！

作者: wiko2000 时间: 2011-9-6 16:44
在网上下的。但是好象有问题

使用Tcl操作Excel文件的方法 .
Excel提供了通过COM接口进行访问的方法，下面这段Tcl脚本就是演示使用tcom扩展包操作Excel文件，给文件中的一个单元格赋值，并修改背景色，当然还可以进行其他各种复杂操作，使用tcom操作COM接口的关键问题就是如何知道要访问的COM接口都有哪些方法和参数，以及含义，有多种方法可以获取到这些信息，一种方法是到微软的msdn上搜索相关API说明，像office等应该都能查到，另外一种方法是使用VC带的一个工具OLEView，通过这个工具可以查看本机所有注册COM接口的详细信息，但可能没有说明文档，还好很多COM接口的方法、参数的意义都是一目了然的，看方法名基本上也能猜到不少。

package require tcom
# 构造要打开的excel文件名
set filename [file join [file dirname [info script]] test.xls]
puts $filename
# 创建com实例，打开工作表
set app [::tcom::ref createobject "Excel.Application"]
set workbooks [$app Workbooks]
set workbook [$workbooks Open $filename]
set worksheets [$workbook Worksheets]
set worksheet [$worksheets Item "Sheet1"]
# 获取A1单元的范围对象
set range1 [$worksheet Range A1]
# 给A1单元赋值
$range1 Value2 "123"
# 设置单元的背景色
set interior [$range1 Interior]
$interior Color [expr 0x00FFE0]
# 保存文档
$workbook Save
# 显示Excel
$app Visible 1

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)