主题：Excel 报表的日期格式化代码问题

当报表模板中的日期列没有设置日期格式的时候：这段格式化日期的代码怎么不起作用？？？

Dim Book1 As New XLS.Book(ProjectPath & "Attachments\订单.xls")
Dim Sheet As XLS.Sheet = Book1.Sheets(0)

Dim St2 As XLS.Style = Book1.NewStyle()      ‘这段格式化日期的代码怎么不起作用？？？
St2.Format = "yyyy-MM-dd"
Sheet.Cols(tables("订单").Cols("日期").index).Style = st2

Book1.Build() '生成细节区
Book1.Save(ProjectPath & "reports\订单.xls")
Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "reports\订单.xls" 
Proc.Start()

谢谢yang版～～～

原来
Sheet.Cols(tables("订单").Cols("日期").index).Style = st2      改为：
Sheet(3,tables("订单").cols.Count).Style = St2                    就可以了。   呵呵～