以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  excel单元格中输入值多个值，每个值用alt+enter换了行，如何取出它的每个值？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118620)
--  作者：有点蓝
--  发布时间：2018/5/7 15:41:00
--  
这种比较麻烦，你要自己逐个单元格判断取值
--  作者：有点蓝
--  发布时间：2018/5/7 15:51:00
--  
Dim Book As New XLS.Book("F:\\H\\问题测试\\刷卡记录.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)

\'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 4 To 10 Step 2
    Output.Show(Sheet(n,2).Value)
    Output.Show(Sheet(n,10).Value)
    Dim p As String = Sheet(n+1,1).Value
    For Each s As String In p.Replace(vbcr,"").Split(vblf)
        Output.Show(s)
    Next
Next
--  作者：有点甜
--  发布时间：2018/5/8 8:52:00
--  

For Each s As String In p.Replace(vbcr,"").Split(vblf)
    \'Output.Show(s)
    \' Dim s As String = "08:20"
    Dim s1 As Date
    If Date.TryParse(s, s1) Then
        If s1 < # 08:30 #  Then
            output.show("正常上班")
        Else
            output.show("迟到")
        End If
    Else
        output.show("字符无法转换为日期")
    End If
Next
--  作者：有点蓝
--  发布时间：2018/5/8 21:09:00
--  
什么问题？
--  作者：有点甜
--  发布时间：2018/5/9 10:55:00
--  
我测试你的代码和你的问题，没发现问题。请上传具体excel文件测试。
--  作者：有点甜
--  发布时间：2018/5/10 9:11:00
--  

1、报什么错？

 

2、你的列【考勤时间】是什么数据类型的？