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


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

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

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


加好友 发短信 德凯软件工作室
等级:幼狐 帖子:166 积分:1435 威望:0 精华:0 注册:2008/9/4 14:26:00
  发帖心情 Post By:2009/6/5 16:42:00 [显示全部帖子]

以下是引用yangming在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() '开始合并

能加上个由用户指定打开路径的代码,然后选择要合并的文件,这个代码只能放在固定的地方。


 回到顶部