Håller på att skapa en exportfunktion till Excel från en vb.net sida.
Allt funkar men jag kan inte hitta hur jag skall kunna få med DataGridens headertext att sätta in överst i excelarket

Följande kod har jag för att få ut rådatat, men headertext (kolumn-namnen) vill inte följa med:

<code>
Dim reader As SqlDataReader = Me.sql.ExecuteReader()
Dim numbercols As Integer = reader.FieldCount

While reader.Read()
Dim i As Integer
For i = 0 To numbercols - 1
xlsheet.ActiveSheet.Cells(row, i + 1) = reader.GetValue(i).ToString()
Next
row = row + 1
End While
</code>

reader.GetValue(i).ToString() ger mig värdet i fälten, men hur att få ut kolumnamnen?
TIA
/Uffe

Ändrat i datagriden

Är tvungen att ha med namngivna kolumner i datagriden för att man skall kunna plocka ut HeaderTexten. Samt att propertien autogeneratecolumns="False" på DataGriden

<code>
<asp:datagrid id="DataGrid1" runat="server" autogeneratecolumns="False">

<columns>
<asp:boundcolumn datafield="id_proj" headertext="Projekt-ID" />
<asp:boundcolumn datafield="ort" headertext="TM-ort" />
<asp:boundcolumn datafield="kontor" headertext="Kontor" />
'.....................
<asp:editcommandcolumn edittext="fakt_belopp" headertext="Belopp" />
</columns>
</asp:datagrid>

</code>

Sedan använde jag följande kod för att få ut resultatet (kolumn-namnen)

<code>
For i = 0 To numbercols - 1
xlsheet.ActiveSheet.Cells(1, i + 1) = DataGrid1.Columns(i).HeaderText.ToString()
Next

</code>