asp.net - ASP.Net - 動的に作成された Excel ファイルにヘッダーを追加する

Question

クラス GridViewExportUtil を使用して、GridView (gvMuster) を Excel ファイルにエクスポートしています。これは正常に機能していますが、生成された Excel ファイルにヘッダー (または何らかの形式のタイトルなど) を追加できるようにしたいのですが、これを行う方法がわかりません。

Gridview は、以下のようにボタン クリックでクラスに渡されます。

GridViewExportUtil.ExportToFile(("\\somepath\Muster\Muster.xls"), gvMuster)

クラスの内容は次のとおりです。

Public Shared Sub Export(fileName As String, gv As GridView)
    HttpContext.Current.Response.Clear()
    HttpContext.Current.Response.AddHeader("content-disposition", String.Format("attachment; filename={0}", fileName))
    HttpContext.Current.Response.ContentType = "application/ms-excel"


    Using sw As New StringWriter()
        Export(sw, gv)

        HttpContext.Current.Response.Write(sw.ToString())
        HttpContext.Current.Response.[End]()
    End Using
End Sub

Public Shared Sub ExportToFile(fileName As String, gv As GridView)
    Using streamWriter As New StreamWriter(fileName)
        Using sw As New StringWriter()
            Export(sw, gv)
            streamWriter.Write(sw.ToString())
        End Using
    End Using
End Sub

Public Shared Sub Export(sw As StringWriter, gv As GridView)
    Using htw As New HtmlTextWriter(sw)

        Dim table As New Table()

        table.GridLines = gv.GridLines

        If gv.HeaderRow IsNot Nothing Then
            GridViewExportUtil.PrepareControlForExport(gv.HeaderRow)
            table.Rows.Add(gv.HeaderRow)
        End If

        For Each row As GridViewRow In gv.Rows
            GridViewExportUtil.PrepareControlForExport(row)
            table.Rows.Add(row)
        Next

        If gv.FooterRow IsNot Nothing Then
            GridViewExportUtil.PrepareControlForExport(gv.FooterRow)
            table.Rows.Add(gv.FooterRow)
        End If

        table.RenderControl(htw)
    End Using
End Sub

Private Shared Sub PrepareControlForExport(ByVal control As Control)
    Dim i As Integer = 0
    Do While (i < control.Controls.Count)
        Dim current As Control = control.Controls(i)
        If (TypeOf current Is LinkButton) Then
            control.Controls.Remove(current)
            control.Controls.AddAt(i, New LiteralControl(CType(current, LinkButton).Text))
        ElseIf (TypeOf current Is ImageButton) Then
            control.Controls.Remove(current)
            control.Controls.AddAt(i, New LiteralControl(CType(current, ImageButton).AlternateText))
        ElseIf (TypeOf current Is HyperLink) Then
            control.Controls.Remove(current)
            control.Controls.AddAt(i, New LiteralControl(CType(current, HyperLink).Text))
        ElseIf (TypeOf current Is DropDownList) Then
            control.Controls.Remove(current)
            control.Controls.AddAt(i, New LiteralControl(CType(current, DropDownList).SelectedItem.Text))
        ElseIf (TypeOf current Is CheckBox) Then
            control.Controls.Remove(current)
            control.Controls.AddAt(i, New LiteralControl(CType(current, CheckBox).Checked))

        End If
        If current.HasControls Then
            GridViewExportUtil.PrepareControlForExport(current)
        End If
        i = (i + 1)
    Loop
End Sub