从TCL添加多个列到Excel

Question

我正在尝试从TCL向Excel添加多个列。这是代码

          set rows [array size atten]
          set columns { B}

          for {set row 1} {$row <= $rows} {incr row} {
            foreach column $columns {
              $cells Item $row $column $atten($row)
            }
          }

----此数据单独填入excel

          set a_rows [array size transmit]
          set a_columns { C}

          for {set row 1} {$row <= $a_rows} {incr row} {
            foreach column $a_columns {
              $cells Item $row $column $transmit($row)
            }
          }
          $workbook SaveAs Filename {c:\tst.xls}
          $application Quit

在excel文件中只填充了第一个数组注释，它完全省略了在excel文件中添加传输数组的代码中的部分。怎么解决这个问题？

Answer 1

在一个foreach循环中设置两列。