Make Excel Column Name

[IMEime]

If this goal is already done in AHK, just tell me. I will delete this post.

I'm with MS Office 2013 32 Bit.
MS Excel column has its own naming system .

The 1st one is "A"
The 2nd one is "B"
...
..
.
The 16384th, the last, is "XFD"

I wrote a simple function to make it.
Actually, I saw it somewhere in Internet (sorry, I forgot the source link. It is C#)
So, this code it just simple porting.

Code: Select all

Loop, 16384
	myResult .= ExcelColumnNumberToName(A_Index) " "						
FileAppend, % myResult, myFile.txt
Run, myFile.txt
Return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ExcelColumnNumberToName(x)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
{
	If(x < 1) 
		Return
	Return ExcelColumnNumberToName(Floor((x - 1) / 26)) Chr(Mod(x - 1, 26) + Asc("A"))     
}

Have a fun with.. a reverse function. "ExcelColumnNameToNumber" !!!

Regards

[IMEime]

ah...
I just tried not to use COM PIA at all.
Because, I an not going to execute Execl application at all.

[jeeswg]

I wrote some code for converting between Excel column letters and numbers here. Cheers.
combinations and permutations (and anagrams) - AutoHotkey Community
https://autohotkey.com/boards/viewtopic ... 23#p164723

[IMEime]

@jeeswg

Yes, I just visited.
Nice, That's good codes too.

[IMEime]

Just followed natural process
Not so elegant (?). But, Working !!

Code: Select all

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ExcelColumnNameToNumber(columnName)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
{
	nameLength := StrLen(columnName)
	characterValue := Asc(SubStr(columnName, 1, 1)) - Asc("A") + 1
	If (nameLength = 1) 
		Return	characterValue
	powerValue := characterValue * (26 ** (nameLength - 1))		
	Return ExcelColumnNameToNumber(SubStr(columnName, 2)) + (powerValue = 1 ? 0 : powerValue)
}