主题：请教 merger 问题

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")

 还不如在导入的时候直接筛选一下。

 mg.Filter = "日期 is not null"

谢谢，问题解决

继续请教

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

请问如何才能做到

 楼主，你这个功能不是“导入”，而是“合并”，合并数据的话，是不影响原数据的，因为只是新增数据。

谢谢