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 {} {
}