Код:
Func _ExcelColumnLetter($iColumn = 0)
	Local $letters
	While $iColumn
    $x = Mod($iColumn, 26)
    If $x = 0 Then $x = 26
    $letters = Chr($x + 64) & $letters
    $iColumn = ($iColumn - $x) / 26
	WEnd
	Return $letters
EndFunc   ;==>_ExcelColumnLetter