以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据合并出现不可识别数据格式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97291)
--  作者：tankings
--  发布时间：2017/3/9 12:23:00
--  数据合并出现不可识别数据格式
数据合并时出现“不可识别的数据库格式 \'D:\\Users\\ST\\Desktop\\新建文件夹\\测试.xls”
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 = "111"   
mg.DataTableName = "111"
    mg.Merge()
End If
注：111时access数据库中的一张表
请问大神哪里错了
--  作者：有点色
--  发布时间：2017/3/9 12:58: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 = "Sheet1$"
    mg.DataTableName = "你foxtable的表名"
    mg.Format = "Excel"
    mg.Merge()
End If
--  作者：tankings
--  发布时间：2017/3/9 15:08:00
--  
\'Sheet1$\' 不是一个有效名称。请确认它不包含无效的字符或标点，且名称不太长。
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 = "Sheet1$"
    mg.DataTableName = "你foxtable的表名"
    mg.Format = "Excel"
    mg.Merge()
End If
大神提示上述错误怎么回事
--  作者：有点色
--  发布时间：2017/3/9 15:14:00
--  

【sheet1】改成你的Excel文件里面的表的名字

 

【你foxtable的表名】改成你foxtable里面的表名

 
--  作者：tankings
--  发布时间：2017/3/9 15:34:00
--  
老师，非常感谢你的回答，现在数据可以合并了，但是问题来了 ，怎样让导入的数据不重复呢，比如说表1和表2，表1和表2有相同数据和不通数据，怎么把相同的去掉只要一个，不同的才导入
--  作者：有点色
--  发布时间：2017/3/9 15:38:00
--  

方法一：导入后删除

 

http://www.foxtable.com/webhelp/scr/1478.htm

 

方法二：用这种方式导入

 

http://www.foxtable.com/webhelp/scr/2334.htm