Foxtable(狐表) → 用户栏目 → 专家坐堂 → Merger高速导入SourceTableName如何动态表示？


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

主题：Merger高速导入SourceTableName如何动态表示？
帅哥哟，离线，有人找我吗？
ehomecd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：267 积分：2574 威望：0 精华：0 注册：2008/11/9 18:30:00 		Merger高速导入SourceTableName如何动态表示？  发帖心情 Post By：2015/10/10 9:05:00 [显示全部帖子]

Merger高速导入SourceTableName如何动态表示？
如何让导入SourceTableName等于打开文件的名字？


图片点击可在新窗口打开查看此主题相关图片如下：2015年10月10日.png
图片点击可在新窗口打开查看

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 = "dlg.filename"
    mg.DataTableName = "书目"
    mg.Merge()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
ehomecd
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：267 积分：2574 威望：0 精华：0 注册：2008/11/9 18:30:00 		  发帖心情 Post By：2015/10/10 9:45:00 [显示全部帖子]

提示错误：

图片点击可在新窗口打开查看此主题相关图片如下：2015年10月10日2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
ehomecd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：267 积分：2574 威望：0 精华：0 注册：2008/11/9 18:30:00 		仍然还有问题，代码如下  发帖心情 Post By：2015/10/11 9:35: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.Format = "excel"
    mg.SourceTableName = FileSys.GetName(dlg.FileName).Split(".")(0)
    mg.DataTableName = "书目"
    mg.Merge()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
ehomecd
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：267 积分：2574 威望：0 精华：0 注册：2008/11/9 18:30:00 		仍然有错误，提示：Failed to open storage file.  发帖心情 Post By：2015/10/11 10:10:00 [显示全部帖子]

仍然有错误，提示：Failed to open storage file.

好像发现问题原因了，里边的第一张表名不是：sheet，而是和文件名一致，
因为excel文件是从别的软件导出的，第一个表名和工作簿名称一致，这样的话，如何修改代码？
[此贴子已经被作者于2015/10/11 10:16:19编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询