按键代码为：

Dim a As New OpenFileDialog
a.Filter= "excel文件|*.xls"
If a.ShowDialog = DialogResult.OK
    Dim mg As New Merger
    mg.SourcePath = a.FileName
    mg.Format = "excel" 
    mg.SourceTableName = "标准产品$" 
    mg.DataTableName = "标准产品" 
    mg.Merge() 
    MessageBox.Show("执行A")
End If

出错是：

此主题相关图片如下：导入出错.jpg

狐表数据表格式为：

此主题相关图片如下：狐表数据表.jpg

excel数据表格式为：

此主题相关图片如下：excel数据表.jpg

求高手指点

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导入测试.rar

求解决