Public Function excelColIndexToStr(ByVal iCol As Integer) As String
If iCol < 1 Then
Return ""
End If
Dim sColStr As String = ""
While iCol > 0
iCol -= 1
sColStr = Chr((iCol Mod 26) + Asc("A")) & sColStr
iCol = (iCol - (iCol Mod 26)) \ 26
End While
Return sColStr
End Function
