主题：如何实现导出数据的日期格式转换

导出数据到Excel表中，其中有“出库日期”列为日期格式，导出后日期变成了数字。转换日期的代码如下，帮看看代码如何写？
 

Dim Style2 As XLS.Style = Book.NewStyle
Style2.Format = "yyyy-MM-dd"
Sheet.Cols(dt.Cols("出库日期").Index).Style = Style2

没有使用以下代码：
Dim Proc As New Process
Proc.File = "c:\test.xls"
Proc.Start()
导出后，手动打开的，发现没有转换成日期。是否一定要使用以上代码打开表时才可以的？

有无办法设置修改导出的表某列的格式为日期格式吗？

代码最后就是

Book.Save("c:\test.xls")

试过就是不行呀。才来请教应如何解决此问题？

用上面代码测试可以，我再查查是否代码那里有出错了。

明白出错在哪了，加入以下代码：就不行
请帮应如何解决，为谢！
Style2.BorderTop = XLS.LineStyleEnum.Thin
Style2.BorderBottom = XLS.LineStyleEnum.Thin
Style2.BorderLeft = XLS.LineStyleEnum.Thin
Style2.BorderRight = XLS.LineStyleEnum.Thin
Style2.BorderColorTop = Color.Black
Style2.BorderColorBottom = Color.Black
Style2.BorderColorLeft = Color.Black
Style2.BorderColorRight = Color.Black
Style2.AlignHorz = XLS.AlignHorzEnum.Center
Style2.AlignVert = XLS.AlignVertEnum.Center
For r As Integer = 0 to dt.rows.Count -1+1
    For c As Integer =0 To dt.Cols.Count -3
        Sheet(r,c).Style = Style2
    Next
Next

有时间能帮测试下吗？估计是一个bug.弄了半天了，郁闷呀！

哦，不好意思。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目0805.zip