Foxtable(狐表)用户栏目专家坐堂 → 数据合并如何去掉表标题


  共有2596人关注过本帖树形打印复制链接

主题:数据合并如何去掉表标题

帅哥哟,离线,有人找我吗?
jhbhappy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:51 积分:518 威望:0 精华:0 注册:2012/6/2 11:36:00
数据合并如何去掉表标题  发帖心情 Post By:2015/8/22 11:10:00 [只看该作者]

合并EXCEL文件时,如何去掉表格中的表头,现在每次合并必须先手工删掉表头,才能正确导入,有没有语句可以在合并时过滤掉表头,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/8/22 11:21:00 [只看该作者]

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Rows("1:3")'选定多行
Rg.Delete(MSExcel.XlDirection.xlUp) '下面的单元格上移
Rg = Ws.Columns("D:F")  '选定多列
Rg.Delete(MSExcel.XlDirection.xlToLeft) '右面的单元格左移
App.Quit

 回到顶部
帅哥哟,离线,有人找我吗?
jhbhappy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:51 积分:518 威望:0 精华:0 注册:2012/6/2 11:36:00
  发帖心情 Post By:2015/8/22 11:53:00 [只看该作者]

谢谢,可能误会了我的意思,我是意思是我们建表格时,都会有一个表标题(表头),在表格尾部会有一些合计的部分,或者一些文字在表尾,但是在合并数据时,如果不先去处理成标准格式(去掉表头跟表尾,只保留表身),在使用合并命令时,会出错。我记得以前有人有发表过实现的方法,只是找不到了


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

 回到顶部
帅哥哟,离线,有人找我吗?
jhbhappy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:51 积分:518 威望:0 精华:0 注册:2012/6/2 11:36:00
  发帖心情 Post By:2015/8/22 11:54:00 [只看该作者]

我的要求是在用合并命令时,如何通过语句自动屏蔽掉表标题,及后面的合计之类的类容,只要表的主体内容

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/8/22 12:24:00 [只看该作者]

这个怎么判断,你怎么知道那行是表格的开头,那行是表格的结尾

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/23 11:00:00 [只看该作者]

 你可以用代码合并。

 

http://www.foxtable.com/help/topics/2334.htm

 


 回到顶部