以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何实现导出数据的日期格式转换  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3811)
--  作者：baoxyang
--  发布时间：2009/8/5 9:58:00
--  如何实现导出数据的日期格式转换

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

Dim Style2 As XLS.Style = Book.NewStyle
Style2.Format = "yyyy-MM-dd"
Sheet.Cols(dt.Cols("出库日期").Index).Style = Style2
--  作者：yangming
--  发布时间：2009/8/5 10:09:00
--  

代码没问题,只是要将此代码插入到导出代码中的打开工作簿之前便可以了

\'打开工作簿
Book.Save("c:\\test.xls")
Dim Proc As New Process
Proc.File = "c:\\test.xls"
Proc.Start()
--  作者：baoxyang
--  发布时间：2009/8/5 10:23:00
--  
没有使用以下代码：
Dim Proc As New Process
Proc.File = "c:\\test.xls"
Proc.Start()
导出后，手动打开的，发现没有转换成日期。是否一定要使用以上代码打开表时才可以的？
--  作者：yangming
--  发布时间：2009/8/5 10:29:00
--  
以下是引用baoxyang在2009-8-5 10:23:00的发言：
没有使用以下代码：
Dim Proc As New Process
Proc.File = "c:\\test.xls"
Proc.Start()
导出后，手动打开的，发现没有转换成日期。是否一定要使用以上代码打开表时才可以的？

是的
--  作者：baoxyang
--  发布时间：2009/8/5 10:31:00
--  
有无办法设置修改导出的表某列的格式为日期格式吗？
--  作者：yangming
--  发布时间：2009/8/5 10:32:00
--  
以下是引用baoxyang在2009-8-5 10:31:00的发言：
有无办法设置修改导出的表某列的格式为日期格式吗？

不明白
--  作者：yangming
--  发布时间：2009/8/5 10:33:00
--  
Book.Save("c:\\test.xls")这句代码有吗?
有这句就可以保存,当你手动打开此文件后,就会发现已修改了
[此贴子已经被作者于2009-8-5 10:35:13编辑过]
--  作者：baoxyang
--  发布时间：2009/8/5 10:35:00
--  
代码最后就是
Book.Save("c:\\test.xls")
--  作者：yangming
--  发布时间：2009/8/5 10:36:00
--  
以下是引用baoxyang在2009-8-5 10:35:00的发言：
代码最后就是
Book.Save("c:\\test.xls")


这就行了啊其实你自己试试不就行了

[此贴子已经被作者于2009-8-5 10:36:29编辑过]
--  作者：baoxyang
--  发布时间：2009/8/5 10:40:00
--  
试过就是不行呀。才来请教应如何解决此问题？