vb 导出datagrid中的数据错误
发布网友
发布时间：2024-10-21 19:11
共1个回答
热心网友
时间：2024-10-30 19:25
这个原因是因为单元格格式问题
excel单元格格式默认为文本，你的日期输入后就变成了这串数字
解决的办法是先定义单元格格式，如定义第一个工作表的A76单元格为时间格式
'前三行用于定义excel连接的，不用理会，只是让你知道几个变量的意义
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.DisplayAlerts = False
Set xlBook = xlApp.Workbooks.Open(app.Path & "\1.xls")
'关键是这句
xlBook.Sheets(1).Range("A76").NumberFormatLocal = "yyyy-m-d h:mm:ss"
当然yyyy表示年，m表示月，d表示日期，h表示小时，mm表示分钟，ss表示秒
