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

导出的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

如果我需要这样做就不问这个问题了。