VBScript Excel中根据列数获得列的名称
'列从1开始 1(A) 2(B) 27(AA) 28(AB) 在2003下excel最大列是IV,所以最多两位数就可以了
Function GetColumnName(columnNum)
Dim num
num = columnNum - 1
If num < 26 Then
GetColumnName = Chr(Asc("A") + num)
Else
GetColumnName = Chr(Asc("A")+(num\26)- 1)&Chr(Asc("A")+(num Mod 26))
End If
End Function
请注明文章出处:http://www.cnblogs.com/zhfuliang