主题：[求助]按帮助的例子设置Excel背景色后表格线没了、日期格式变成了数字

 设置一下单元格的样式之前，先拷贝对应样式

 Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim Style As Xls.Style = Book.NewStyle '新建一个样式
style.Format = sheet(0.0).Style.Format
style.BackColor = Color.Red
sheet(0.0).Style = style