VB如何控制excel单元格的数据类型
用VB将数据库中的时间类型数据导入到excel中,时间变成数字了.比如 2004-4-6 变成38448了,请问如何在vb里把单元格设成时间类型的,谢谢
部分源码
Set exlapp = New Excel.Application
exlapp.Workbooks.Open App.Path & "\book.xls"
rs.Open "select * from lunwen1", cn, adOpenKeyset, adLockOptimistic
Dim rows As Integer
rows = 1
If rs.RecordCount > 0 Then
While Not rs.EOF
With exlapp.Sheets(1)
.Cells(rows, 1) = rs.Fields("部门")
.Cells(rows, 3) = rs.Fields("时间")
.Cells(rows, 5) = rs.Fields("填报人")
rs.MoveNext
rows = rows + 1
End With
Wend
exlapp.Visible = True
Else
MsgBox "无信息"
End If
如何修改,谢谢
问题点数：20、回复次数：4Top
1 楼asd1099（牛牛）回复于 2005-04-21 09:29:46 得分 0
自己顶Top
2 楼flyingZFX（卍 南无阿弥陀佛 卍）回复于 2005-04-21 16:42:06 得分 0
应该不会吧，我从来没有遇到过，大部分都是正确的。Top
3 楼io_plaza（无所谓）回复于 2005-04-22 08:39:49 得分 0
顶一下,好奇怪哦Top
4 楼XenosPeng（鹏鸢心）回复于 2005-04-22 08:58:55 得分 20
你的问题我倒是没有遇见过，我以前导入时希望是YYYY-MM-DD或者HH:MM:SS的格式，可是他却老是给我变成YYYY-MM-DD HH:MM:SS的格式，我是把他直接给变成字符串了，就是这样的
With exlapp.Sheets(1)
.Cells(rows, 3) = Trim("'" & rs.Fields("时间").value)
rs.MoveNext
仅做参考
Top
