- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 数据合并如何去掉表标题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73590)
-- 发布时间：2015/8/22 11:10:00
-- 数据合并如何去掉表标题
合并EXCEL文件时，如何去掉表格中的表头，现在每次合并必须先手工删掉表头，才能正确导入，有没有语句可以在合并时过滤掉表头，谢谢！
-- 发布时间：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
-- 发布时间：2015/8/22 11:53:00
--
谢谢，可能误会了我的意思，我是意思是我们建表格时，都会有一个表标题（表头），在表格尾部会有一些合计的部分，或者一些文字在表尾，但是在合并数据时，如果不先去处理成标准格式（去掉表头跟表尾，只保留表身），在使用合并命令时，会出错。我记得以前有人有发表过实现的方法，只是找不到了
此主题相关图片如下：qq截图20150822114921.png
-- 发布时间：2015/8/22 11:54:00
--
我的要求是在用合并命令时，如何通过语句自动屏蔽掉表标题，及后面的合计之类的类容，只要表的主体内容
-- 发布时间：2015/8/22 12:24:00
--
这个怎么判断，你怎么知道那行是表格的开头，那行是表格的结尾
-- 发布时间：2015/8/23 11:00:00
--
你可以用代码合并。
http://www.foxtable.com/help/topics/2334.htm