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

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

    next

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

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

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

感谢。

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

后面取值还是有点问题。

上个例子，帮看看呢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:excel导入测试.rar

原来是把格式给清理掉，不是设置格式。

 style.Format = ""
For n = 1 To Sheet.Rows.Count -1
sheet(n,3).style = style
Next

这段能简化吗，比如，直接这一列 = style，而不用循环所有行