主题：[求助]请问如何导入合并excel文档

 用代码合并即可，参考，具体请上传例子。

http://www.foxtable.com/help/topics/2334.htm

mark

Dim dlg As new OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    For Each f As String In dlg.FileNames
        Dim  Book As New XLS.Book(f)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim dic As new Dictionary(Of String, Integer)
        For i As Integer = 0 To sheet.Cols.Count - 1
            If sheet(0,i).Text <> Nothing
                dic.Add(sheet(0,i).Text,i)
            End If
        Next
        For  n As Integer = 1 To Sheet.Rows.Count -1
            Dim bh As String = sheet(n,dic("单号")).Text
            Dim dr As DataRow = DataTables("物流管理").Find("单号 = '" & bh & "'")
            If dr Is Nothing Then  '如果不存在同编号的订单
                dr =  DataTables("物流管理").AddNew()
            End If
            For Each c As String In dic.Keys
                dr(c) = sheet(n, dic(c)).Text
            Next
        Next
    Next
End If