- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教一个excel导入的时间格式问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52076)
-- 发布时间：2014/6/8 18:59:00
-- 请教一个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
-- 发布时间：2014/6/8 19:13:00
--
没办法，只能取到日期。你试试用vba来做吧。
或者这样变通一下
sheet(n,3).Formula = "=\'" & sheet(n,3).Value
msgbox(sheet(n,3).Text)
-- 发布时间：2014/6/8 19:22:00
--
sheet(n,3).Formula = "=\'" & sheet(n,3).Value
MessageBox.show(sheet(n,3).text )
我这样处理，取出来是空值。
vba的办法是怎么样的呢，帮助里不知道是哪个
-- 发布时间：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:43:00
--
感谢。
用了这段代码，定义新格式OK。
后面取值还是有点问题。
上个例子，帮看看呢。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:excel导入测试.rar |
-- 发布时间：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
-- 发布时间：2014/6/8 19:52:00
--
原来是把格式给清理掉，不是设置格式。
-- 发布时间：2014/6/8 20:17:00
--
style.Format = ""
For n = 1 To Sheet.Rows.Count -1
sheet(n,3).style = style
Next
这段能简化吗，比如，直接这一列 = style，而不用循环所有行
-- 发布时间：2014/6/8 20:18:00
--
可以，你试试 http://www.foxtable.com/help/topics/1159.htm