高分求助：保存的文字为红色？

Question

看下面的代码，如何将label1的文字保存在的*.csv的文件里的字符为红色？
If Dir("c:\备份", vbDirectory) = "" Then MkDir "c:\备份"
    Open "c:\备份\" & Format(Date, "yyyymmdd") & ".csv" For Append As #1 '用append的方式打开，如果已存在就追加在尾部
        Print #1, Text1.Text & "," & Cmb1.Text; "," & Label.Caption & ","; 
        Close #1

Answer 1

什么意思？保存在文件里面的文字为红色，怎么可能呢？还是label1的标题字符颜色？

Answer 2

csv貌似不能设置格式吧Richtext Box 保存 rtf才有这种功能

Answer 3

就是将label1.caption的字符保存在excel里，但怎样将保存在excel里的label1.caption字符颜色为红色。怎样能做到？

Answer 4

启动excel软件，在excel表格里面设置一下即可啦！

Answer 5

要求就是不启动啊！在程序上自动保存成形成红色啊,label.caption为NG时才自动形成啊？怎样的语句才能实现保存到excel为红色啊？？

Answer 6

要设置颜色必须用 xls 文件
Private Sub Command1_Click()
    Dim xlApp           As Object 'Excel.Application
    Dim xlWb            As Object 'Excel.Workbook
    Dim xlWs            As Object 'Excel.Worksheet
    Dim sFileName       As String
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlWb = xlApp.Workbooks.Add()
    Set xlWs = xlWb.Worksheets(1)
    
    With xlWs.Cells(1, 1)
        .Value = Label1
        .Font.ColorIndex = 3
    End With
    
    If Dir("c:\备份", vbDirectory) = "" Then MkDir "c:\备份"
    sFileName = "c:\备份\" & Format(Date, "yyyymmdd") & ".xls"
    If Dir(sFileName) <> vbNullString Then Kill sFileName
    xlWb.SaveAs sFileName
    
    Set xlWs = Nothing
    xlWb.Close
    Set xlWb = Nothing
    Set xlApp = Nothing
End Sub