如何在asp.net中导出到excel中显示颜色

iam正在asp.net1.1中执行导出功能。。。。 我想在导出到excel时以红色突出显示一些记录。。。 下面是我在excel中导出记录的代码，但我想要一些红色的记录。。。 所以，如何做这个plz帮助我

Public Shared Sub ExportToExcelInvitee(ByVal query As String, _
                                       ByRef Response As System.Web.HttpResponse, _
                                       Optional ByVal exportDataset As DataSet = Nothing)
        Dim index As Integer
        Dim colIndex As Integer
        Dim columnCount As Integer
        Dim excelDataSet As DataSet
        Dim cnt As Integer

        Const PROC As String = CLASSNAME & ".ExportToExcelInvitee"
        Try

            If IsNothing(exportDataset) Then
                excelDataSet = ExecuteDataset(query)
            Else
                excelDataSet = exportDataset
            End If

            If Not IsNothing(excelDataSet) Then
                If excelDataSet.Tables(0).Rows.Count <> 0 Then

                    Response.Clear()
                    Response.ContentType = "application/vnd.ms-excel"
                    Response.Charset = ""
                    Response.AddHeader("Content-Disposition", "attachment; filename=List.xls")

                    Response.Write("<TABLE border=1>")
                    Response.Write("<TR>")
                    Response.Write("<TD><DIV align=center><B>Sr. No.</B></DIV></TD>")
                    columnCount = excelDataSet.Tables(0).Columns.Count - 1
                    For index = 2 To columnCount

                        Response.Write("<TD>" & _
                                          "<DIV align=center>" + _
                                                "<B>" & excelDataSet.Tables(0).Columns(index).ColumnName.ToString & "</B>" + _
                                          "</DIV>" & _
                                       "</TD>")

                    Next
                    Response.Write("</TR>")
                    Response.Write("<TR>")
                    ' Loop to leave one empty line after header, 
                    ' Loopimg to add the TD with black boders which doens not get added if only TR added
                    For index = 2 To columnCount
                        Response.Write("<TD></TD>")
                    Next
                    Response.Write("</TR>")

                    cnt = 1
                    For index = 0 To excelDataSet.Tables(0).Rows.Count - 1
                        If Not (excelDataSet.Tables(0).Rows(index).RowState = DataRowState.Deleted) Then

                            Response.Write("<TR>")
                            Response.Write("<TD>" & _
                                              "<DIV align=left>" & _
                                                  (cnt).ToString() & _
                                              "</DIV>" & _
                                            "</TD>")
                            For colIndex = 2 To columnCount

                                Response.Write("<TD valign=top>" & _
                                                  "<DIV align=left>" & _
                                                       excelDataSet.Tables(0).Rows(index).Item(colIndex).ToString() & _
                                                  "</DIV>" & _
                                               "</TD>")

                            Next
                            Response.Write("</TR>")
                            cnt = cnt + 1
                        End If
                    Next
                    Response.Write("</TABLE>")
                    Response.End()

                End If 'DataSet must contain data
            End If 'DataSet must contain data

        Catch ex As Exception
            Call ErrorLog(PROC & ", " & ex.Source, ex.Message)
        End Try

    End Sub

公共共享子ExportToExcelinvite（ByVal查询为字符串_
ByRef响应为System.Web.HttpResponse_
可选ByVal exportDataset作为数据集=无）
将索引设置为整数
作为整数的Dim colIndex
Dim columnCount为整数
将数据集作为数据集
作为整数的Dim cnt
Const PROC As String=CLASSNAME&“.exportToExcelinvite”
尝试
如果为Nothing（exportDataset），则
excelDataSet=ExecuteDataset（查询）
其他的
excelDataSet=exportDataset
如果结束
如果不是Nothing（excelDataSet），则
如果excelDataSet.Tables（0）.Rows.Count为0，则
答复:Clear()
Response.ContentType=“应用程序/vnd.ms excel”
Response.Charset=“”
AddHeader（“内容处置”、“附件；文件名=List.xls”）
回答。写（“”）
回答。写（“”）
答复。填写（“Sr.编号”）
columnCount=excelDataSet.Tables（0）.Columns.Count-1
对于索引=2的列计数
响应。写入（“&”_
"" + _
“”&excelDataSet.Tables（0）.Columns（索引）.ColumnName.ToString&“”+_
"" & _
"")
下一个
回答。写（“”）
回答。写（“”）
'循环以在页眉后留下一个空行，
“Loopimg添加带有黑色boders的TD，如果只添加TR，则不会添加
对于索引=2的列计数
回答。写（“”）
下一个
回答。写（“”）
cnt=1
对于索引=0到excelDataSet.Tables（0）.Rows.Count-1
如果不是（excelDataSet.Tables（0）.Rows（index）.RowState=DataRowState.Deleted），则
回答。写（“”）
响应。写入（“&”_
"" & _
（cnt.ToString（）&_
"" & _
"")
对于colIndex=2到columnCount
响应。写入（“&”_
"" & _
excelDataSet.Tables（0）.行（索引）.Item（colIndex）.ToString（）和_
"" & _
"")
下一个
回答。写（“”）
cnt=cnt+1
如果结束
下一个
回答。写（“”）
答复:End()
“如果结束”数据集必须包含数据
“如果结束”数据集必须包含数据
特例
调用错误日志（PROC&“，”和ex.Source，ex.Message）
结束尝试
端接头

我看不出您在哪里决定哪些单元格应该高亮显示为红色-但是，由于您基本上是在输出一个html表，您应该能够使用标准标记来更改该html元素的“color”或“backgroundColor”属性。

在您的情况下，这将是简单的：

<TD style='color: red'>Some value</TD>

一些值