intToChar.tcl

 # input a number : 1 to 32 , you will get a char A to Z

 #A-Z:1-32

 proc intToChar {int} {

     if {![string is integer $int]} {

         return "Please input a number!"

     }

     if {![expr 0<$int&&32>$int]} {

         return "Input a numer range 1 to 32!"

     }

     set listChars [list A B C D E F G H I J K L M N O P Q R S T U V W X Y Z]

     set intTemp [expr $int-1]

     return [lindex $listChars $intTemp]

 }

 #test

 #return [intToChar 1]

 intToChar.tcl

 package require tcom

 source intToChar.tcl

 proc xls_write {fileName date} {

 #    if {[file exists $fileName]} {

 #        return {File is existed !   Please delete or change the the of the file !}

 #    }

     if {""==$date} {

         return "The date is NULL or '' !"

     }

 #    set fileName {D:/test.xlsx}

     # 创建com实例，打开工作表

     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 "Sheet1"]

     set worksheet [$worksheets Item [expr 1]]

     set cells [$worksheet Cells]

     set exeFlag 1

     if {1==$exeFlag} {

 #        set date {}

         set dateRawLength [llength $date]

         set rawIndex 0

         while { $rawIndex < $dateRawLength } {

             set dateColumnLength 0

             set dateColumnLength [llength [lindex $date $rawIndex]]

             set columnIndex 0

             while { $columnIndex < $dateColumnLength } {

                 [$cells Item [expr $rawIndex+1] [intToChar [expr $columnIndex+1]]] Value2 [lindex [lindex $date $rawIndex] $columnIndex]

                 incr columnIndex

             }

             incr rawIndex

         }

     }

     #code not work like wanting

 #    if {[regexp -all {\\|/} $fileName]} {

 #        cd [file dirname $fileName]

 #    }

     #save without asking

     $application DisplayAlerts [expr 0]

 #    $workbook SaveCopyAs {d://ts.xlsx}

     $workbook SaveAs $fileName

     $workbook Close

     $application Quit

 #    return [file join [file dirname $fileName] [file tail $fileName]]

 }

 #含路径的文件保存时，有时会失败，原因不详（xls默认保存路径:菜单"文件"-->"选项"-->"保存"，查看路径）

 set fileName {d:\testaaa.xlsx}

 set date [list [list 1 2 3 4 5 6 7 8 9 10] [list a b c d e f g] [list nihao hello 你好 howAreYou？]]

 #test

 return [xls_write $fileName $date]