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

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章