主题：[求助]按模板导出excel修改日期列格式

今天按照一个既定的模板导出评级记录表，其中有一列是评级日期，想在导出后日期列显示的是日期而不是数字，因此在代码中加以指定导出后的日期列格式，但是导出后还是显示为数字列？求指教！

导出的EXCEL：

此主题相关图片如下：qq截图20130628104910.png

原始的评级记录表：

此主题相关图片如下：qq截图20130628105003.png

导出代码:

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel 97-2003 工作簿(*.xls)|*.xls|Excel 工作簿(*.xlsx)|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book (ProjectPath & "模板\评级记录.xlsx")
    Dim Sheet As XLS.Sheet
    Dim Style As XLS.Style
    Book.Build() '生成细节区
    Sheet = Book.Sheets(0)
    Style = Book.NewStyle
    Style.Format = "yyyy-MM-dd"
    Sheet.Cols(Tables("评级记录表").Cols("评比日期").Index).Style = Style
    Book.Save(dlg.FileName) '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File = dlg.FileName
    Proc.Start()
End If