主题：[求助] 导出记录带颜色

请问表A中 第二例是带颜色背景的，导出后出现的都是颜色代码，如何导出后显示的也是颜色呢？

如下

 For Each dr As DataRow In DataTables("list").DataRows
       
        Dim ds As DataRow = DataTables("工件").Find("PartNo='" & dr("PartNo") & "'And 基件='件'")
       
        If ds IsNot Nothing Then
             If dr("总缺数量") < 0
                dr("颜色状态") = Color.red.Toargb        

             ElseIf dr("零件总数量") = 0 AndAlso dr("零件总缺数量") = 0
                dr("颜色状态") = Color.MediumSpringGreen.Toargb         

            ElseIf  dr("零件总量") > 0 AndAlso dr("零件总量") = 0
                dr("颜色状态") = Color.yellow.Toargb         

End if

End if