使用Tcl操作Excel文件的方法

最新推荐文章于 2020-11-20 15:30:54 发布

转载最新推荐文章于 2020-11-20 15:30:54 发布 · 761 阅读

本文介绍了一段Tcl脚本示例，演示了如何利用tcom扩展包操作Excel文件，包括给单元格赋值及修改背景色等基本操作。

Excel提供了通过COM接口进行访问的方法，下面这段Tcl脚本就是演示使用tcom扩展包操作Excel文件，给文件中的一个单元格赋值，并修改背景色，当然还可以进行其他各种复杂操作，使用tcom操作COM接口的关键问题就是如何知道要访问的COM接口都有哪些方法和参数，以及含义，有多种方法可以获取到这些信息[@more@]

，一种方法是到微软的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