以文本方式查看主题 - 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 |