Cinema Paradiso: Increment alphabet letter

Increment alphabet letter

2011-06-12

1

2

3

4

5

6

7

8

9

10

11

12

Dim startExcelColumn As String = "A"
Dim lastExcelColumn As String = startExcelColumn
 
For Each col As DataColumn In dtExcel.Columns
If iCounter > 0 Then
lastExcelColumn = Chr(Asc(lastExcelColumn) + 1)
End If
iCounter += 1
Next
 
 
oWorkSheet.Range(startExcelColumn & "1", lastExcelColumn & "1").Font.Bold = True

0 comments:

Subscribe to: Post Comments (Atom)