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