| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 528 人关注过本帖, 2 人收藏
标题:【求助】从DataGrid导出数据到excel问题,请大虾帮帮忙啊
只看楼主 加入收藏
coucongzi
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2012-11-1
结帖率:90%
收藏(2)
已结贴  问题点数:20 回复次数:4 
【求助】从DataGrid导出数据到excel问题,请大虾帮帮忙啊
【求助】从DataGrid导出数据到excel问题,请大虾帮帮忙啊
本人做了一个从DataGrid导出数据到excel的程序,导出到excel后,在excel中的日期跟在DataGrid中的数据不一样了
如在DataGrid中是2014-1-6,可是在excel中却是41645,而不是2014-1-6
请大虾帮忙看看,要怎么解决啊!
程序代码:
If rs.RecordCount <= 0 Then
   MsgBox "没有可输出的数据,请选择数据"
   Exit Sub
Else
Set xlapp = CreateObject("excel.application")
Set xlBook = xlapp.Workbooks.Add
Set xlSHEET = xlBook.Worksheets(1)
xlapp.Visible = True '设置EXCEL对象不可见
'xlapp.DisplayAlerts = False
On Error Resume Next
If Err.Number <> 0 Then Set xlapp = CreateObject("Excel.Application")
Set xlBook = xlapp.Workbooks.Add
Set xlSHEET = xlBook.ActiveSheet
For k = 1 To DataGrid1.Columns.Count
xlSHEET.Cells(1, k) = DataGrid1.Columns(k - 1).Caption
Next k
For i = 1 To rs.RecordCount + 1
For j = 0 To DataGrid1.Columns.Count
xlSHEET.Cells(i + 1, j + 1) = rst(j)
Next j
rst.MoveNext
Next i
CommonDialog2.DialogTitle = "导出数据"
CommonDialog2.Filter = "Excel文件|*.xls"
CommonDialog2.ShowOpen
'xlapp.Save
xlapp.Close
xlapp.ActiveWindow.Close
xlapp.Workbooks.Close
Set xlapp = Nothing
End If


搜索更多相关主题的帖子: excel 
2013-11-11 18:23
coucongzi
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2012-11-1
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

图片附件: 游客没有浏览图片的权限,请 登录注册
2013-11-11 18:28
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:14 
单元格式

无知
2013-11-12 13:03
coucongzi
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2012-11-1
收藏
得分:0 
我自己搞定了,增加了代码
'
    Cells.Select
    Selection.NumberFormatLocal = "yyyy-m-d"
导出来的电子表格的格式就是日期的了
2013-11-12 13:46
vbvcr51
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:18
帖 子:364
专家分:1724
注 册:2013-11-3
收藏
得分:0 
学习了。其他没问题吗?
2013-11-14 18:09
快速回复:【求助】从DataGrid导出数据到excel问题,请大虾帮帮忙啊
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032278 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved