tcl读取xlsx

Tcl 中可以使用第三方库 tdom 和 xlsx 来读取 xlsx 文件。

下面是一个简单的示例代码：

package require tdom
package require xlsx

# 打开 xlsx 文件
set workbook [::xlsx::open "example.xlsx"]

# 获取第一个工作表
set worksheet [$workbook getSheet 0]

# 获取行数和列数
set rows [$worksheet getRows]
set cols [$worksheet getCols]

# 遍历所有单元格并打印
for {set row 1} {$row <= $rows} {incr row} {
    for {set col 1} {$col <= $cols} {incr col} {
        set cell [$worksheet getCell $row $col]
        puts "($row, $col): [$cell getValue]"
    }
}

# 关闭 workbook
$workbook close

需要注意的是，读取 xlsx 文件需要安装 xlsx 库，可以通过以下命令进行安装：

# 安装 xlsx 库
teacup install xlsx