以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]Elcel表读取问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139951)

--  作者:YDS
--  发布时间:2019/8/26 14:35:00
--  [求助]Elcel表读取问题

图片点击可在新窗口打开查看此主题相关图片如下:003.png
图片点击可在新窗口打开查看


Dim lj As String = "D:\\2019-6工资表.xlsx"
Dim Book As New XLS.Book(lj)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim bc As Integer = 2  \'表头层数
Dim lm As String
Dim dt As DataTable = DataTables("工资表")
Dim nr As DataRow
For n As Integer = bc To Sheet.Rows.Count -1
    nr = dt.AddNew()
    For i As Integer = 0 To Sheet.Cols.Count - 1
        lm = ""
        If bc > 1 Then
            For x As Integer = 0 To bc - 1
                Dim cnu As String = Sheet(x,i).Value
                If cnu > "" Then
                    If lm = "" Then
                        lm = cnu
                    Else
                        If lm <> cnu Then
                            lm = lm & "_" & cnu
                        End If
                    End If
                End If
            Next
        Else
            lm = Sheet(0,i).Value
        End If
        If dt.DataCols.Contains(lm) Then
            nr(lm) = Sheet(n,i).Value
        End If
    Next
    nr.save
Next


以上代码一旦遇到合并的单元格就出错,读取表头的时候如何判断是否是合并的单元格?如果是合并的单元格,如何判断是横向合并还是竖向合并?

--  作者:有点蓝
--  发布时间:2019/8/26 15:34:00
--  
没有办法,只能改为单行标题,再导入
--  作者:YDS
--  发布时间:2019/8/27 10:12:00
--  
那能否判断Excel的单元格是否处于合并状态呢?
--  作者:有点蓝
--  发布时间:2019/8/27 10:35:00
--  
参考:http://www.foxtable.com/webhelp/topics/2121.htm