tcl語言: 通過tcom調用excel的筆記

# 前言:  TCL果然是偏門語言，插入代碼的時候竟然沒這個選項， 只好選成py格式(起碼注釋能被識別^o^)

 

# CoffeeYao

package require tcom

#創建頂層類excel，通過tcom打開操作系統的"Excel.Application"
#  excel類擁有的方法: (Workbooks) #創建excel類創建子類Workbooks
#               動作: <Visibe> #是否可視    <DisplayAlters> #是否顯示敏感操作 
#                     <Quit> #退出,建議Quit之后再將頂層類設為空集以完全退出"set excel {}",或者用"unset excel"
#
# 以下代碼中創建名為excel的類，再用Visible動作設為可視、DisplayAlerts設為不敏感，
#   最后用Workbooks方法創建名為wbs子類。 注意<動作>是對類本身屬性的操作，而(方法)則產生一個子類
set excel [::tcom::ref createobject "Excel.Application"]

$excel Visible 1
$excel DisplayAlerts 0
set wbs [$excel Workbooks]

#Workbooks型的子類wbs擁有的方法(都將創建Workbook型子類)：
#  (Open) #按路徑打開，據目前所知，路徑一定得是windows下的絕對路徑才行，如當前目錄下的ytst0.xls
#  (Add)  #如果Workbooks中已擁有N-1個Workbook型子類，則新建1個名為BookN的
#  <Count> #統計已擁有的Workbook型子類
#Workbook型子類對應的是最直觀的xls文件(當然csv文件效果同樣),如果想
#  對多個xls文件進行操作，就需用相應變量存儲起已打開/新建的excel文件
#   (Worksheets) #創建Worksheets型子類
#   <SaveAs>     #另存為...
set wb  [$wbs Open [file nativename [file join [pwd] 123.xls]]]
set wb2  [$wbs Add]  ;#新建一個workbook型子類
set wb3 [$wbs Add]
$wb SaveAs [file nativename [file join [pwd] test.csv]]
$wb2 SaveAs [file nativename [file join [pwd] test2.csv]]
$wb3 SaveAs [file nativename [file join [pwd] test3.csv]]
set wss [$wb3 Worksheets]

#Worksheets型的子類wss擁有的方法(都將創建Worksheet型子類)：
#  (Item) #切換定位至某Worksheet子類
#  (Add)  #如果Worksheets中已擁有N-1個Worksheet型子類，則新建1個名為SheetN的
#  <Count> #統計已擁有的Worksheet型子類
#Worksheet型子類對應的是最直觀的xls文件中的sheet,它可以被重定位，因此建議是1個全局變量
#  (Cells) #創建Cells型子類
#  <Delete>刪除 <Name>重命名 <Select>選擇占用 <Protect>保護
set ws [$wss Item 1]
set ws2 [$wss Item 2]
set ws3 [$wss Item [$wss Count] ]
set ws4 [$wss Add]
$ws4 Name newSheet
set cells [$ws Cells]   ;# sheet1的cells

#Cells型子類代表的是整個sheet中單元格(統稱為cell型子類)
#  (Range) #范圍格式形如"$cells Range A1 C2"
#  (Item)  #Cells或Range內的某個單元格，格式形如"$range Item $row $column"
# Range型子類也可以有(Item)方法，甚至Item型的子類也可以繼續(Item)
#    特別注意Range時候的格式為Y軸+X軸的"y1x1 y2x2" 而Item時的格式為X軸+Y軸的"x y"
#
#cell型子類(只是個統稱，實際上並沒有這個子類，Range Item 甚至Cells都可以看作cell型)
#  (Borders)邊框，且Borders有Item型子類border，Borders和Border有<Weight>動作
#  (Font)字體，Font子類主要有<Bold><Italic><Name><Size>等動作
#  <Value> #讀取值動作
#  set>  #本身沒有讀值這個動作，這個動作的實現必須由父類實現，如[$cells Item 1 2 setvalue]
#更多方法及動作待擴展   
set range [$cells Range A1 C2]
set cellA1 [$cells Item 1 1]
set cellA2 [$range Item 2 1]
set cellA2A1 [$cellA2 Item 1 1]

  $cells Item 1 1 name    ;#x_cell set name     
  [$cells Item 1 1] Value      ;#x_cell get
  $cellA1 Value                ;#x_cell get   兩者等價
  
    # VB示例：Worksheets("Sheet1").Range("A1:C5").Font.Bold = True
  [$cellA1 Font ] Bold 1       ;#x_cell Font-Bold 1
  
  
  
  [$cellA1 Borders ] Weight 2  ;#x_cell Borders-Weight 2
  [[$cellA1 Borders ] Item 9 ] Weight 2    ;#x_cell Borders.9-Weight 4

  # set hLinks_1 [[$cellA1 Hyperlinks] Add $cellA1 s3!A20]
  
  #set => "Item 1 1"
  #get => "Value"
  #font-bold =>"Font ] Bold"，且前方自動添加"["  
  
  set cells $xInfo(cells)   ;# dvEXCEL中的cells變量
  set cellA1 [$cells Item 1 A]
  set xInfo(hyperLinks,1) [$xInfo(cells) Hyperlinks]
  set h3 [$xInfo(hyperLinks,1) Add [$cells Item 1 3] "x1.xls" "a20"]
  $h3 SubAddress "Sheet2!a20"
  set hLinkKeys {
    Address Application Creator EmailSubject Name Parent Range ScreenTip Shape
    SubAddress TextToDisplay Type
  }
  foreach i $hLinkKeys {
    catch {puts "$i = [$h3 $i]"}
  }
  [$cellA1 Hyperlinks] Delete   ;# 刪除超鏈接
  
proc x_hLink {} {
}