以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助，如何实现导出EXCEL表某列为日期格式列呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6081)
--  作者：baoxyang
--  发布时间：2010/3/3 10:59:00
--  求助，如何实现导出EXCEL表某列为日期格式列呢？
Dim St2 As XLS.Style = Book.NewStyle
St2.Format = "yyyy-MM-dd"
For p as integer = 0 to Sheet.Cols.count -1
     if Sheet(0, p).Value Like "*日期*" then
        Sheet.Cols(p).Style = st2
     end if
Next
以上无法实现单元格为日期格式列，求教应如何实现？谢了！！
--  作者：czy
--  发布时间：2010/3/3 11:16:00
--  

没发现有问题。
--  作者：狐狸爸爸
--  发布时间：2010/3/3 11:34:00
--  
yyyy-mm-dd
--  作者：baoxyang
--  发布时间：2010/3/3 13:51:00
--  
以下是引用狐狸爸爸在2010-3-3 11:34:00的发言：
yyyy-mm-dd

还是不行，导出的EXCEL表还是数据型而不是日期型，应如何实现？
--  作者：mr725
--  发布时间：2010/3/3 14:01:00
--  

直接用：
Sheet.Cols(dt.Cols("日期").Index).Style = st2
--  作者：baoxyang
--  发布时间：2010/3/3 14:43:00
--  
以下是引用mr725在2010-3-3 14:01:00的发言：

直接用：
Sheet.Cols(dt.Cols("日期").Index).Style = st2

没有区别吧。
--  作者：czy
--  发布时间：2010/3/3 14:46:00
--  
一楼代码我测试过可以的，发你的示例上来看看。