以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请问如何导入合并excel文档  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72242)

--  作者:covechen
--  发布时间:2015/7/26 18:23:00
--  [求助]请问如何导入合并excel文档

有4个Excel文档

1档有 ABC

2档有 ADEF

3档有 AGHIJ

4档有 AKLMN...

4个文档都有A这个KEY

 

怎么导入一个FT的表中?这个表含有 ABCDEFGHIJKLMN....

要把A相同的资料填入A之后,而不是起一新的行号。


实例已上传,表1 表2 表3 表4 为例子,希望合并为达到 表5 的效果,谢谢

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:导入合并.rar

 

[此贴子已经被作者于2015/7/26 20:48:37编辑过]

--  作者:大红袍
--  发布时间:2015/7/26 18:46:00
--  

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

 

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

 


--  作者:covechen
--  发布时间:2015/7/26 21:11:00
--  
看了几次那个帮助文档了,发现那个无法帮到我。。。
例子文档已上传。

--  作者:大红袍
--  发布时间:2015/7/27 9:51:00
--  

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


--  作者:covechen
--  发布时间:2015/7/27 14:25:00
--  
谢谢大红袍,很完美的解决问题。