Foxtable(狐表)用户栏目专家坐堂 → 求导入合并数据代码


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

主题:求导入合并数据代码

美女呀,离线,留言给我吧!
yangming
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/6/5 13:47:00 [显示全部帖子]

一楼没有附件?你要合并的到底是TXT文件还是EXCEL文件?

[此贴子已经被作者于2009-6-5 14:02:04编辑过]

 回到顶部
美女呀,离线,留言给我吧!
yangming
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/6/5 16:30:00 [显示全部帖子]

Dim mg As New Merger
mg.SourcePath = "c:\AAA.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "AAA$" '指定要合并的表
mg.DataTableName = "data" '指定接收数据的表
mg.Merge() '开始合并

 回到顶部
美女呀,离线,留言给我吧!
yangming
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/6/5 17:21:00 [显示全部帖子]

那只能是先转成文本文件后再合并,可将上述代码改成文本文件的合并代码

 回到顶部
美女呀,离线,留言给我吧!
yangming
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/6/8 11:10:00 [显示全部帖子]

你首先要将原CSV文件改成文本文件或是EXCEL文件,然后才可以导入或是合并,在改的过程序中删除无用的信息


 回到顶部