Foxtable(狐表)用户栏目专家坐堂 → 如何导入不规则的电子表数据


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

主题:如何导入不规则的电子表数据

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


加好友 发短信
等级:二尾狐 帖子:551 积分:5001 威望:0 精华:0 注册:2012/2/11 13:27:00
如何导入不规则的电子表数据  发帖心情 Post By:2014/6/2 20:06:00 [只看该作者]

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

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

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

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

 

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

 




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


加好友 发短信
等级:狐神 帖子:4632 积分:33804 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2014/6/2 20:19:00 [只看该作者]

那指定对应的列呗

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


加好友 发短信
等级:二尾狐 帖子:531 积分:4727 威望:0 精华:0 注册:2013/4/20 20:08:00
  发帖心情 Post By:2014/6/2 20:25:00 [只看该作者]

先手工调整一下吧

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


加好友 发短信
等级:二尾狐 帖子:551 积分:5001 威望:0 精华:0 注册:2012/2/11 13:27:00
  发帖心情 Post By:2014/6/2 21:18:00 [只看该作者]

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


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


加好友 发短信
等级:二尾狐 帖子:531 积分:4727 威望:0 精华:0 注册:2013/4/20 20:08:00
  发帖心情 Post By:2014/6/2 22:16:00 [只看该作者]

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


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


加好友 发短信
等级:二尾狐 帖子:551 积分:5001 威望:0 精华:0 注册:2012/2/11 13:27:00
  发帖心情 Post By:2014/6/2 23:27:00 [只看该作者]

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


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


加好友 发短信
等级:二尾狐 帖子:551 积分:5001 威望:0 精华:0 注册:2012/2/11 13:27:00
  发帖心情 Post By:2014/6/3 11:42:00 [只看该作者]

恳请专家指导!


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


加好友 发短信
等级:版主 帖子:1693 积分:12117 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2014/6/3 12:03:00 [只看该作者]

俺没看见你的附件啊

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


加好友 发短信
等级:二尾狐 帖子:551 积分:5001 威望:0 精华:0 注册:2012/2/11 13:27:00
  发帖心情 Post By:2014/6/3 22:55:00 [只看该作者]

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

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


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部
总数 12 1 2 下一页