主题：导入的时候提示不可识别的数据库格式

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls|Excel文件|*.xlsx" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    Dim mg As New Merger

    mg.SourcePath = dlg.FileName

    mg.SourceTableName = "花色$"

    mg.DataTableName = "花色"

    mg.Merge()

End If 就会出现不可识别的数据库格式

2.如果直接使用示例7 

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

可以使用，找了论坛看别人发了贴 没有人解答。有没有知道怎么回事。 

在线等 火钳刘明

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls|Excel文件|*.xlsx" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    Dim mg As New Merger

    mg.SourcePath = dlg.FileName

    If dlg.FileName.EndsWith(".xls")

        mg.Format = "excel" '指定格式

    Else

        mg.Format = "excel2007" '指定格式

    End If

    mg.SourceTableName = "花色$"

    mg.DataTableName = "花色"

    mg.Merge()

End If