主题：如何将excel模板里的颜色通过代码来修改

参考

Dim Book As New XLS.Book("d:\test.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For i As Integer = 0 To Sheet.Rows.count-1
    Dim style2 As XLS.style = Sheet(i,0).Style  
    try
        'Dim Style1 As XLS.Style = book.NewStyle
        'Dim propertys = style2.Gettype.GetProperties
        'For Each p As object In propertys
        'Dim val = p.getValue(style2, Nothing)
        'p.SetValue(style1, val, Nothing)
        'Next
        style2.Forecolor = Color.red
    catch ex As exception
        style2 = book.NewStyle
        style2.ForeColor = Color.red
        Sheet(i,0).Style = style2
    End try
Next

book.Save("d:\abc.xls")
Dim proc As new Process
proc.File = "d:\abc.xls"
proc.Start