方法一：在系统菜单中“杂项”高速合并EXCEL文件，是能够实现的。

方法二：在窗口按钮代码如下：

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 = "积分数据20160125$"
    mg.DataTableName = "储蓄积分"
    mg.Merge()
End If

执行该代码出现错误：.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：
详细错误信息：
不可识别的数据库格式 \'D:\\积分数据20160125.xls\'

加上代码

 mg.Format = "Excel"

-----------------------------------------------

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

 我用的是打开对话框选择要合并的文件，在选择文件对话框打开后，没有出现我要导入的Excel文件，但是出现了97-2003的工作表。

可见可能是EXCEL版本问题，是这样吗？

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "excel文件|*.xls;*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "积分数据20160125$"
    mg.DataTableName = "储蓄积分"

    mg.Format = "Excel"
    mg.Merge()
End If

 出现以下提示：“青年路积分数据20160125$”不是一个有效名称。请确认它不包含无效的字符或标点，且名称不太长。

但是在系统菜单中操作没有这个提示。不过，在打开文件对话框中出现了要合并的EXCEL文件了。

对了，什么原因呢？

你每个excel文件里面的表的名称都不一样导致的。

用6楼代码出现以下错误，什么原因？
此主题相关图片如下：导入数据出错.png

是不是你表名写错了啊

mg.DataTableName = "储蓄积分"