使用Tcl操作Excel檔案的方法

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