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 ran
读取Excel文件并返还数据集RecordSet 该方法适用于.xls,.xlsx类型的文件 读取Excel文件的Function: '取得数据集 Function getRecordSetForExcels(sFilePath As String, _ sTableName As String, _ Optional sField As String, _ Optional strWhere As String, _ Optional sOrderBy As String) As ADODB.