Данные повреждены при сохранении файла в формате CSV с Excel через TCOM

Question

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

Привет. Я могу записать данные в формате CSV. Но данные все повреждены. Например, когда я открыл его в блокноте, данные повреждены, я имею в виду, что не вижу данных, разделенных запятой. Есть ли проблемы с методом, который я использую для записи данных в формате CSV?

Answer 1

Если имя файла оканчивается на .csv, этого недостаточно, чтобы Excel сохранял файл в формате CSV. Вы должны передать константу типа файла методу SaveAs. Не уверен насчет синтаксиса Tcl, но я предполагаю, что правильный вызов SaveAs будет

$workbook SaveAs Filename {c:\tst.csv} FileFormat xlCSV

Сохранить как документацию