Run this; humor me:
alphabet = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k",
"l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x",
"y", "z"};
TableForm[
list = Table[
StringJoin[IntegerString[k], ToUpperCase[alphabet[[j]]]], {j,
Length[alphabet]}, {k, 0, 9}]]
Export["digitLetterTest.csv", list, "CSV"]
TableForm[Import["digitLetterTest.csv"]]