Foxtable(狐表)用户栏目专家坐堂 → Merger 合并Excel表名的问题


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

主题:Merger 合并Excel表名的问题

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
Merger 合并Excel表名的问题  发帖心情 Post By:2010/7/17 23:02:00 [显示全部帖子]

下面试帮助中:

 

合并Excel文件:

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

一些Excel文件,可能需要在表名后加上符号$才能正常导入,例如:

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

 

请问: 有没有办法判断一下要合并的表 如果不是“订单” 就选择“订单$"  或者 跳过系统的提示~  


图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/7/18 0:11:00 [显示全部帖子]

附件中两个excel文件, 销售管理.xls 有带$符合, 销售管理1.xls 就没有$这个符合......

 

Dim mg As New Merger
mg.SourcePath = "销售管理1.xls"
mg.Format = "excel"     '指定格式
mg.SourceTableName = "订单"    '指定要合并的表  不需加 $ 符合
mg.DataTableName = "订单"      '指定接收数据的表
mg.Merge() '开始合并

 

Dim mg As New Merger
mg.SourcePath = "销售管理.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "订单$"    '指定要合并的表 必须加 $ 符号
mg.DataTableName = "订单"    '指定接收数据的表
mg.Merge() '开始合并

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

 

 


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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/7/18 21:31:00 [显示全部帖子]

ok  有点迂回的感觉······

 

其实就是多了个系统提示,为何用 :

 

Try
   代码一
Catch ex As Exception
   代码二
End Try
代码三

 

也不能避免那个提示,

 


 回到顶部