以文本方式查看主题

-  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=41823)

--  作者:遇到
--  发布时间:2013/10/28 15:23:00
--  [求助]如何导入合并过的excel
各位大神求助啊,一个EXCEL表格,他是经过合并的,还有多重表头。如何导入到foxtable中,并且格式与原excel相同。坐等各位大神,表格已发附件,狐狸爸爸求给力。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:2013-10-28 14-39-12_order.xls


--  作者:遇到
--  发布时间:2013/10/28 15:25:00
--  
在线等啊。
--  作者:Bin
--  发布时间:2013/10/28 15:27:00
--  
你好,多层表头的表无法正常导入的哦.
--  作者:狐狸爸爸
--  发布时间:2013/10/28 15:28:00
--  
没有办法的哦,只能导入之后慢慢整理。
--  作者:遇到
--  发布时间:2013/10/28 15:39:00
--  
狐狸爸爸,那不管多层表头,下面的合并单元格能导入,但一个订单只有第一行是显示的,其他行都是空白。能合并在一起吗?
--  作者:遇到
--  发布时间:2013/10/28 15:39:00
--  
好忧伤啊。怎么办呢
--  作者:狐狸爸爸
--  发布时间:2013/10/28 15:49:00
--  

空的好办,导入之后,逐行扫描,如果某行的某列内容为空,则从上一行取值填入。

 

For i As Integer = 1 To Tables("表A").Rows.count - 1
    If Tables("表A").Rows(i).Isnull("第三列") Then
        Tables("表A").Rows(i)("第三列") = Tables("表A").Rows(i-1)("第三列")
    End If
Next

 

记得从1开始,也就是第二行开始遍历。


--  作者:遇到
--  发布时间:2013/10/28 15:54:00
--  回复:(狐狸爸爸)空的好办,导入之后,逐行扫描,如...
这个好,谢谢狐狸爸爸,我就是要等这个,我先去验证一下。
再问一下狐狸爸爸,这段代码放在那里。
[此贴子已经被作者于2013-10-28 15:55:21编辑过]

--  作者:遇到
--  发布时间:2013/10/28 16:35:00
--  
狐狸爸爸,代码放在什么地方啊,求解释,新手小白,不懂。
--  作者:狐狸爸爸
--  发布时间:2013/10/28 16:36:00
--  
导入后,在命令窗口执行就行了,因为这是一次性的操作