请教一个excel导入的时间格式问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教一个excel导入的时间格式问题

共有3398人关注过本帖树形打印复制链接主题：请教一个excel导入的时间格式问题

ndxfke

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：792 积分：5649 威望：0 精华：0 注册：2013/12/9 20:12:00

请教一个excel导入的时间格式问题 发帖心情

Post By：2014/6/8 18:59:00 [只看该作者]

excel时间值：2014-6-3 12:02:39

取值代码：

Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)

    For n = 1 To Sheet.Rows.Count -1
        Dim kqhm As String = sheet(n,2).Text
        MessageBox.show(sheet(n,3).text)     ##------ 取出来的值仅为日期：2014-6-3，时间为何显示不到呢？请高手指教
        Dim sj As Date = sheet(n,3).text

[此贴子已经被作者于2014-6-8 19:04:50编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/8 19:13:00 [只看该作者]

没办法，只能取到日期。你试试用vba来做吧。

或者这样变通一下

sheet(n,3).Formula = "='" & sheet(n,3).Value

msgbox(sheet(n,3).Text)

ndxfke

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：792 积分：5649 威望：0 精华：0 注册：2013/12/9 20:12:00

Post By：2014/6/8 19:22:00 [只看该作者]

sheet(n,3).Formula = "='" & sheet(n,3).Value
MessageBox.show(sheet(n,3).text )

我这样处理，取出来是空值。

vba的办法是怎么样的呢，帮助里不知道是哪个

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/8 19:27:00 [只看该作者]

记得之前弄过，忘记了，找得很辛苦。你先处理一下日期格式，然后再读取，再转换。

    Dim Book As New XLS.Book(dlg.FileName) '指定数据文件
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim Style As XLS.Style = Book.NewStyle() '定义新样式
    style.Format = ""
    sheet(1,1).style = style

    book.Save(dlg.FileName)

    Book = New XLS.Book(dlg.FileName) '指定数据文件
    Sheet = Book.Sheets(0)
    msgbox(DateTime.FromOADate(sheet(1,1).value))

[此贴子已经被作者于2014-6-8 19:27:18编辑过]

ndxfke

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：792 积分：5649 威望：0 精华：0 注册：2013/12/9 20:12:00

Post By：2014/6/8 19:43:00 [只看该作者]

感谢。

用了这段代码，定义新格式OK。

后面取值还是有点问题。

上个例子，帮看看呢。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:excel导入测试.rar

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/8 19:49:00 [只看该作者]

Dim flg As new OpenFileDialog
flg.Filter = "Excel文件|*.xls;*.xlsx"
flg.MultiSelect = False
Dim n As Integer
If flg.ShowDialog = DialogResult.OK Then
    Dim file As String = flg.FileName

    Dim Book As New XLS.Book(file)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim Style As XLS.Style = Book.NewStyle() '定义新样式
    style.Format = ""
    For n = 1 To Sheet.Rows.Count -1
        sheet(n,3).style = style
    Next
    book.Save(file)
    MessageBox.show("测试断点")
    book = New XLS.Book(file)
    Sheet = Book.Sheets(0)
    For n = 1 To Sheet.Rows.Count -1
        Dim kqhm As String = sheet(n,2).Text
        'msgbox(sheet(n,3).Text)
        msgbox(DateTime.FromOADate(sheet(n,3).value))
    Next

End If