求TCL代码示例：设置Excel单元格字体下划线与下边框

以下是使用Tcom组件操作Microsoft Excel，实现指定单元格字体下划线设置和下边框开启的完整代码示例：

package require tcom

# 创建Excel应用实例
set excel [::tcom::ref createobject Excel.Application]
$excel Visible 1 ;# 设为1可显示Excel窗口（调试用），发布时可改为0后台运行

# 添加新工作簿并获取第一个工作表
set workbook [$excel Workbooks Add]
set worksheet [$workbook Worksheets Item 1]

# 定位到目标单元格（示例为A1单元格）
set cell [$worksheet Cells Item 1 Item 1]
$cell Value "带下划线与下边框的文本"

# 设置单元格字体下划线：使用单下划线（对应Excel常量xlUnderlineStyleSingle，值为1）
set font [$cell Font]
$font Underline 1

# 设置单元格下边框：实线细边框
set borders [$cell Borders]
# 定位下边框（对应xlEdgeBottom，值为9）
set bottom_border [$borders Item 9]
$bottom_border LineStyle 1 ;# xlContinuous，实线样式
$bottom_border Weight 2     ;# xlThin，细边框权重
$bottom_border ColorIndex 0 ;# 使用默认黑色边框

# 保存工作簿（请自行修改路径）
$workbook SaveAs "C:/test_excel_format.xlsx"

# 清理资源
$workbook Close
$excel Quit
::tcom::ref release $excel

关键参数说明 #

• 字体下划线：Excel提供多种下划线样式，常用值：
  • 1：单下划线（xlUnderlineStyleSingle）
  • 2：双下划线（xlUnderlineStyleDouble）
  • 3：仅单词添加单下划线（xlUnderlineStyleSingleAccounting）
• 单元格边框：
  • 下边框对应的索引为9（xlEdgeBottom）
  • 实线样式对应1（xlContinuous），细边框权重对应2（xlThin）

内容的提问来源于stack exchange，提问作者Bosha