Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]菜鸟求助导入出错问题


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

主题：[求助]菜鸟求助导入出错问题
帅哥哟，离线，有人找我吗？
mosquito1003
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：350 积分：3142 威望：0 精华：0 注册：2012/12/6 18:05:00 		[求助]菜鸟求助导入出错问题  发帖心情 Post By：2012/12/10 8:40:00 [只看该作者]

我按照“ paullqxp ”老师的帖一模一样的学习，可是第一步就碰到了难题，请见图片
图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看
请高手们帮忙解决下！谢谢!代码是以下的一段
Dim mg As New Merger
mg.SourcePath = "c:\产品导入.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "产品导入" '指定要合并的表
mg.DataTableName = "产品表" '指定接收数据的表
mg.Merge() '开始合并
 回到顶部
帅哥哟，离线，有人找我吗？
mosquito1003
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：350 积分：3142 威望：0 精华：0 注册：2012/12/6 18:05:00 		[求助]  发帖心情 Post By：2012/12/10 8:42:00 [只看该作者]

如果是用Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "产品导入"
    mg.DataTableName = "产品表"
    mg.Merge()
End If
上面的这套代码就出现以下的错误

图片点击可在新窗口打开查看此主题相关图片如下：未命名1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/12/10 8:54:00 [只看该作者]

 第一个问题，你确定在C盘有表格，而表格里有一张表叫 产品导入吗？

 第二个问题，没有设置格式，mg.Format = "excel" '指定格式

 回到顶部
帅哥哟，离线，有人找我吗？
mosquito1003
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：350 积分：3142 威望：0 精华：0 注册：2012/12/6 18:05:00 		  发帖心情 Post By：2012/12/10 9:07:00 [只看该作者]

第一个问题是有的！
第二个问题，问下mg.Format = "excel" '指定格式这个不是已经指定格式了吗？
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/12/10 9:14:00 [只看该作者]

试一下这样……

第一段代码

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

第二段代码

dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.Format = "excel" '指定格式
    mg.SourceTableName = "产品导入$"
    mg.DataTableName = "产品表"
    mg.Merge()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
mosquito1003
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：350 积分：3142 威望：0 精华：0 注册：2012/12/6 18:05:00 		  发帖心情 Post By：2012/12/10 9:18:00 [只看该作者]

我都试过了，还是不行！不知道是不是我的试用版是不行的！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:信息管理系统.rar
 回到顶部
帅哥哟，离线，有人找我吗？
mosquito1003
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：350 积分：3142 威望：0 精华：0 注册：2012/12/6 18:05:00 		  发帖心情 Post By：2012/12/10 9:18:00 [只看该作者]

我把做的内容，发上去的！再帮我看看！

 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/12/10 10:03:00 [只看该作者]

 如下……

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:产品档案项目.table
 回到顶部
帅哥哟，离线，有人找我吗？
mosquito1003
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：350 积分：3142 威望：0 精华：0 注册：2012/12/6 18:05:00 		  发帖心情 Post By：2012/12/10 18:08:00 [只看该作者]

非常的感谢！

 回到顶部
帅哥哟，离线，有人找我吗？
mosquito1003
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：350 积分：3142 威望：0 精华：0 注册：2012/12/6 18:05:00 		  发帖心情 Post By：2012/12/10 18:16:00 [只看该作者]

能告诉我为什么吗？你是怎么做到的！修改哪里？

 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 6 次数据查询