9-26使用版，我用高速导入 运费 自设按钮  代码

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 = "运费"
    mg.Merge()
End If

本意是后续不断导入每月运费，但运行显示

    “不可识别的数据库格式 \'C:\\Documents and Settings\\Administrator\\桌面\\精诚导出\\运费.xls\'”。

检查  运费.xls 未发现问题

  请教如何解决

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

点击浏览该文件:管理项目3.zip

加上 mg.Format = "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 = "sheet1$"
    mg.DataTableName = "运费"
    mg.Merge()
End If

DataTables("运费").Deletefor("某某行 Is Null")

继续请教

  导入后，没有显示成功与否的提示，也没有重复导入的提示，比如提示：重复数据覆盖？停止？

请问如何才能做到

谢谢