以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何导入不规则的电子表数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51751)

--  作者:zhangchi96
--  发布时间:2014/6/2 20:06:00
--  如何导入不规则的电子表数据

合并数据或导入数据 ,我用的数据是excel表,但由于此表是从别的软件中导出的,第1行 第2行是合并了单元格的标题行,

1、如果用删除行的命令RemoveAt,由于电子表第1行的第1-50个单元格是合并的,删除的时候总是出错

2、如果用合并数据的方法,指定从第3行数据开始读取数据,这又要求列名要按指定的顺序,但该表是从其他软件导出的,列的顺序在不同的人使用时可能会不同

3、导入数据或合并数据中,并不需要excel表的所有列,只需指定的部分列的数据就可以了 

 

向高手求教,怎么破解这个不规则的电子表。

 




--  作者:y2287958
--  发布时间:2014/6/2 20:19:00
--  
那指定对应的列呗
--  作者:瞩望星空
--  发布时间:2014/6/2 20:25:00
--  
先手工调整一下吧
--  作者:zhangchi96
--  发布时间:2014/6/2 21:18:00
--  

想在狐表里添加个功能 就是把这个电子表导入进去,不完全是自己用,所以手工调整不怎么行得通


--  作者:瞩望星空
--  发布时间:2014/6/2 22:16:00
--  

那就要总结出规律性,狐表能读出的数据,都要是事先知道规律的。


--  作者:zhangchi96
--  发布时间:2014/6/2 23:27:00
--  

我有附件,麻烦你帮我看一下 好吗?


--  作者:zhangchi96
--  发布时间:2014/6/3 11:42:00
--  

恳请专家指导!


--  作者:逛逛
--  发布时间:2014/6/3 12:03:00
--  
俺没看见你的附件啊
--  作者:zhangchi96
--  发布时间:2014/6/3 22:55:00
--  

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:2.xls

当时添加附件时,只想着叙述问题,忘记了 上传,疏忽了,不好意思!


--  作者:有点甜
--  发布时间:2014/6/3 23:07:00
--  

 删除头两行这样写

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\2.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)\'指定工作
ws.rows("1:2").delete(MSExcel.XlDirection.xlUp)
wb.Save
app.quit