主题：导入不重复Excel数据

很好，同样的需求，，做好了share给你

我的方案是这样的：将外部数据合并到临时表，再用数据填充器将临时表的数据填充到固定的数据表中。

 

'建临时表
Dim xjjy As New DataTableBuilder("表1") 

xjjy.AddDef("列A", Gettype(String), 7)
xjjy.Build()
DataTables("表1").dataRows.clear
'数据导入到临时表
Dim mg As New Merger
mg.SourcePath = "e:\excel.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "sheet1$" '指定要合并的表
mg.DataTableName = "表1" '指定接收数据的表
mg.Merge() '开始合并
'数据填充到数据表
Dim f As New Filler
f.SourceTable = Tables("表1").DataTable
f.DataTable = DataTables("表2")
f.ExcludeExistValue =True
f.Append =True
f.Fill()

还有一种方案可以用sql的，我没做出来，具体怎么实现，谁给做下吧？