- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 急！求助，excel取消合并后，如何保留原来数据？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74790)
-- 发布时间：2015/9/19 8:36:00
-- 急！求助，excel取消合并后，如何保留原来数据？
用代码取消excel表合并后，原单元格数据只能显示在拆分的其中一个单元格内，如何实现所有拆分的单元格都显示原来数据
-- 发布时间：2015/9/19 8:46:00
--
用代码合并的单元格,取消合并后,恢复原状
-- 发布时间：2015/9/19 9:12:00
--
不是恢复原状，为便于导入foxtable，要求拆分后每个单元格保留原数据
-- 发布时间：2015/9/19 9:17:00
--
没办法，只能在excel里处理
http://jingyan.baidu.com/article/b7001fe19422f50e7282dd0c.html
http://www.ittribalwo.com/article/1506.html
-- 发布时间：2015/9/19 9:47:00
--
网上有代码实现，但不知怎么转换为狐表格式，望大神们倾力研究，这对解决狐表导入excel表问题有重大意义
-- 发布时间：2015/9/19 11:35:00
--
什么情况下的？要做什么功能？
做例子发上来
-- 发布时间：2015/9/19 13:43:00
--
比如，把存在合并单元格数据的excel表导入狐表就无法得到我们想要的结果，还要事先手工调节excel再导入,太麻烦了，如果这个问题解决了，狐表导入excel就更上一层楼了，比如处理ecxel多层表头的问题,就可以做到一键导入狐表中实现多层表头的生成 ，还望大神们帮忙解决。
-- 发布时间：2015/9/19 13:57:00
--
我做了个导入excel表的例子，主要是针对存在多层表头的excel表, 想实现导入foxtable后自动生成多层表头，但就差这一步无法解决，例子发给大家，帮忙完善一下。
-- 发布时间：2015/9/19 13:59:00
--
例子发上来
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导入excel表.rar |
-- 发布时间：2015/9/19 15:05:00
--
参考代码
Dim Book As New XLS.Book("d:\\test.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
sheet.ClearMergedCells
Dim level As Integer = 2
Dim ary(level-1) As String
For i As Integer = 0 To sheet.Cols.count - 1
For j As Integer = 0 To level-1
If sheet(j,i).text > "" Then
ary(j) = sheet(j,i).Text
End If
Next
output.show(String.Join("_",ary))
Next