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

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

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

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

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

加好友

发短信

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

Post By：2014/6/8 20:18:00 [显示全部帖子]

可以，你试试 http://www.foxtable.com/help/topics/1159.htm

下一主题 >> << 上一主题

主题：请教一个excel导入的时间格式问题