【发布时间】:2012-03-25 09:08:18
【问题描述】:
我正在尝试将一些数据从 TCL 写入 CSV 文件,但在执行时我得到 0x800a03ec {Workbook 类的 SaveAs 方法失败}。知道为什么会这样吗?
set application [::tcom::ref createobject "Excel.Application"]
$application Visible 1
set workbooks [$application Workbooks]
set workbook [$workbooks Add]
set worksheets [$workbook Worksheets]
set worksheet [$worksheets Item [expr 1]]
#set worksheet [$worksheets Item "Sheet1"]
set cells [$worksheet Cells]
set rows [array size atten]
for {set row 1} {$row <= $rows} {incr row} {
$cells Item $row "B" $atten($row)
}
$workbook SaveAs Filename {c:\tst.csv}
$application Quit
【问题讨论】: