Utility – Index to Column
Converts a numeric column index to its corresponding Excel column letter (e.g., 1 → “A”, 28 → “AB”).
This function uses a temporary hidden Excel.Application instance to retrieve the column letter from the column’s address string. The Excel application is properly released after use.
VB
Public Function xlIndex2Column(ColumnIndex As Integer) As String
Dim App As New Excel.Application
App.Visible = False
Dim wbBook = App.Workbooks.Add
For Each wsSheet As Worksheet In wbBook.Worksheets
Try
Dim vArray As Object
vArray = Split(Replace(wsSheet.Columns(ColumnIndex).Address, "$", ""), ":")
wbBook.Close(SaveChanges:=False)
ReleaseObject(App)
Return vArray(LBound(vArray))
Catch ex As Exception
wbBook.Close(SaveChanges:=False)
ReleaseObject(App)
Return String.Empty
End Try
Next
wbBook.Close(SaveChanges:=False)
ReleaseObject(App) 'App = Nothing
Return String.Empty
End Function