主题：[求助]合并Excel文件，设置窗口的导入按钮里面编好了代码，但是每次按导入，它都把东西多次导进去

你导入代码是怎么写的？默认的合并是不会比较是否重复的，你必须自己编码去比较才行。

可以参考下面的代码：

Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
    ‘MessageBox.Show("你选择的是:" & dlg.FileName,"提示")
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim colNames As New List(Of String)
    For i As Integer = 0 To sheet.Cols.Count - 1
        colNames.Add(sheet(0, i).Text)
    Next
   
    Dim dt As DataTable = DataTables("工资表")
    For i As Integer = 0 To sheet.Rows.Count - 1
        If dt.Find("xxxxxxxxxxxxxxxxxxxxxxxxx") Is Nothing Then
            Dim ndr As DataRow = dt.AddNew
            For j As Integer = 0 To sheet.Cols.Count - 1
                ndr(colNames(j)) = sheet(i, j).Text
            Next
        End If
    Next
End If

 这样编码合并是不可以判断重复的。参考2楼的代码，弄不好的话上传你的数据表。

例子如下，请注意excel表格的列名和狐表的列名一致。

 

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

点击浏览该文件:desktop.zip

注意回车键或者空格键等等，不然导入不成功的