共32 条记录, 每页显示 10 条, 页签: [1] [2][3][4]

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

1楼

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

2楼

yangming 发表于：2009/8/5 10:09:00

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

'打开工作簿
Book.Save("c:\test.xls")
Dim Proc As New Process
Proc.File = "c:\test.xls"
Proc.Start()

3楼

baoxyang 发表于：2009/8/5 10:23:00

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

4楼

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()
导出后，手动打开的，发现没有转换成日期。是否一定要使用以上代码打开表时才可以的？

是的

5楼

baoxyang 发表于：2009/8/5 10:31:00

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

6楼

yangming 发表于：2009/8/5 10:32:00

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

不明白

7楼

yangming 发表于：2009/8/5 10:33:00

Book.Save("c:\test.xls")这句代码有吗?
有这句就可以保存,当你手动打开此文件后,就会发现已修改了

[此贴子已经被作者于2009-8-5 10:35:13编辑过]

8楼

baoxyang 发表于：2009/8/5 10:35:00

代码最后就是

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

9楼

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编辑过]

10楼

baoxyang 发表于：2009/8/5 10:40:00

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

共32 条记录, 每页显示 10 条, 页签: [1] [2][3][4]