以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助，怎样无限名字随时可以合并数据，哪里错了，谢谢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88747)
--  作者：limit_1982
--  发布时间：2016/8/8 21:15:00
--  求助，怎样无限名字随时可以合并数据，哪里错了，谢谢
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Execl文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName \'指定数据文件
    mg.SourceTableName =dlg.FileName.replace(".xls", "") \'指定要导入的表
    mg.DataTableName="订单"
    mg.Format ="Excel"
    mg.FieldMaps.Add("型号","类型")
    mg.FieldMaps.Add("数量","数量")
    mg.Merge() \'开始合并
End If
--  作者：大红袍
--  发布时间：2016/8/8 21:17:00
--  
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Execl文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName \'指定数据文件
    mg.SourceTableName = FileSys.GetName(dlg.FileName).Replace(".xls", "") \'指定要导入的表
    mg.DataTableName="订单"
    mg.Format ="Excel"
    mg.FieldMaps.Add("型号","类型")
    mg.FieldMaps.Add("数量","数量")
    mg.Merge() \'开始合并
End If
--  作者：limit_1982
--  发布时间：2016/8/8 21:19:00
--  

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.7.29.1
错误所在事件：
详细错误信息：
Microsoft Jet 数据库引擎找不到对象\'asds\'。请确定对象是否存在，并正确地写出它的名称和路径。

 

 

出错，提示
[此贴子已经被作者于2016/8/8 21:20:32编辑过]
--  作者：大红袍
--  发布时间：2016/8/8 21:24:00
--  
 你excel表格的文件名是什么？里面的sheet1的表名是什么？
--  作者：limit_1982
--  发布时间：2016/8/8 21:27:00
--  

 mg.SourceTableName = FileSys.GetName(dlg.FileName).Replace(".xls", "") & "$" 

加& "$" 可以了，谢谢
--  作者：limit_1982
--  发布时间：2016/8/8 21:30:00
--  

文件名

与表名相同，  可以了